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.22 by root, Mon Aug 28 16:13:00 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)
… …
364 382
365///////////////////////////////////////////////////////////////////////////// 383/////////////////////////////////////////////////////////////////////////////
366 384
367void reattach (data_type type, void *obj) 385void reattach (data_type type, void *obj)
368{ 386{
387 //TODO only do this when the object has _attachment's
388
369 dSP; 389 dSP;
370 ENTER; 390 ENTER;
371 SAVETMPS; 391 SAVETMPS;
372 PUSHMARK (SP); 392 PUSHMARK (SP);
373 XPUSHs (sv_2mortal (newSVdt (type, obj))); 393 XPUSHs (sv_2mortal (newSVdt (type, obj)));
… …
392 if (obj->self) 412 if (obj->self)
393 reattach (subclass::get_dt (), (subclass *)obj); 413 reattach (subclass::get_dt (), (subclass *)obj);
394} 414}
395 415
396object_freezer::object_freezer (const char *filename) 416object_freezer::object_freezer (const char *filename)
397: filename (filename)
398{ 417{
418 this->filename = (SV *)newSVpv (filename, 0);
419
420 char filename2 [4096];
421 snprintf (filename2, 4096, "%s~", filename);
422
423 fp = fopen (filename2, "w");
424
425 if (!fp)
426 LOG (llevError, "cannot open file '%s' for writing: %s\n", filename2, strerror (errno));
427
399 av = (AV *)newAV (); 428 av = (AV *)newAV ();
400} 429}
401 430
402object_freezer::~object_freezer () 431object_freezer::~object_freezer ()
403{ 432{
433 if (fp)
434 {
435 fclose (fp);
436
404 dSP; 437 dSP;
405 ENTER; 438 ENTER;
406 SAVETMPS; 439 SAVETMPS;
407 PUSHMARK (SP); 440 PUSHMARK (SP);
408 XPUSHs (sv_2mortal (newSVpv (filename, 0))); 441 XPUSHs (sv_2mortal ((SV *)filename));
409 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av))); 442 XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
410 PUTBACK; 443 PUTBACK;
411 call_pv ("cf::object_freezer_save", G_VOID | G_DISCARD | G_EVAL); 444 call_pv ("cf::object_freezer_save", G_VOID | G_DISCARD | G_EVAL);
412 FREETMPS; 445 FREETMPS;
413 LEAVE; 446 LEAVE;
447 }
448 else
449 SvREFCNT_dec ((SV *)filename);
414} 450}
415 451
416void object_freezer::put (FILE *fp, attachable_base *ext) 452void object_freezer::put (attachable_base *ext)
417{ 453{
418 ext->optimise (); 454 ext->optimise ();
419 455
420 if (ext->self) 456 if (ext->self)
421 { 457 {
… …
423 av_store ((AV *)av, idx, SvREFCNT_inc ((SV *)ext->self)); 459 av_store ((AV *)av, idx, SvREFCNT_inc ((SV *)ext->self));
424 fprintf (fp, "oid %d\n", idx); 460 fprintf (fp, "oid %d\n", idx);
425 } 461 }
426} 462}
427 463
428object_thawer::object_thawer (const char *filename) 464object_thawer::object_thawer (FILE *fp, const char *filename)
429{ 465{
466 this->fp = fp;
430 av = 0; 467 av = 0;
431 468
432 if (!filename) 469 if (!filename)
433 return; 470 return;
434 471
… …
473 reattach (type, obj); 510 reattach (type, obj);
474} 511}
475 512
476object_thawer::~object_thawer () 513object_thawer::~object_thawer ()
477{ 514{
478 if (av)
479 SvREFCNT_dec ((SV *)av); 515 if (av) SvREFCNT_dec ((AV *)av);
480} 516}
481 517
482///////////////////////////////////////////////////////////////////////////// 518/////////////////////////////////////////////////////////////////////////////
483 519
484extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr) 520extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
485{ 521{
486 gethook = gethooksptr;
487
488 return 0; 522 return 0;
489} 523}
490 524
491static CommArray_s rtn_cmd; 525static CommArray_s rtn_cmd;
492 526
… …
571 605
572extern "C" int cfperl_postInitPlugin () 606extern "C" int cfperl_postInitPlugin ()
573{ 607{
574 int hooktype = 1; 608 int hooktype = 1;
575 int rtype = 0; 609 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 610
582 cf_init_plugin (gethook); 611 cf_init_plugin (gethook);
583 612
584 return 0; 613 return 0;
585} 614}
… …
1521 PROTOTYPE: $$ 1550 PROTOTYPE: $$
1522 1551
1523char *path_combine_and_normalize (char *base, char *path) 1552char *path_combine_and_normalize (char *base, char *path)
1524 PROTOTYPE: $$ 1553 PROTOTYPE: $$
1525 1554
1526char * 1555const char *
1527cf_get_maps_directory (char *path) 1556get_maps_directory (char *path)
1528 PROTOTYPE: $ 1557 PROTOTYPE: $
1529 ALIAS: maps_directory = 0 1558 ALIAS: maps_directory = 0
1559 CODE:
1560 RETVAL = create_pathname (path);
1561 OUTPUT: RETVAL
1530 1562
1531void 1563void
1532sub_generation_inc () 1564sub_generation_inc ()
1533 CODE: 1565 CODE:
1534 PL_sub_generation++; 1566 PL_sub_generation++;
… …
1543 confdir = 3 1575 confdir = 3
1544 localdir = 4 1576 localdir = 4
1545 playerdir = 5 1577 playerdir = 5
1546 datadir = 6 1578 datadir = 6
1547 CODE: 1579 CODE:
1548{ 1580 switch (ix)
1549 int unused_type; 1581 {
1550 RETVAL = (char *)systemDirectory (&unused_type, ix); 1582 case 0: RETVAL = settings.mapdir ; break;
1551} 1583 case 1: RETVAL = settings.uniquedir; break;
1584 case 2: RETVAL = settings.tmpdir ; break;
1585 case 3: RETVAL = settings.confdir ; break;
1586 case 4: RETVAL = settings.localdir ; break;
1587 case 5: RETVAL = settings.playerdir; break;
1588 case 6: RETVAL = settings.datadir ; break;
1589 }
1552 OUTPUT: RETVAL 1590 OUTPUT: RETVAL
1553 1591
1554int 1592int
1555cf_find_animation (char *text) 1593cf_find_animation (char *text)
1556 PROTOTYPE: $ 1594 PROTOTYPE: $
… …
2154cf_map_normalise (mapstruct *map, int x, int y) 2192cf_map_normalise (mapstruct *map, int x, int y)
2155 PPCODE: 2193 PPCODE:
2156{ 2194{
2157 mapstruct *nmap = 0; 2195 mapstruct *nmap = 0;
2158 I16 nx = 0, ny = 0; 2196 I16 nx = 0, ny = 0;
2159 int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny); 2197 int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
2160 2198
2161 EXTEND (SP, 4); 2199 EXTEND (SP, 4);
2162 PUSHs (sv_2mortal (newSViv (flags))); 2200 PUSHs (sv_2mortal (newSViv (flags)));
2163 2201
2164 if (GIMME_V == G_ARRAY) 2202 if (GIMME_V == G_ARRAY)
… …
2176{ 2214{
2177 object *o; 2215 object *o;
2178 mapstruct *nmap = 0; 2216 mapstruct *nmap = 0;
2179 I16 nx, ny; 2217 I16 nx, ny;
2180 2218
2181 cf_map_get_flags (map, &nmap, x, y, &nx, &ny); 2219 get_map_flags (map, &nmap, x, y, &nx, &ny);
2182 2220
2183 if (nmap) 2221 if (nmap)
2184 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above) 2222 for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
2185 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o))); 2223 XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
2186} 2224}
… …
2245 } 2283 }
2246 } 2284 }
2247} 2285}
2248 2286
2249 2287
2250MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_ 2288MODULE = cf PACKAGE = cf::arch
2251 2289
2252archetype *cf_archetype_get_first() 2290archetype *first()
2253 PROTOTYPE: 2291 PROTOTYPE:
2254 ALIAS: first = 0 2292 CODE:
2293 RETVAL = first_archetype;
2294 OUTPUT: RETVAL
2255 2295
2256archetype *cf_archetype_get_next (archetype *arch) 2296archetype *next (archetype *arch)
2257 ALIAS: next = 0 2297 CODE:
2298 RETVAL = arch->next;
2299 OUTPUT: RETVAL
2258 2300
2259archetype *cf_archetype_get_head (archetype *arch) 2301archetype *head (archetype *arch)
2260 ALIAS: head = 0 2302 CODE:
2303 RETVAL = arch->head;
2304 OUTPUT: RETVAL
2261 2305
2262archetype *cf_archetype_get_more (archetype *arch) 2306archetype *more (archetype *arch)
2263 ALIAS: more = 0 2307 CODE:
2308 RETVAL = arch->more;
2309 OUTPUT: RETVAL
2264 2310
2265const char *cf_archetype_get_name (archetype *arch) 2311const char *name (archetype *arch)
2266 ALIAS: name = 0 2312 CODE:
2313 RETVAL = arch->name;
2314 OUTPUT: RETVAL
2267 2315
2268object *cf_archetype_get_clone (archetype *arch) 2316object *clone (archetype *arch)
2269 ALIAS: clone = 0 2317 CODE:
2318 RETVAL = &arch->clone;
2319 OUTPUT: RETVAL
2270 2320
2271MODULE = cf PACKAGE = cf::party PREFIX = cf_party_ 2321MODULE = cf PACKAGE = cf::party
2272 2322
2273partylist *cf_party_get_first () 2323partylist *first ()
2274 PROTOTYPE: 2324 PROTOTYPE:
2275 ALIAS: first = 0 2325 CODE:
2326 RETVAL = get_firstparty ();
2327 OUTPUT: RETVAL
2276 2328
2277partylist *cf_party_get_next (partylist *party) 2329partylist *next (partylist *party)
2278 ALIAS: next = 0 2330 CODE:
2331 RETVAL = party->next;
2332 OUTPUT: RETVAL
2279 2333
2280const char *cf_party_get_name (partylist *party) 2334const char *name (partylist *party)
2335 CODE:
2336 RETVAL = party->partyname;
2337 OUTPUT: RETVAL
2281 2338
2282const char *cf_party_get_password (partylist *party) 2339const char *password (partylist *party)
2283 ALIAS: password = 0 2340 CODE:
2341 RETVAL = party->passwd;
2342 OUTPUT: RETVAL
2284 2343
2285player *cf_party_get_first_player (partylist *party) 2344MODULE = cf PACKAGE = cf::region
2286 ALIAS: first_player = 0
2287 2345
2288player *cf_party_get_next_player (partylist *party, player *op) 2346region *first ()
2289 ALIAS: next_player = 0
2290
2291
2292MODULE = cf PACKAGE = cf::region PREFIX = cf_region_
2293
2294region *cf_region_get_first ()
2295 PROTOTYPE: 2347 PROTOTYPE:
2296 ALIAS: first = 0 2348 CODE:
2349 RETVAL = first_region;
2350 OUTPUT: RETVAL
2297 2351
2352region *next (region *reg)
2353 CODE:
2354 RETVAL = reg->next;
2355 OUTPUT: RETVAL
2356
2357const char *name (region *reg)
2358 CODE:
2359 RETVAL = reg->name;
2360 OUTPUT: RETVAL
2361
2362region *parent (region *reg)
2363 CODE:
2364 RETVAL = reg->parent;
2365 OUTPUT: RETVAL
2366
2298const char *cf_region_get_name (region *reg) 2367const char *longname (region *reg)
2299 ALIAS: name = 0 2368 CODE:
2369 RETVAL = reg->longname;
2370 OUTPUT: RETVAL
2300 2371
2301region *cf_region_get_next (region *reg) 2372const char *msg (region *reg)
2302 ALIAS: next = 0 2373 CODE:
2374 RETVAL = reg->msg;
2375 OUTPUT: RETVAL
2303 2376
2304region *cf_region_get_parent (region *reg) 2377MODULE = 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 2378
2316val64 2379val64
2317exp (living *liv, val64 new_val = 0) 2380exp (living *liv, val64 new_val = 0)
2318 PROTOTYPE: $;$ 2381 PROTOTYPE: $;$
2319 ALIAS: 2382 ALIAS:

Diff Legend

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