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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.64 by root, Tue Nov 7 14:58:35 2006 UTC vs.
Revision 1.66 by root, Wed Nov 8 00:42:28 2006 UTC

… …
477 PUSHs (sv_2mortal (newRV_inc ((SV *)av))); 477 PUSHs (sv_2mortal (newRV_inc ((SV *)av)));
478 PUTBACK; 478 PUTBACK;
479 call_pv ("cf::object_freezer_save", G_VOID | G_DISCARD | G_EVAL); 479 call_pv ("cf::object_freezer_save", G_VOID | G_DISCARD | G_EVAL);
480 FREETMPS; 480 FREETMPS;
481 LEAVE; 481 LEAVE;
482}
483
484char *object_freezer::as_string ()
485{
486 dSP;
487 ENTER;
488 SAVETMPS;
489 PUSHMARK (SP);
490 EXTEND (SP, 3);
491 PUSHs (sv_2mortal (newRV_noinc (newSVpvn ((char *)linearise (), size ()))));
492 PUSHs (sv_2mortal (newRV_inc ((SV *)av)));
493 PUTBACK;
494
495 char *res = call_pv ("cf::object_freezer_as_string", G_SCALAR | G_EVAL) > 0
496 ? strdup (SvPVbyte_nolen (POPs))
497 : strdup ("[fatal error]");
498
499 FREETMPS;
500 LEAVE;
501
502 return res;
482} 503}
483 504
484int fprintf (object_freezer &freezer, const char *format, ...) 505int fprintf (object_freezer &freezer, const char *format, ...)
485{ 506{
486 va_list ap; 507 va_list ap;
… …
2020void kill_player (object *op) 2041void kill_player (object *op)
2021 2042
2022void esrv_update_item (object *op, int what, object *item) 2043void esrv_update_item (object *op, int what, object *item)
2023 C_ARGS: what, op, item 2044 C_ARGS: what, op, item
2024 2045
2046void clear_los (object *op)
2047
2048
2025MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 2049MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
2026 2050
2027INCLUDE: $PERL genacc player ../include/newserver.h ../include/player.h | 2051INCLUDE: $PERL genacc player ../include/newserver.h ../include/player.h |
2028 2052
2029char * 2053char *
… …
2226get_connection (maptile *map, long connection) 2250get_connection (maptile *map, long connection)
2227 PPCODE: 2251 PPCODE:
2228 oblinkpt *obp = get_connection_links (map, connection); 2252 oblinkpt *obp = get_connection_links (map, connection);
2229 if (obp) 2253 if (obp)
2230 for (objectlink *ol = obp->link; ol; ol = ol->next) 2254 for (objectlink *ol = obp->link; ol; ol = ol->next)
2231 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, ol->ob))); 2255 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, (object *)ol->ob)));
2232 2256
2233object *cf_map_insert_object_there (maptile *where, object *op, object *originator, int flags) 2257object *cf_map_insert_object_there (maptile *where, object *op, object *originator, int flags)
2234 2258
2235object *cf_map_insert_object (maptile *where, object* op, int x, int y) 2259object *cf_map_insert_object (maptile *where, object* op, int x, int y)
2236 2260

Diff Legend

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