… | |
… | |
75 | # define newSVval64 newSVnv |
75 | # define newSVval64 newSVnv |
76 | # define SvVAL64 SvNV |
76 | # define SvVAL64 SvNV |
77 | #endif |
77 | #endif |
78 | |
78 | |
79 | static f_plug_api gethook = cfapi_get_hooks; |
79 | static f_plug_api gethook = cfapi_get_hooks; |
80 | static f_plug_api object_set_property = cfapi_object_set_property; |
|
|
81 | static f_plug_api object_insert = cfapi_object_insert; |
80 | static f_plug_api object_insert = cfapi_object_insert; |
82 | |
81 | |
83 | static PerlInterpreter *perl; |
82 | static PerlInterpreter *perl; |
84 | |
83 | |
85 | double runtime; |
84 | double runtime; |
… | |
… | |
1767 | PROTOTYPE: $ |
1766 | PROTOTYPE: $ |
1768 | CODE: |
1767 | CODE: |
1769 | RETVAL = op->head_ (); |
1768 | RETVAL = op->head_ (); |
1770 | OUTPUT: RETVAL |
1769 | OUTPUT: RETVAL |
1771 | |
1770 | |
1772 | int is_head (object *op) |
|
|
1773 | PROTOTYPE: $ |
|
|
1774 | CODE: |
|
|
1775 | RETVAL = op->head_ () == op; |
|
|
1776 | OUTPUT: RETVAL |
|
|
1777 | |
|
|
1778 | void |
1771 | void |
1779 | inv (object *obj) |
1772 | inv (object *obj) |
1780 | PROTOTYPE: $ |
1773 | PROTOTYPE: $ |
1781 | PPCODE: |
1774 | PPCODE: |
1782 | { |
1775 | { |
… | |
… | |
1941 | CODE: |
1934 | CODE: |
1942 | RETVAL = archetype ? get_archetype (archetype) : cf_create_object (); |
1935 | RETVAL = archetype ? get_archetype (archetype) : cf_create_object (); |
1943 | OUTPUT: |
1936 | OUTPUT: |
1944 | RETVAL |
1937 | RETVAL |
1945 | |
1938 | |
|
|
1939 | # TODO: nuke |
1946 | object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y) |
1940 | object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y) |
1947 | PROTOTYPE: $$$$$$ |
1941 | PROTOTYPE: $$$$$$ |
1948 | CODE: |
1942 | CODE: |
1949 | { |
1943 | { |
1950 | int unused_type; |
1944 | int unused_type; |
… | |
… | |
2417 | CODE: |
2411 | CODE: |
2418 | RETVAL = archetype::find (name); |
2412 | RETVAL = archetype::find (name); |
2419 | OUTPUT: |
2413 | OUTPUT: |
2420 | RETVAL |
2414 | RETVAL |
2421 | |
2415 | |
2422 | archetype *first() |
2416 | int archetypes_size () |
2423 | PROTOTYPE: |
2417 | CODE: |
2424 | CODE: |
|
|
2425 | RETVAL = first_archetype; |
2418 | RETVAL = archetypes.size (); |
2426 | OUTPUT: RETVAL |
2419 | OUTPUT: RETVAL |
|
|
2420 | |
|
|
2421 | archetype *archetypes (U32 index) |
|
|
2422 | CODE: |
|
|
2423 | RETVAL = index < archetypes.size () ? archetypes [index] : 0; |
|
|
2424 | OUTPUT: RETVAL |
2427 | |
2425 | |
2428 | object *instantiate (archetype *arch) |
2426 | object *instantiate (archetype *arch) |
2429 | CODE: |
2427 | CODE: |
2430 | RETVAL = arch_to_object (arch); |
2428 | RETVAL = arch_to_object (arch); |
2431 | OUTPUT: |
2429 | OUTPUT: |