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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.100 by root, Fri Dec 22 02:04:21 2006 UTC vs.
Revision 1.101 by root, Fri Dec 22 06:02:29 2006 UTC

 int random_roll (int min, int max, object *op, int goodbad);
 const char *cost_string_from_value(uint64 cost, int approx = 0)
-int invoke (int event, ...)
-	CODE:
-        if (KLASS_OF (event) != KLASS_GLOBAL) croak ("event class must be GLOBAL");
-	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
-        for (int i = 1; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
-        RETVAL = INVOKE_((event_type)event, ARG_AV (av));
-	OUTPUT: RETVAL
 int
 exp_to_level (val64 exp)
         CODE:
 {
         int i = 0;
 valid (SV *obj)
 	CODE:
         RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
 	OUTPUT:
 	RETVAL
+MODULE = cf        PACKAGE = cf::global
+int invoke (SV *klass, int event, ...)
+	CODE:
+        if (KLASS_OF (event) != KLASS_GLOBAL) croak ("event class must be GLOBAL");
+	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
+        for (int i = 1; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
+        RETVAL = INVOKE_((event_type)event, ARG_AV (av));
+	OUTPUT: RETVAL
 MODULE = cf        PACKAGE = cf::object         PREFIX = cf_object_
 INCLUDE: $PERL genacc object ../include/object.h |

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