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.18 by root, Mon Aug 28 07:07:42 2006 UTC vs.
Revision 1.27 by root, Tue Aug 29 17:32:19 2006 UTC

… …
59 59
60typedef double val64; 60typedef double val64;
61#define newSVval64 newSVnv 61#define newSVval64 newSVnv
62#define SvVAL64 SvNV 62#define SvVAL64 SvNV
63 63
64static f_plug_api gethook; 64static f_plug_api gethook = cfapi_get_hooks;
65static f_plug_api systemDirectory; 65static f_plug_api object_set_property = cfapi_object_set_property;
66static f_plug_api object_set_property; 66static f_plug_api map_get_map = cfapi_map_get_map;
67static f_plug_api map_get_map; 67static f_plug_api object_insert = cfapi_object_insert;
68static f_plug_api object_insert;
69 68
70/* this is a stupid way to do things, and awkward to use for plug-in authors */ 69/* this is a stupid way to do things, and awkward to use for plug-in authors */
71typedef struct 70typedef struct
72{ 71{
73 object* who; 72 object* who;
… …
314 return newRV_inc ((SV *)ext->cb); 313 return newRV_inc ((SV *)ext->cb);
315} 314}
316 315
317void attachable_base::clear () 316void attachable_base::clear ()
318{ 317{
319 //if (self) fprintf (stderr, "free_ob_self %p %s (%p,%p)\n", this, ((object *)this)->name, self, cb);//D 318 if (self)
319 {
320 if (cb)
321 if (SvROK (*av_fetch ((AV *)cb, EVENT_OBJECT_DESTROY, 1)))
322 INVOKE_OBJECT (DESTROY, static_cast<object *>(this));
323 else if (SvROK (*av_fetch ((AV *)cb, EVENT_MAP_DESTROY, 1)))
324 INVOKE_MAP (DESTROY, static_cast<mapstruct *>(this));
320 325
326 // disconnect Perl from C, to avoid crashes
327 sv_unmagic (SvRV ((SV *)self), PERL_MAGIC_ext);
328
329 // clear the perl hash, might or might not be a good idea
330 hv_clear ((HV *)SvRV ((SV *)self));
331
321 if (self) SvREFCNT_dec (self); 332 SvREFCNT_dec (self);
333 self = 0;
334 }
335
336 if (cb)
337 {
322 if (cb) SvREFCNT_dec (cb); 338 SvREFCNT_dec (cb);
339 cb = 0;
340 }
323 341
342 if (attach)
343 {
324 if (attach) free_string (attach); 344 free_string (attach);
325
326 self = 0;
327 cb = 0;
328 attach = 0; 345 attach = 0;
346 }
329} 347}
330 348
331void attachable_base::optimise () 349void attachable_base::optimise ()
332{ 350{
333 if (!self) 351 if (!self)
… …
342 SvREFCNT_dec ((SV *)self); 360 SvREFCNT_dec ((SV *)self);
343 self = 0; 361 self = 0;
344 } 362 }
345} 363}
346 364
347void 365void attachable_base::instantiate (data_type type, void *obj)
348object::instantiate_ ()
349{ 366{
350 dSP; 367 dSP;
351 ENTER; 368 ENTER;
352 SAVETMPS; 369 SAVETMPS;
353 PUSHMARK (SP); 370 PUSHMARK (SP);
354 EXTEND (SP, 2); 371 EXTEND (SP, 2);
355 PUSHs (sv_2mortal (newSVdt (DT_OBJECT, static_cast<object *>(this)))); 372 PUSHs (sv_2mortal (newSVdt (type, obj)));
356 PUSHs (sv_2mortal (newSVpv (attach, 0))); 373 PUSHs (sv_2mortal (newSVpv (attach, 0)));
374
375 free_string (attach);
376 attach = 0;
377
357 PUTBACK; 378 PUTBACK;
358 call_pv ("cf::instantiate", G_DISCARD | G_VOID | G_EVAL); 379 call_pv ("cf::instantiate", G_DISCARD | G_VOID | G_EVAL);
359 FREETMPS; 380 FREETMPS;
360 LEAVE; 381 LEAVE;
361 382
362 INVOKE_OBJECT (INSTANTIATE, this); 383 switch (type)
384 {
385 case DT_OBJECT: INVOKE_OBJECT (INSTANTIATE, obj); break;
386 case DT_MAP: INVOKE_MAP (INSTANTIATE, obj); break;
387 }
363} 388}
364 389
365///////////////////////////////////////////////////////////////////////////// 390/////////////////////////////////////////////////////////////////////////////
366 391
367void reattach (data_type type, void *obj) 392void reattach (data_type type, void *obj)
368{ 393{
394 //TODO only do this when the object has _attachment's
395
369 dSP; 396 dSP;
370 ENTER; 397 ENTER;
371 SAVETMPS; 398 SAVETMPS;
372 PUSHMARK (SP); 399 PUSHMARK (SP);
373 XPUSHs (sv_2mortal (newSVdt (type, obj))); 400 XPUSHs (sv_2mortal (newSVdt (type, obj)));
… …
392 if (obj->self) 419 if (obj->self)
393 reattach (subclass::get_dt (), (subclass *)obj); 420 reattach (subclass::get_dt (), (subclass *)obj);
394} 421}
395 422
396object_freezer::object_freezer (const char *filename) 423object_freezer::object_freezer (const char *filename)
397: filename (filename)
398{ 424{
425 this->filename = (SV *)newSVpv (filename, 0);
426
427 char filename2 [4096];
428 snprintf (filename2, 4096, "%s~", filename);
429
430 fp = fopen (filename2, "w");
431
432 if (!fp)
433 LOG (llevError, "cannot open file '%s' for writing: %s\n", filename2, strerror (errno));
434
399 av = (AV *)newAV (); 435 av = (AV *)newAV ();
400} 436}
401 437
402object_freezer::~object_freezer () 438object_freezer::~object_freezer ()
403{ 439{
440 if (fp)
441 {
442 fclose (fp);
443
404 dSP; 444 dSP;
405 ENTER; 445 ENTER;
406 SAVETMPS; 446 SAVETMPS;
407 PUSHMARK (SP); 447 PUSHMARK (SP);
408 XPUSHs (sv_2mortal (newSVpv (filename, 0))); 448 XPUSHs (sv_2mortal ((SV *)filename));
409 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 449 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
410 PUTBACK; 450 PUTBACK;
411 call_pv ("cf::object_freezer_save", G_VOID | G_DISCARD | G_EVAL); 451 call_pv ("cf::object_freezer_save", G_VOID | G_DISCARD | G_EVAL);
412 FREETMPS; 452 FREETMPS;
413 LEAVE; 453 LEAVE;
454 }
455 else
456 SvREFCNT_dec ((SV *)filename);
414} 457}
415 458
416void object_freezer::put (FILE *fp, attachable_base *ext) 459void object_freezer::put (attachable_base *ext)
417{ 460{
418 ext->optimise (); 461 ext->optimise ();
419 462
420 if (ext->self) 463 if (ext->self)
421 { 464 {
… …
423 av_store ((AV *)av, idx, SvREFCNT_inc ((SV *)ext->self)); 466 av_store ((AV *)av, idx, SvREFCNT_inc ((SV *)ext->self));
424 fprintf (fp, "oid %d\n", idx); 467 fprintf (fp, "oid %d\n", idx);
425 } 468 }
426} 469}
427 470
428object_thawer::object_thawer (const char *filename) 471object_thawer::object_thawer (FILE *fp, const char *filename)
429{ 472{
473 this->fp = fp;
430 av = 0; 474 av = 0;
431 475
432 if (!filename) 476 if (!filename)
433 return; 477 return;
434 478
… …
473 reattach (type, obj); 517 reattach (type, obj);
474} 518}
475 519
476object_thawer::~object_thawer () 520object_thawer::~object_thawer ()
477{ 521{
478 if (av)
479 SvREFCNT_dec ((SV *)av); 522 if (av) SvREFCNT_dec ((AV *)av);
480} 523}
481 524
482///////////////////////////////////////////////////////////////////////////// 525/////////////////////////////////////////////////////////////////////////////
483 526
484extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr) 527extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
485{ 528{
486 gethook = gethooksptr;
487
488 return 0; 529 return 0;
489} 530}
490 531
491static CommArray_s rtn_cmd; 532static CommArray_s rtn_cmd;
492 533
… …
571 612
572extern "C" int cfperl_postInitPlugin () 613extern "C" int cfperl_postInitPlugin ()
573{ 614{
574 int hooktype = 1; 615 int hooktype = 1;
575 int rtype = 0; 616 int rtype = 0;
576
577 systemDirectory = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_system_directory");
578 object_set_property = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_set_property");
579 map_get_map = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_map_get_map");
580 object_insert = (void* (*)(int*, ...)) gethook (&rtype, hooktype, "cfapi_object_insert");
581 617
582 cf_init_plugin (gethook); 618 cf_init_plugin (gethook);
583 619
584 return 0; 620 return 0;
585} 621}
… …
1373 prop (CFAPI_INT, MAP_PROP_WPARTX) 1409 prop (CFAPI_INT, MAP_PROP_WPARTX)
1374 prop (CFAPI_INT, MAP_PROP_WPARTY) 1410 prop (CFAPI_INT, MAP_PROP_WPARTY)
1375 prop (CFAPI_STRING, MAP_PROP_MESSAGE) 1411 prop (CFAPI_STRING, MAP_PROP_MESSAGE)
1376 prop (CFAPI_PMAP, MAP_PROP_NEXT) 1412 prop (CFAPI_PMAP, MAP_PROP_NEXT)
1377 prop (CFAPI_PREGION, MAP_PROP_REGION) 1413 prop (CFAPI_PREGION, MAP_PROP_REGION)
1378 prop (CFAPI_POBJECT, OBJECT_PROP_OB_ABOVE)
1379 prop (CFAPI_POBJECT, OBJECT_PROP_OB_BELOW)
1380 prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB) 1414 prop (CFAPI_POBJECT, OBJECT_PROP_NEXT_ACTIVE_OB)
1381 prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB) 1415 prop (CFAPI_POBJECT, OBJECT_PROP_PREV_ACTIVE_OB)
1382 prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY) 1416 prop (CFAPI_POBJECT, OBJECT_PROP_INVENTORY)
1383 prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT) 1417 prop (CFAPI_POBJECT, OBJECT_PROP_ENVIRONMENT)
1384 prop (CFAPI_POBJECT, OBJECT_PROP_HEAD)
1385 prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER) 1418 prop (CFAPI_POBJECT, OBJECT_PROP_CONTAINER)
1386 prop (CFAPI_PMAP, OBJECT_PROP_MAP) 1419 prop (CFAPI_PMAP, OBJECT_PROP_MAP)
1387 prop (CFAPI_INT, OBJECT_PROP_COUNT) 1420 prop (CFAPI_INT, OBJECT_PROP_COUNT)
1388 prop (CFAPI_INT, OBJECT_PROP_REFCOUNT) 1421 prop (CFAPI_INT, OBJECT_PROP_REFCOUNT)
1389 prop (CFAPI_STRING, OBJECT_PROP_NAME) 1422 prop (CFAPI_STRING, OBJECT_PROP_NAME)
… …
1521 PROTOTYPE: $$ 1554 PROTOTYPE: $$
1522 1555
1523char *path_combine_and_normalize (char *base, char *path) 1556char *path_combine_and_normalize (char *base, char *path)
1524 PROTOTYPE: $$ 1557 PROTOTYPE: $$
1525 1558
1526char * 1559const char *
1527cf_get_maps_directory (char *path) 1560get_maps_directory (char *path)
1528 PROTOTYPE: $ 1561 PROTOTYPE: $
1529 ALIAS: maps_directory = 0 1562 ALIAS: maps_directory = 0
1563 CODE:
1564 RETVAL = create_pathname (path);
1565 OUTPUT: RETVAL
1530 1566
1531void 1567void
1532sub_generation_inc () 1568sub_generation_inc ()
1533 CODE: 1569 CODE:
1534 PL_sub_generation++; 1570 PL_sub_generation++;
… …
1543 confdir = 3 1579 confdir = 3
1544 localdir = 4 1580 localdir = 4
1545 playerdir = 5 1581 playerdir = 5
1546 datadir = 6 1582 datadir = 6
1547 CODE: 1583 CODE:
1548{ 1584 switch (ix)
1549 int unused_type; 1585 {
1550 RETVAL = (char *)systemDirectory (&unused_type, ix); 1586 case 0: RETVAL = settings.mapdir ; break;
1551} 1587 case 1: RETVAL = settings.uniquedir; break;
1588 case 2: RETVAL = settings.tmpdir ; break;
1589 case 3: RETVAL = settings.confdir ; break;
1590 case 4: RETVAL = settings.localdir ; break;
1591 case 5: RETVAL = settings.playerdir; break;
1592 case 6: RETVAL = settings.datadir ; break;
1593 }
1552 OUTPUT: RETVAL 1594 OUTPUT: RETVAL
1553 1595
1554int 1596int
1555cf_find_animation (char *text) 1597cf_find_animation (char *text)
1556 PROTOTYPE: $ 1598 PROTOTYPE: $
… …
1560const char *cost_string_from_value(uint64 cost, int approx = 0) 1602const char *cost_string_from_value(uint64 cost, int approx = 0)
1561 1603
1562int invoke (int event, ...) 1604int invoke (int event, ...)
1563 CODE: 1605 CODE:
1564 if (KLASS_OF (event) != KLASS_GLOBAL) croak ("event class must be GLOBAL"); 1606 if (KLASS_OF (event) != KLASS_GLOBAL) croak ("event class must be GLOBAL");
1565 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); for (int i = 1; i < items; i++) av_push (av, ST (i)); 1607 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
1608 for (int i = 1; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
1566 RETVAL = INVOKE_((event_type)event, ARG_AV (av)); 1609 RETVAL = INVOKE_((event_type)event, ARG_AV (av));
1567 OUTPUT: RETVAL 1610 OUTPUT: RETVAL
1568 1611
1569int 1612int
1570exp_to_level (val64 exp) 1613exp_to_level (val64 exp)
… …
1603 RETVAL = newSVpv (resist_plus[atnr], 0); 1646 RETVAL = newSVpv (resist_plus[atnr], 0);
1604 else 1647 else
1605 XSRETURN_UNDEF; 1648 XSRETURN_UNDEF;
1606 OUTPUT: RETVAL 1649 OUTPUT: RETVAL
1607 1650
1651int
1652_valid (SV *obj)
1653 CODE:
1654 RETVAL = SvROK (obj) && mg_find (SvRV (obj), PERL_MAGIC_ext);
1655 OUTPUT:
1656 RETVAL
1657
1608MODULE = cf PACKAGE = cf::object PREFIX = cf_object_ 1658MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
1609 1659
1610int invoke (object *op, int event, ...) 1660int invoke (object *op, int event, ...)
1611 CODE: 1661 CODE:
1612 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT"); 1662 if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
1613 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); for (int i = 2; i < items; i++) av_push (av, ST (i)); 1663 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
1664 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
1614 RETVAL = INVOKE_((event_type)event, ARG_OBJECT (op), ARG_AV (av)); 1665 RETVAL = INVOKE_((event_type)event, ARG_OBJECT (op), ARG_AV (av));
1615 OUTPUT: RETVAL 1666 OUTPUT: RETVAL
1616 1667
1617SV *registry (object *op) 1668SV *registry (object *op)
1618 CODE: 1669 CODE:
1619 RETVAL = registry_of (op); 1670 RETVAL = registry_of (op);
1620 OUTPUT: 1671 OUTPUT:
1672 RETVAL
1673
1674object *head (object *op)
1675 PROTOTYPE: $
1676 ALIAS:
1677 more = 1
1678 above = 2
1679 below = 3
1680 CODE:
1681 switch (ix)
1682 {
1683 case 0: RETVAL = op->head ? op->head : op; break; // DOH!
1684 case 1: RETVAL = op->more; break;
1685 case 2: RETVAL = op->above; break;
1686 case 3: RETVAL = op->below; break;
1687 }
1688 OUTPUT:
1621 RETVAL 1689 RETVAL
1622 1690
1623SV * 1691SV *
1624get_property (object *obj, int type, int idx) 1692get_property (object *obj, int type, int idx)
1625 CODE: 1693 CODE:
… …
1705 1773
1706int need_identify (const object *obj); 1774int need_identify (const object *obj);
1707 1775
1708int apply_shop_mat (object *shop_mat, object *op); 1776int apply_shop_mat (object *shop_mat, object *op);
1709 1777
1710void cf_object_move (object *op, int dir, object *originator = op) 1778int move (object *op, int dir, object *originator = op)
1779 CODE:
1780 RETVAL = move_ob (op, dir, originator);
1781 OUTPUT:
1782 RETVAL
1711 1783
1712void cf_object_apply (object *op, object *author, int flags = 0) 1784void cf_object_apply (object *op, object *author, int flags = 0)
1713 1785
1714void cf_object_apply_below (object *op) 1786void cf_object_apply_below (object *op)
1715 1787
… …
1908MODULE = cf PACKAGE = cf::player PREFIX = cf_player_ 1980MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1909 1981
1910int invoke (player *pl, int event, ...) 1982int invoke (player *pl, int event, ...)
1911 CODE: 1983 CODE:
1912 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER"); 1984 if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
1913 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); for (int i = 2; i < items; i++) av_push (av, ST (i)); 1985 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
1986 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
1914 RETVAL = INVOKE_((event_type)event, ARG_PLAYER (pl), ARG_AV (av)); 1987 RETVAL = INVOKE_((event_type)event, ARG_PLAYER (pl), ARG_AV (av));
1915 OUTPUT: RETVAL 1988 OUTPUT: RETVAL
1916 1989
1917SV *registry (player *pl) 1990SV *registry (player *pl)
1918 CODE: 1991 CODE:
… …
2045 OUTPUT: RETVAL 2118 OUTPUT: RETVAL
2046 2119
2047 2120
2048MODULE = cf PACKAGE = cf::map PREFIX = cf_map_ 2121MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
2049 2122
2123void
2124trigger (mapstruct *map, long connection, bool state = true)
2125 CODE:
2126 activate_connection (map, connection, state);
2127
2128void
2129get_connection (mapstruct *map, long connection)
2130 PPCODE:
2131{
2132 oblinkpt *obp = get_connection_links (map, connection);
2133 if (obp)
2134 for (objectlink *ol = obp->link; ol; ol = ol->next)
2135 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, ol->ob)));
2136}
2137
2050int invoke (mapstruct *map, int event, ...) 2138int invoke (mapstruct *map, int event, ...)
2051 CODE: 2139 CODE:
2052 if (KLASS_OF (event) != KLASS_MAP) croak ("event class must be MAP"); 2140 if (KLASS_OF (event) != KLASS_MAP) croak ("event class must be MAP");
2053 AV *av = (AV *)sv_2mortal ((SV *)newAV ()); for (int i = 2; i < items; i++) av_push (av, ST (i)); 2141 AV *av = (AV *)sv_2mortal ((SV *)newAV ());
2142 for (int i = 2; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
2054 RETVAL = INVOKE_((event_type)event, ARG_MAP (map), ARG_AV (av)); 2143 RETVAL = INVOKE_((event_type)event, ARG_MAP (map), ARG_AV (av));
2055 OUTPUT: 2144 OUTPUT: RETVAL
2056 RETVAL
2057 2145
2058SV *registry (mapstruct *map) 2146SV *registry (mapstruct *map)
2059 CODE: 2147 CODE:
2060 RETVAL = registry_of (map); 2148 RETVAL = registry_of (map);
2061 OUTPUT: 2149 OUTPUT:
… …
2154cf_map_normalise (mapstruct *map, int x, int y) 2242cf_map_normalise (mapstruct *map, int x, int y)
2155 PPCODE: 2243 PPCODE:
2156{ 2244{
2157 mapstruct *nmap = 0; 2245 mapstruct *nmap = 0;
2158 I16 nx = 0, ny = 0; 2246 I16 nx = 0, ny = 0;
2159 int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny); 2247 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
2160 2248
2161 EXTEND (SP, 4); 2249 EXTEND (SP, 4);
2162 PUSHs (sv_2mortal (newSViv (flags))); 2250 PUSHs (sv_2mortal (newSViv (flags)));
2163 2251
2164 if (GIMME_V == G_ARRAY) 2252 if (GIMME_V == G_ARRAY)
… …
2176{ 2264{
2177 object *o; 2265 object *o;
2178 mapstruct *nmap = 0; 2266 mapstruct *nmap = 0;
2179 I16 nx, ny; 2267 I16 nx, ny;
2180 2268
2181 cf_map_get_flags (map, &nmap, x, y, &nx, &ny); 2269 get_map_flags (map, &nmap, x, y, &nx, &ny);
2182 2270
2183 if (nmap) 2271 if (nmap)
2184 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above) 2272 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
2185 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o))); 2273 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
2186} 2274}
… …
2245 } 2333 }
2246 } 2334 }
2247} 2335}
2248 2336
2249 2337
2250MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 2338MODULE = cf PACKAGE = cf::arch
2251 2339
2252archetype *cf_archetype_get_first() 2340archetype *first()
2253 PROTOTYPE: 2341 PROTOTYPE:
2254 ALIAS: first = 0 2342 CODE:
2343 RETVAL = first_archetype;
2344 OUTPUT: RETVAL
2255 2345
2256archetype *cf_archetype_get_next (archetype *arch) 2346archetype *next (archetype *arch)
2257 ALIAS: next = 0 2347 CODE:
2348 RETVAL = arch->next;
2349 OUTPUT: RETVAL
2258 2350
2259archetype *cf_archetype_get_head (archetype *arch) 2351archetype *head (archetype *arch)
2260 ALIAS: head = 0 2352 CODE:
2353 RETVAL = arch->head;
2354 OUTPUT: RETVAL
2261 2355
2262archetype *cf_archetype_get_more (archetype *arch) 2356archetype *more (archetype *arch)
2263 ALIAS: more = 0 2357 CODE:
2358 RETVAL = arch->more;
2359 OUTPUT: RETVAL
2264 2360
2265const char *cf_archetype_get_name (archetype *arch) 2361const char *name (archetype *arch)
2266 ALIAS: name = 0 2362 CODE:
2363 RETVAL = arch->name;
2364 OUTPUT: RETVAL
2267 2365
2268object *cf_archetype_get_clone (archetype *arch) 2366object *clone (archetype *arch)
2269 ALIAS: clone = 0 2367 CODE:
2368 RETVAL = &arch->clone;
2369 OUTPUT: RETVAL
2270 2370
2271MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ 2371MODULE = cf PACKAGE = cf::party
2272 2372
2273partylist *cf_party_get_first () 2373partylist *first ()
2274 PROTOTYPE: 2374 PROTOTYPE:
2275 ALIAS: first = 0 2375 CODE:
2376 RETVAL = get_firstparty ();
2377 OUTPUT: RETVAL
2276 2378
2277partylist *cf_party_get_next (partylist *party) 2379partylist *next (partylist *party)
2278 ALIAS: next = 0 2380 CODE:
2381 RETVAL = party->next;
2382 OUTPUT: RETVAL
2279 2383
2280const char *cf_party_get_name (partylist *party) 2384const char *name (partylist *party)
2385 CODE:
2386 RETVAL = party->partyname;
2387 OUTPUT: RETVAL
2281 2388
2282const char *cf_party_get_password (partylist *party) 2389const char *password (partylist *party)
2283 ALIAS: password = 0 2390 CODE:
2391 RETVAL = party->passwd;
2392 OUTPUT: RETVAL
2284 2393
2285player *cf_party_get_first_player (partylist *party) 2394MODULE = cf PACKAGE = cf::region
2286 ALIAS: first_player = 0
2287 2395
2288player *cf_party_get_next_player (partylist *party, player *op) 2396region *first ()
2289 ALIAS: next_player = 0
2290
2291
2292MODULE = cf PACKAGE = cf::region PREFIX = cf_region_
2293
2294region *cf_region_get_first ()
2295 PROTOTYPE: 2397 PROTOTYPE:
2296 ALIAS: first = 0 2398 CODE:
2399 RETVAL = first_region;
2400 OUTPUT: RETVAL
2297 2401
2402region *next (region *reg)
2403 CODE:
2404 RETVAL = reg->next;
2405 OUTPUT: RETVAL
2406
2407const char *name (region *reg)
2408 CODE:
2409 RETVAL = reg->name;
2410 OUTPUT: RETVAL
2411
2412region *parent (region *reg)
2413 CODE:
2414 RETVAL = reg->parent;
2415 OUTPUT: RETVAL
2416
2298const char *cf_region_get_name (region *reg) 2417const char *longname (region *reg)
2299 ALIAS: name = 0 2418 CODE:
2419 RETVAL = reg->longname;
2420 OUTPUT: RETVAL
2300 2421
2301region *cf_region_get_next (region *reg) 2422const char *msg (region *reg)
2302 ALIAS: next = 0 2423 CODE:
2424 RETVAL = reg->msg;
2425 OUTPUT: RETVAL
2303 2426
2304region *cf_region_get_parent (region *reg) 2427MODULE = cf PACKAGE = cf::living
2305 ALIAS: parent = 0
2306
2307const char *cf_region_get_longname (region *reg)
2308 ALIAS: longname = 0
2309
2310const char *cf_region_get_message (region *reg)
2311 ALIAS: message = 0
2312
2313
2314MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
2315 2428
2316val64 2429val64
2317exp (living *liv, val64 new_val = 0) 2430exp (living *liv, val64 new_val = 0)
2318 PROTOTYPE: $;$ 2431 PROTOTYPE: $;$
2319 ALIAS: 2432 ALIAS:

Diff Legend

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