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

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.23 by root, Fri Feb 17 19:36:36 2006 UTC vs.
Revision 1.26 by root, Sat Feb 25 23:36:58 2006 UTC

 #include <XSUB.h>
 #undef save_long // clashes with libproto.h
 #define PLUGIN_NAME    "perl"
-#define PLUGIN_VERSION "cfperl 0.1"
+#define PLUGIN_VERSION "cfperl 0.2"
 #ifndef __CEXTRACT__
 #include <plugin.h>
 #endif
   va_list args;
   va_start (args, type);
   switch (type)
     {
+#if 0
+      case CFAPI_INT16:
+        sv = newSViv (*va_arg (args, sint16_t *));
+        break;
+#endif
       case CFAPI_INT:
         sv = newSViv (*va_arg (args, int *));
         break;
       case CFAPI_LONG:
                 int unused_type;
                 object_set_property (&unused_type, obj, idx, (double)SvNV (newval));
               }
               break;
             case CFAPI_STRING:
-              cf_object_set_string_property (obj, idx, SvPV_nolen (newval));
+              cf_object_set_string_property (obj, idx, SvOK (newval) ? SvPV_nolen (newval) : 0);
+              break;
+            case CFAPI_POBJECT:
+              {
+                 int unused_type;
+                 object_set_property (&unused_type, obj, idx, (object *)SvPTR_ornull (newval, "cf::object"));
+              }
               break;
             default:
               croak ("unhandled type '%d' in set_property '%d'", type, idx);
           }

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