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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.64 by root, Tue Nov 7 14:58:35 2006 UTC vs.
Revision 1.65 by root, Tue Nov 7 16:30:55 2006 UTC

   PUSHs (sv_2mortal (newRV_inc ((SV *)av)));
   PUTBACK;
   call_pv ("cf::object_freezer_save", G_VOID | G_DISCARD | G_EVAL);
   FREETMPS;
   LEAVE;
+}
+char *object_freezer::as_string ()
+{
+  dSP;
+  ENTER;
+  SAVETMPS;
+  PUSHMARK (SP);
+  EXTEND (SP, 3);
+  PUSHs (sv_2mortal (newRV_noinc (newSVpvn ((char *)linearise (), size ()))));
+  PUSHs (sv_2mortal (newRV_inc ((SV *)av)));
+  PUTBACK;
+  char *res = call_pv ("cf::object_freezer_as_string", G_SCALAR | G_EVAL) > 0
+              ? strdup (SvPVbyte_nolen (POPs))
+              : strdup ("[fatal error]");
+  FREETMPS;
+  LEAVE;
+  return res;
 }
 int fprintf (object_freezer &freezer, const char *format, ...)
 {
   va_list ap;
 get_connection (maptile *map, long connection)
        PPCODE:
        oblinkpt *obp = get_connection_links (map, connection);
        if (obp)
          for (objectlink *ol = obp->link; ol; ol = ol->next)
-           XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, ol->ob)));
+           XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, (object *)ol->ob)));
 object *cf_map_insert_object_there (maptile *where, object *op, object *originator, int flags)
 object *cf_map_insert_object (maptile *where, object* op, int x, int y)

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