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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.87 by elmex, Mon Dec 18 17:10:07 2006 UTC vs.
Revision 1.88 by root, Tue Dec 19 04:58:05 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 *));
 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)
 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 ()

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