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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.155 by root, Fri Jan 26 22:06:30 2007 UTC vs.
Revision 1.156 by root, Sat Jan 27 23:59:29 2007 UTC

 void cleanup (const char *cause, bool make_core = false)
 void emergency_save ()
+void _exit (int status = EXIT_SUCCESS)
 UV sv_2watcher (SV *w)
 	CODE:
         RETVAL = (UV)GEventAPI->sv_2watcher (w);
 	OUTPUT:
         RETVAL
-void _exit (int status = 0)
 #if _POSIX_MEMLOCK
 int mlockall (int flags = MCL_CURRENT | MCL_FUTURE)
             EXTEND (SP, THIS->players);
             for_all_players (pl)
               if (pl->ob && pl->ob->map == THIS)
                 PUSHs (sv_2mortal (to_sv (pl->ob)));
           }
+void
+maptile::set_regiondata (SV *data, SV *plt)
+	CODE:
+{
+  	if (!SvROK (plt) || SvTYPE (SvRV (plt)) != SVt_PVAV)
+          croak ("maptile::set_regiondata needs arrayref as plt arg");
+        AV *av = (AV *)SvRV (plt);
+        region **regionmap = (region **)malloc ((av_len (av) + 1) * sizeof (region *));
+        for (int i = av_len (av); i; --i)
+          regionmap [i] = region::find (SvPVutf8_nolen (*av_fetch (av, i, 1)));
+  	THIS->regions = salloc<uint8_t> (THIS->size (), (uint8_t *)SvPVbyte_nolen (data));
+        THIS->regionmap = regionmap;
+}
 void play_sound_map (maptile *map, int x, int y, int sound_num)
 int out_of_map (maptile *map, int x, int y)
         OUTPUT: RETVAL
 region *find (char *name)
 	PROTOTYPE: $
         CODE:
-        RETVAL = get_region_by_name (name);
+        RETVAL = region::find (name);
         OUTPUT: RETVAL
 INCLUDE: $PERL genacc region ../include/map.h |
 MODULE = cf        PACKAGE = cf::living

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