… | |
… | |
1939 | void |
1939 | void |
1940 | inv (object *obj) |
1940 | inv (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 | |
1949 | void |
1948 | void |
1950 | set_animation (object *op, int idx) |
1949 | set_animation (object *op, int idx) |
… | |
… | |
2874 | sv_to (sv, self); |
2873 | sv_to (sv, self); |
2875 | delete self; |
2874 | delete self; |
2876 | |
2875 | |
2877 | void |
2876 | void |
2878 | extract_tags (object_thawer *self) |
2877 | extract_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 | |