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.217 by root, Sun Jun 3 17:42:39 2007 UTC vs.
Revision 1.218 by root, Mon Jun 4 12:19:09 2007 UTC

… …
75# define newSVval64 newSVnv 75# define newSVval64 newSVnv
76# define SvVAL64 SvNV 76# define SvVAL64 SvNV
77#endif 77#endif
78 78
79static f_plug_api gethook = cfapi_get_hooks; 79static f_plug_api gethook = cfapi_get_hooks;
80static f_plug_api object_set_property = cfapi_object_set_property;
81static f_plug_api object_insert = cfapi_object_insert; 80static f_plug_api object_insert = cfapi_object_insert;
82 81
83static PerlInterpreter *perl; 82static PerlInterpreter *perl;
84 83
85double runtime; 84double 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
1772int is_head (object *op)
1773 PROTOTYPE: $
1774 CODE:
1775 RETVAL = op->head_ () == op;
1776 OUTPUT: RETVAL
1777
1778void 1771void
1779inv (object *obj) 1772inv (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
1946object *insert_ob_in_map_at (object *ob, maptile *where, object_ornull *orig, int flag, int x, int y) 1940object *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
2422archetype *first() 2416int archetypes_size ()
2423 PROTOTYPE: 2417 CODE:
2424 CODE:
2425 RETVAL = first_archetype; 2418 RETVAL = archetypes.size ();
2426 OUTPUT: RETVAL 2419 OUTPUT: RETVAL
2420
2421archetype *archetypes (U32 index)
2422 CODE:
2423 RETVAL = index < archetypes.size () ? archetypes [index] : 0;
2424 OUTPUT: RETVAL
2427 2425
2428object *instantiate (archetype *arch) 2426object *instantiate (archetype *arch)
2429 CODE: 2427 CODE:
2430 RETVAL = arch_to_object (arch); 2428 RETVAL = arch_to_object (arch);
2431 OUTPUT: 2429 OUTPUT:

Diff Legend

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