[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.85 by root, Sat Dec 16 03:08:26 2006 UTC vs.
Revision 1.89 by elmex, Wed Dec 20 10:31:00 2006 UTC

       case DT_MAP:
         // va_arg (object *) when void * is passed is an XSI extension
         sv = to_sv (va_arg (ap, maptile *));
         break;
-      case DT_SOCKET:
+      case DT_CLIENT:
         sv = to_sv (va_arg (ap, client *));
         break;
       case DT_PLAYER:
         sv = to_sv (va_arg (ap, player *));
     const_iv (AMULET)
     const_iv (PLAYERMOVER)
     const_iv (TELEPORTER)
     const_iv (CREATOR)
     const_iv (SKILL)
-    const_iv (EXPERIENCE)
     const_iv (EARTHWALL)
     const_iv (GOLEM)
     const_iv (THROWN_OBJ)
     const_iv (BLINDNESS)
     const_iv (GOD)
     const_iv (FLAG_MONSTER)
     const_iv (FLAG_FRIENDLY)
     const_iv (FLAG_GENERATOR)
     const_iv (FLAG_IS_THROWN)
     const_iv (FLAG_AUTO_APPLY)
-    const_iv (FLAG_TREASURE)
     const_iv (FLAG_PLAYER_SOLD)
     const_iv (FLAG_SEE_INVISIBLE)
     const_iv (FLAG_CAN_ROLL)
     const_iv (FLAG_OVERLAY_FLOOR)
     const_iv (FLAG_IS_TURNABLE)
 void remove (object *op)
 	CODE:
         op->remove ();
-void destroy (object *op, int recursive = 0)
+void
-	CODE:
+object::destroy (int recursive = 0)
-        op->destroy (recursive);
 object *cf_object_present_archname_inside (object *op, char *whatstr)
 int cf_object_transfer (object *op, int x, int y, int r = 0, object_ornull *orig = 0)
 const char *
 base_name (object *op, int plural = op->nrof > 1)
         CODE:
         RETVAL = query_base_name (op, plural);
         OUTPUT: RETVAL
+object *decrease_ob_nr (object *op, unsigned long i)
 MODULE = cf        PACKAGE = cf::object::player PREFIX = cf_player_
 player *player (object *op)
 	CODE:
 INCLUDE: $PERL genacc client ../include/client.h |
 int invoke (client *ns, int event, ...)
 	CODE:
-        if (KLASS_OF (event) != KLASS_SOCKET) croak ("event class must be SOCKET");
+        if (KLASS_OF (event) != KLASS_CLIENT) croak ("event class must be CLIENT");
 	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
         for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
-        RETVAL = INVOKE_((event_type)event, ARG_SOCKET (ns), ARG_AV (av));
+        RETVAL = INVOKE_((event_type)event, ARG_CLIENT (ns), ARG_AV (av));
 	OUTPUT: RETVAL
 SV *registry (client *ns)
+void
+client::destroy ()

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.85 by root, Sat Dec 16 03:08:26 2006 UTC vs. Revision 1.89 by elmex, Wed Dec 20 10:31:00 2006 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.85 by root, Sat Dec 16 03:08:26 2006 UTC vs.
Revision 1.89 by elmex, Wed Dec 20 10:31:00 2006 UTC