ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/plugins/cfperl/cfperl.xs
(Generate patch)

Comparing deliantra/server/plugins/cfperl/cfperl.xs (file contents):
Revision 1.25 by root, Fri Feb 17 22:10:26 2006 UTC vs.
Revision 1.27 by root, Sun Mar 5 18:48:50 2006 UTC

… …
64{ 64{
65 object* who; 65 object* who;
66 object* activator; 66 object* activator;
67 object* third; 67 object* third;
68 char message[1024]; 68 char message[1024];
69 int fix; 69 int fix; // seems to be python-only, and should not be part of the API
70 int event_code; 70 int event_code;
71 char extension[1024]; // name field, should invoke specific perl extension 71 char extension[1024]; // name field, should invoke specific perl extension
72 char options[1024]; // slaying field of event_connectors 72 char options[1024]; // slaying field of event_connectors
73 int returnvalue; 73 int returnvalue;
74} CFPContext; 74} CFPContext;
75
76//static int current_command = -999;
77 75
78static HV *obj_cache; 76static HV *obj_cache;
79static PerlInterpreter *perl; 77static PerlInterpreter *perl;
80 78
81////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 79//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
… …
192 va_list args; 190 va_list args;
193 va_start (args, type); 191 va_start (args, type);
194 192
195 switch (type) 193 switch (type)
196 { 194 {
195#if 0
196 case CFAPI_INT16:
197 sv = newSViv (*va_arg (args, sint16_t *));
198 break;
199#endif
200
197 case CFAPI_INT: 201 case CFAPI_INT:
198 sv = newSViv (*va_arg (args, int *)); 202 sv = newSViv (*va_arg (args, int *));
199 break; 203 break;
200 204
201 case CFAPI_LONG: 205 case CFAPI_LONG:

Diff Legend

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