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.253 by root, Mon Sep 10 17:24:36 2007 UTC vs.
Revision 1.254 by root, Mon Sep 10 18:30:30 2007 UTC

… …
1939void 1939void
1940inv (object *obj) 1940inv (object *obj)
1941 PROTOTYPE: $ 1941 PROTOTYPE: $
1942 PPCODE: 1942 PPCODE:
1943{ 1943{
1944 object *o;
1945 for (o = obj->inv; o; o = o->below) 1944 for (object *o = obj->inv; o; o = o->below)
1946 XPUSHs (sv_2mortal (to_sv (o))); 1945 XPUSHs (sv_2mortal (to_sv (o)));
1947} 1946}
1948 1947
1949void 1948void
1950set_animation (object *op, int idx) 1949set_animation (object *op, int idx)
… …
2874 sv_to (sv, self); 2873 sv_to (sv, self);
2875 delete self; 2874 delete self;
2876 2875
2877void 2876void
2878extract_tags (object_thawer *self) 2877extract_tags (object_thawer *self)
2879 CODE: 2878 PPCODE:
2880 while (self->kw != KW_EOF) 2879 while (self->kw != KW_EOF)
2881 { 2880 {
2881 PUTBACK;
2882 coroapi::cede_to_tick_every (5000); 2882 coroapi::cede_to_tick_every (5000);
2883 SPAGAIN;
2883 2884
2884 if (self->kw == KW_tag) 2885 if (self->kw == KW_tag)
2885 XPUSHs (sv_2mortal (to_sv (self->get_str ()))); 2886 XPUSHs (sv_2mortal (newSVpv_utf8 (self->get_str ())));
2886 2887
2887 self->skip (); 2888 self->skip ();
2888 } 2889 }
2889 2890

Diff Legend

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