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.158 by root, Mon Jan 29 14:46:01 2007 UTC vs.
Revision 1.160 by elmex, Wed Jan 31 14:11:02 2007 UTC

… …
347inline SV *to_sv (treasurelist * v) { return to_sv (v->name); } 347inline SV *to_sv (treasurelist * v) { return to_sv (v->name); }
348 348
349inline SV *to_sv (UUID v) 349inline SV *to_sv (UUID v)
350{ 350{
351 char buf[128]; 351 char buf[128];
352 snprintf (buf, 128, "<1,%" PRIx64 ">", v.seq); 352 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
353 return newSVpv (buf, 0); 353 return newSVpv (buf, 0);
354} 354}
355 355
356inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; } 356inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPV_nolen (sv) : 0; }
357inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 357inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
… …
1805void 1805void
1806set_animation (object *op, int idx) 1806set_animation (object *op, int idx)
1807 CODE: 1807 CODE:
1808 SET_ANIMATION (op, idx); 1808 SET_ANIMATION (op, idx);
1809 1809
1810int
1811num_animations (object *op)
1812 CODE:
1813 RETVAL = NUM_ANIMATIONS (op);
1814 OUTPUT: RETVAL
1815
1810object *find_best_object_match (object *op, const char *match) 1816object *find_best_object_match (object *op, const char *match)
1811 1817
1812object *find_marked_object (object *op) 1818object *find_marked_object (object *op)
1813 1819
1814int need_identify (object *obj); 1820int need_identify (object *obj);

Diff Legend

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