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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.161 by root, Thu Feb 1 19:15:39 2007 UTC vs.
Revision 1.162 by root, Thu Feb 1 19:40:42 2007 UTC

 #include <plugin_common.h>
 #include <sounds.h>
 #include <cstdarg>
 #include <sproto.h>
+#include "loader.h"
 #include "cfperl.h"
 #include "shstr.h"
 #include <unistd.h>
 #if _POSIX_MEMLOCK
   if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
     {
       printf ("unable to initialize perl-interpreter, aborting.\n");
       exit (EXIT_FAILURE);
     }
+  {
+    dSP;
+    PUSHMARK (SP);
+    PUTBACK;
+    call_pv ("cf::init", G_DISCARD | G_VOID);
+  }
 }
 void cfperl_main ()
 {
   dSP;
           RETVAL = newSVpv (resist_plus[atnr], 0);
         else
           XSRETURN_UNDEF;
         OUTPUT: RETVAL
+bool
+load_regions (const char *filename)
+	CODE:
+        RETVAL = loader_region ().load (filename);
+        OUTPUT: RETVAL
 MODULE = cf        PACKAGE = cf::attachable
 int
 valid (SV *obj)
 	CODE:

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