[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.14 by root, Sun Aug 27 13:02:04 2006 UTC vs.
Revision 1.19 by root, Mon Aug 28 07:54:11 2006 UTC

…		…
59		59
60	typedef double val64;	60	typedef double val64;
61	#define newSVval64 newSVnv	61	#define newSVval64 newSVnv
62	#define SvVAL64 SvNV	62	#define SvVAL64 SvNV
63		63
64	static f_plug_api gethook;	64	static f_plug_api gethook = cfapi_get_hooks;
65	static f_plug_api systemDirectory;	65	static f_plug_api object_set_property = cfapi_object_set_property;
66	static f_plug_api object_set_property;	66	static f_plug_api map_get_map = cfapi_map_get_map;
67	static f_plug_api map_get_map;	67	static f_plug_api object_insert = cfapi_object_insert;
68	static 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 */
71	typedef struct	70	typedef struct
72	{	71	{
73	object* who;	72	object* who;
…		…
108		107
109	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);	108	sv_magic ((SV )hv, 0, PERL_MAGIC_ext, (char )ptr, 0);
110	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));	109	return sv_bless (newRV_noinc ((SV *)hv), gv_stashpv (klass, 1));
111	}	110	}
112		111
113	template<class extendable>	112	template<class attachable>
114	SV *	113	SV *
115	newSVextendable (extendable obj, const char klass)	114	newSVattachable (attachable obj, const char klass)
116	{	115	{
117	if (!obj)	116	if (!obj)
118	return &PL_sv_undef;	117	return &PL_sv_undef;
119		118
120	if (!obj->self)	119	if (!obj->self)
…		…
227	break;	226	break;
228		227
229	case DT_OBJECT:	228	case DT_OBJECT:
230	{	229	{
231	object obj = va_arg (ap, object );	230	object obj = va_arg (ap, object );
232	sv = newSVextendable (obj, obj && obj->type == PLAYER ? "cf::object::player::wrap" : "cf::object::wrap");	231	sv = newSVattachable (obj, obj && obj->type == PLAYER ? "cf::object::player::wrap" : "cf::object::wrap");
233	}	232	}
234	break;	233	break;
235		234
236	case DT_MAP:	235	case DT_MAP:
237	// va_arg (object ) when void is passed is an XSI extension	236	// va_arg (object ) when void is passed is an XSI extension
238	sv = newSVextendable (va_arg (ap, mapstruct *), "cf::map::wrap");	237	sv = newSVattachable (va_arg (ap, mapstruct *), "cf::map::wrap");
239	break;	238	break;
240		239
241	case DT_PLAYER:	240	case DT_PLAYER:
242	sv = newSVextendable (va_arg (ap, player *), "cf::player::wrap");	241	sv = newSVattachable (va_arg (ap, player *), "cf::player::wrap");
243	break;	242	break;
244		243
245	case DT_ARCH:	244	case DT_ARCH:
246	sv = newSVptr (va_arg (ap, archetype *), "cf::arch::wrap");	245	sv = newSVptr (va_arg (ap, archetype *), "cf::arch::wrap");
247	break;	246	break;
…		…
304	}	303	}
305		304
306	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////	305	//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
307		306
308	SV *	307	SV *
309	registry_of (extendable_base *ext)	308	registry_of (attachable_base *ext)
310	{	309	{
311	if (!ext->cb)	310	if (!ext->cb)
312	ext->cb = newAV ();	311	ext->cb = newAV ();
313		312
314	return newRV_inc ((SV *)ext->cb);	313	return newRV_inc ((SV *)ext->cb);
315	}	314	}
316		315
317	void extendable_base::clear ()	316	void 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) fprintf (stderr, "free_ob_self %p %s (%p,%p)\n", this, ((object *)this)->name, self, cb);//D
320		319
321	if (self) SvREFCNT_dec (self);	320	if (self) SvREFCNT_dec (self);
322	if (cb) SvREFCNT_dec (cb);	321	if (cb) SvREFCNT_dec (cb);
…		…
326	self = 0;	325	self = 0;
327	cb = 0;	326	cb = 0;
328	attach = 0;	327	attach = 0;
329	}	328	}
330		329
331	void extendable_base::optimise ()	330	void attachable_base::optimise ()
332	{	331	{
333	if (!self)	332	if (!self)
334	return;	333	return;
335		334
336	HV hv = (HV )SvRV ((SV *)self);	335	HV hv = (HV )SvRV ((SV *)self);
…		…
356	PUSHs (sv_2mortal (newSVpv (attach, 0)));	355	PUSHs (sv_2mortal (newSVpv (attach, 0)));
357	PUTBACK;	356	PUTBACK;
358	call_pv ("cf::instantiate", G_DISCARD \| G_VOID \| G_EVAL);	357	call_pv ("cf::instantiate", G_DISCARD \| G_VOID \| G_EVAL);
359	FREETMPS;	358	FREETMPS;
360	LEAVE;	359	LEAVE;
		360
		361	INVOKE_OBJECT (INSTANTIATE, this);
361	}	362	}
362		363
363	/////////////////////////////////////////////////////////////////////////////	364	/////////////////////////////////////////////////////////////////////////////
		365
		366	void reattach (data_type type, void *obj)
		367	{
		368	dSP;
		369	ENTER;
		370	SAVETMPS;
		371	PUSHMARK (SP);
		372	XPUSHs (sv_2mortal (newSVdt (type, obj)));
		373	PUTBACK;
		374	call_pv ("cf::reattach", G_DISCARD \| G_VOID \| G_EVAL);
		375	FREETMPS;
		376	LEAVE;
		377
		378	switch (type)
		379	{
		380	case DT_OBJECT: INVOKE_OBJECT (REATTACH, obj); break;
		381	case DT_PLAYER: INVOKE_PLAYER (REATTACH, obj); break;
		382	case DT_MAP: INVOKE_MAP (REATTACH, obj); break;
		383	}
		384	}
		385
		386	template<class subclass>
		387	void reattach (attachable<subclass> *obj)
		388	{
		389	obj->optimise ();
		390
		391	if (obj->self)
		392	reattach (subclass::get_dt (), (subclass *)obj);
		393	}
364		394
365	object_freezer::object_freezer (const char *filename)	395	object_freezer::object_freezer (const char *filename)
366	: filename (filename)	396	: filename (filename)
367	{	397	{
368	av = (AV *)newAV ();	398	av = (AV *)newAV ();
369	idx = 0;
370	av_extend ((AV *)av, 1024);
371	}	399	}
372		400
373	object_freezer::~object_freezer ()	401	object_freezer::~object_freezer ()
374	{	402	{
375	dSP;	403	dSP;
…		…
382	call_pv ("cf::object_freezer_save", G_VOID \| G_DISCARD \| G_EVAL);	410	call_pv ("cf::object_freezer_save", G_VOID \| G_DISCARD \| G_EVAL);
383	FREETMPS;	411	FREETMPS;
384	LEAVE;	412	LEAVE;
385	}	413	}
386		414
387	void object_freezer::put (extendable_base *ext)	415	void object_freezer::put (FILE fp, attachable_base ext)
388	{	416	{
389	ext->optimise ();	417	ext->optimise ();
390		418
391	if (ext->self)	419	if (ext->self)
		420	{
		421	int idx = AvFILLp ((AV *)av) + 1;
392	av_store ((AV )av, idx, SvREFCNT_inc ((SV )ext->self));	422	av_store ((AV )av, idx, SvREFCNT_inc ((SV )ext->self));
393		423	fprintf (fp, "oid %d\n", idx);
394	++idx;	424	}
395	}	425	}
396		426
397	object_thawer::object_thawer (const char *filename)	427	object_thawer::object_thawer (const char *filename)
398	{	428	{
399	av = 0;	429	av = 0;
400	idx = 0;
401		430
402	if (!filename)	431	if (!filename)
403	return;	432	return;
404		433
405	dSP;	434	dSP;
…		…
419		448
420	FREETMPS;	449	FREETMPS;
421	LEAVE;	450	LEAVE;
422	}	451	}
423		452
424	void reattach (data_type type, void *obj)
425	{
426	dSP;
427	ENTER;
428	SAVETMPS;
429	PUSHMARK (SP);
430	XPUSHs (sv_2mortal (newSVdt (type, obj)));
431	PUTBACK;
432	call_pv ("cf::reattach", G_DISCARD \| G_VOID \| G_EVAL);
433	FREETMPS;
434	LEAVE;
435
436	switch (type)
437	{
438	case DT_OBJECT: INVOKE_OBJECT (REATTACH, obj); break;
439	case DT_PLAYER: INVOKE_PLAYER (REATTACH, obj); break;
440	case DT_MAP: INVOKE_MAP (REATTACH, obj); break;
441	}
442	}
443
444	template<class subclass>
445	void reattach (extendable<subclass> *obj)
446	{
447	if (obj->self)
448	reattach (subclass::get_dt (), (subclass *)obj);
449	}
450
451	void object_thawer::get (data_type type, void obj, extendable_base ext)	453	void object_thawer::get (data_type type, void obj, attachable_base ext, int oid)
452	{	454	{
453	if (!av)	455	if (!av \|\| oid < 0) // this is actually an error of sorts
454	return;	456	return;
455		457
456	// we have to "re-instantiate"/reattach to an object, so nuke ext->attach	458	// we have to "re-instantiate"/reattach to an object, so nuke ext->attach
457	ext->clear ();	459	ext->clear ();
458		460
459	SV *svp = av_fetch ((AV )av, idx, 0);	461	SV *svp = av_fetch ((AV )av, oid, 0);
460		462
461	++idx;
462
463	if (!svp)
464	return;
465
466	if (SvROK (*svp))	463	if (!svp \|\| !SvROK (*svp))
467	{	464	{
468	ext->self = SvREFCNT_inc (*svp);	465	printf ("trying to thaw duplicate or never-issued oid %d, ignoring.\n", oid);
469	sv_magic (SvRV ((SV )ext->self), 0, PERL_MAGIC_ext, (char )obj, 0);	466	return;
470
471	reattach (type, obj);
472	}	467	}
		468
		469	ext->self = svp; svp = &PL_sv_undef;
		470	sv_magic (SvRV ((SV )ext->self), 0, PERL_MAGIC_ext, (char )obj, 0);
		471
		472	reattach (type, obj);
473	}	473	}
474		474
475	object_thawer::~object_thawer ()	475	object_thawer::~object_thawer ()
476	{	476	{
477	if (av)	477	if (av)
…		…
480		480
481	/////////////////////////////////////////////////////////////////////////////	481	/////////////////////////////////////////////////////////////////////////////
482		482
483	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)	483	extern "C" int cfperl_initPlugin (const char *iversion, f_plug_api gethooksptr)
484	{	484	{
485	gethook = gethooksptr;
486	printf (PLUGIN_VERSION " init\n");
487
488	return 0;	485	return 0;
489	}	486	}
490		487
491	static CommArray_s rtn_cmd;	488	static CommArray_s rtn_cmd;
492		489
…		…
572	extern "C" int cfperl_postInitPlugin ()	569	extern "C" int cfperl_postInitPlugin ()
573	{	570	{
574	int hooktype = 1;	571	int hooktype = 1;
575	int rtype = 0;	572	int rtype = 0;
576		573
577	printf (PLUGIN_VERSION " post init\n");
578
579	systemDirectory = (void* ()(int, ...)) gethook (&rtype, hooktype, "cfapi_system_directory");
580	object_set_property = (void* ()(int, ...)) gethook (&rtype, hooktype, "cfapi_object_set_property");
581	map_get_map = (void* ()(int, ...)) gethook (&rtype, hooktype, "cfapi_map_get_map");
582	object_insert = (void* ()(int, ...)) gethook (&rtype, hooktype, "cfapi_object_insert");
583
584	cf_init_plugin (gethook);	574	cf_init_plugin (gethook);
585		575
586	return 0;	576	return 0;
587	}	577	}
588		578
…		…
636	static event_klass klass_of[NUM_EVENT_TYPES] = {	626	static event_klass klass_of[NUM_EVENT_TYPES] = {
637	# define def(type,name) KLASS_ ## type,	627	# define def(type,name) KLASS_ ## type,
638	# include "eventinc.h"	628	# include "eventinc.h"
639	# undef def	629	# undef def
640	};	630	};
		631
		632	#define KLASS_OF(event) (((unsigned int)event) < NUM_EVENT_TYPES ? klass_of [event] : KLASS_NONE)
641		633
642	static void	634	static void
643	gather_callbacks (AV &callbacks, AV registry, event_type event)	635	gather_callbacks (AV &callbacks, AV registry, event_type event)
644	{	636	{
645	// event must be in array	637	// event must be in array
…		…
688	// 2a. per-type callback	680	// 2a. per-type callback
689	// 4. global callbacks	681	// 4. global callbacks
690		682
691	gather_callbacks (callbacks, cb_global, event);	683	gather_callbacks (callbacks, cb_global, event);
692		684
693	switch (klass_of [event])	685	switch (KLASS_OF (event))
694	{	686	{
695	case KLASS_GLOBAL:	687	case KLASS_GLOBAL:
696	break;	688	break;
697		689
698	case KLASS_OBJECT:	690	case KLASS_OBJECT:
…		…
764	EXTEND (SP, 3);	756	EXTEND (SP, 3);
765		757
766	PUSHs (sv_2mortal (newSViv (event))); // only used for debugging nowadays	758	PUSHs (sv_2mortal (newSViv (event))); // only used for debugging nowadays
767	PUSHs (sv_2mortal (newRV_noinc ((SV *)callbacks)));	759	PUSHs (sv_2mortal (newRV_noinc ((SV *)callbacks)));
768		760
769	switch (klass_of [event])	761	switch (KLASS_OF (event))
770	{	762	{
771	case KLASS_OBJECT: PUSHs (sv_2mortal (newSVdt (DT_OBJECT, op))); break;	763	case KLASS_OBJECT: PUSHs (sv_2mortal (newSVdt (DT_OBJECT, op))); break;
772	case KLASS_PLAYER: PUSHs (sv_2mortal (newSVdt (DT_PLAYER, pl))); break;	764	case KLASS_PLAYER: PUSHs (sv_2mortal (newSVdt (DT_PLAYER, pl))); break;
773	case KLASS_MAP: PUSHs (sv_2mortal (newSVdt (DT_MAP, map))); break;	765	case KLASS_MAP: PUSHs (sv_2mortal (newSVdt (DT_MAP, map))); break;
774	}	766	}
…		…
1521	PROTOTYPE: $$	1513	PROTOTYPE: $$
1522		1514
1523	char path_combine_and_normalize (char base, char *path)	1515	char path_combine_and_normalize (char base, char *path)
1524	PROTOTYPE: $$	1516	PROTOTYPE: $$
1525		1517
1526	char *	1518	const char *
1527	cf_get_maps_directory (char *path)	1519	get_maps_directory (char *path)
1528	PROTOTYPE: $	1520	PROTOTYPE: $
1529	ALIAS: maps_directory = 0	1521	ALIAS: maps_directory = 0
		1522	CODE:
		1523	RETVAL = create_pathname (path);
		1524	OUTPUT: RETVAL
1530		1525
1531	void	1526	void
1532	sub_generation_inc ()	1527	sub_generation_inc ()
1533	CODE:	1528	CODE:
1534	PL_sub_generation++;	1529	PL_sub_generation++;
…		…
1543	confdir = 3	1538	confdir = 3
1544	localdir = 4	1539	localdir = 4
1545	playerdir = 5	1540	playerdir = 5
1546	datadir = 6	1541	datadir = 6
1547	CODE:	1542	CODE:
1548	{	1543	switch (ix)
1549	int unused_type;	1544	{
1550	RETVAL = (char *)systemDirectory (&unused_type, ix);	1545	case 0: RETVAL = settings.mapdir ; break;
1551	}	1546	case 1: RETVAL = settings.uniquedir; break;
		1547	case 2: RETVAL = settings.tmpdir ; break;
		1548	case 3: RETVAL = settings.confdir ; break;
		1549	case 4: RETVAL = settings.localdir ; break;
		1550	case 5: RETVAL = settings.playerdir; break;
		1551	case 6: RETVAL = settings.datadir ; break;
		1552	}
1552	OUTPUT: RETVAL	1553	OUTPUT: RETVAL
1553		1554
1554	int	1555	int
1555	cf_find_animation (char *text)	1556	cf_find_animation (char *text)
1556	PROTOTYPE: $	1557	PROTOTYPE: $
1557		1558
1558	int random_roll(int min, int max, object *op, int goodbad);	1559	int random_roll(int min, int max, object *op, int goodbad);
1559		1560
1560	const char *cost_string_from_value(uint64 cost, int approx = 0)	1561	const char *cost_string_from_value(uint64 cost, int approx = 0)
1561		1562
1562	int invoke (int event, SV *arg1, ...)	1563	int invoke (int event, ...)
1563	CODE:	1564	CODE:
1564	{	1565	if (KLASS_OF (event) != KLASS_GLOBAL) croak ("event class must be GLOBAL");
1565	// parse first arg and call invoke_object etc as seen fit	1566	AV av = (AV )sv_2mortal ((SV *)newAV ()); for (int i = 1; i < items; i++) av_push (av, ST (i));
1566	//TODO	1567	RETVAL = INVOKE_((event_type)event, ARG_AV (av));
1567	//cfperl_invoke (event,	1568	OUTPUT: RETVAL
1568	}
1569		1569
1570	int	1570	int
1571	exp_to_level (val64 exp)	1571	exp_to_level (val64 exp)
1572	CODE:	1572	CODE:
1573	{	1573	{
…		…
1605	else	1605	else
1606	XSRETURN_UNDEF;	1606	XSRETURN_UNDEF;
1607	OUTPUT: RETVAL	1607	OUTPUT: RETVAL
1608		1608
1609	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_	1609	MODULE = cf PACKAGE = cf::object PREFIX = cf_object_
		1610
		1611	int invoke (object *op, int event, ...)
		1612	CODE:
		1613	if (KLASS_OF (event) != KLASS_OBJECT) croak ("event class must be OBJECT");
		1614	AV av = (AV )sv_2mortal ((SV *)newAV ()); for (int i = 2; i < items; i++) av_push (av, ST (i));
		1615	RETVAL = INVOKE_((event_type)event, ARG_OBJECT (op), ARG_AV (av));
		1616	OUTPUT: RETVAL
		1617
		1618	SV registry (object op)
		1619	CODE:
		1620	RETVAL = registry_of (op);
		1621	OUTPUT:
		1622	RETVAL
1610		1623
1611	SV *	1624	SV *
1612	get_property (object *obj, int type, int idx)	1625	get_property (object *obj, int type, int idx)
1613	CODE:	1626	CODE:
1614	RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));	1627	RETVAL = newSVcfapi (type, cf_object_get_property (obj, idx));
…		…
1812	{	1825	{
1813	int unused_type;	1826	int unused_type;
1814	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);	1827	RETVAL = (object *)object_insert (&unused_type, ob, 0, where, orig, flag, x, y);
1815	}	1828	}
1816		1829
1817	SV registry (object op)
1818	CODE:
1819	RETVAL = registry_of (op);
1820	OUTPUT:
1821	RETVAL
1822
1823	# syntatic sugar for easier use in event callbacks.	1830	# syntatic sugar for easier use in event callbacks.
1824	const char options (object op)	1831	const char options (object op)
1825	CODE:	1832	CODE:
1826	RETVAL = op->name;	1833	RETVAL = op->name;
1827	OUTPUT:	1834	OUTPUT:
…		…
1899		1906
1900	void kill_player (object *op)	1907	void kill_player (object *op)
1901		1908
1902	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_	1909	MODULE = cf PACKAGE = cf::player PREFIX = cf_player_
1903		1910
		1911	int invoke (player *pl, int event, ...)
		1912	CODE:
		1913	if (KLASS_OF (event) != KLASS_PLAYER) croak ("event class must be PLAYER");
		1914	AV av = (AV )sv_2mortal ((SV *)newAV ()); for (int i = 2; i < items; i++) av_push (av, ST (i));
		1915	RETVAL = INVOKE_((event_type)event, ARG_PLAYER (pl), ARG_AV (av));
		1916	OUTPUT: RETVAL
		1917
1904	SV registry (player pl)	1918	SV registry (player pl)
1905	CODE:	1919	CODE:
1906	RETVAL = registry_of (pl);	1920	RETVAL = registry_of (pl);
1907	OUTPUT:	1921	OUTPUT:
1908	RETVAL	1922	RETVAL
…		…
2032	OUTPUT: RETVAL	2046	OUTPUT: RETVAL
2033		2047
2034		2048
2035	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_	2049	MODULE = cf PACKAGE = cf::map PREFIX = cf_map_
2036		2050
		2051	int invoke (mapstruct *map, int event, ...)
		2052	CODE:
		2053	if (KLASS_OF (event) != KLASS_MAP) croak ("event class must be MAP");
		2054	AV av = (AV )sv_2mortal ((SV *)newAV ()); for (int i = 2; i < items; i++) av_push (av, ST (i));
		2055	RETVAL = INVOKE_((event_type)event, ARG_MAP (map), ARG_AV (av));
		2056	OUTPUT:
		2057	RETVAL
		2058
2037	SV registry (mapstruct map)	2059	SV registry (mapstruct map)
2038	CODE:	2060	CODE:
2039	RETVAL = registry_of (map);	2061	RETVAL = registry_of (map);
2040	OUTPUT:	2062	OUTPUT:
2041	RETVAL	2063	RETVAL
…		…
2133	cf_map_normalise (mapstruct *map, int x, int y)	2155	cf_map_normalise (mapstruct *map, int x, int y)
2134	PPCODE:	2156	PPCODE:
2135	{	2157	{
2136	mapstruct *nmap = 0;	2158	mapstruct *nmap = 0;
2137	I16 nx = 0, ny = 0;	2159	I16 nx = 0, ny = 0;
2138	int flags = cf_map_get_flags (map, &nmap, x, y, &nx, &ny);	2160	int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
2139		2161
2140	EXTEND (SP, 4);	2162	EXTEND (SP, 4);
2141	PUSHs (sv_2mortal (newSViv (flags)));	2163	PUSHs (sv_2mortal (newSViv (flags)));
2142		2164
2143	if (GIMME_V == G_ARRAY)	2165	if (GIMME_V == G_ARRAY)
…		…
2155	{	2177	{
2156	object *o;	2178	object *o;
2157	mapstruct *nmap = 0;	2179	mapstruct *nmap = 0;
2158	I16 nx, ny;	2180	I16 nx, ny;
2159		2181
2160	cf_map_get_flags (map, &nmap, x, y, &nx, &ny);	2182	get_map_flags (map, &nmap, x, y, &nx, &ny);
2161		2183
2162	if (nmap)	2184	if (nmap)
2163	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)	2185	for (o = GET_MAP_OB (nmap, nx, ny); o; o = o->above)
2164	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));	2186	XPUSHs (sv_2mortal (newSVcfapi (CFAPI_POBJECT, o)));
2165	}	2187	}
…		…
2224	}	2246	}
2225	}	2247	}
2226	}	2248	}
2227		2249
2228		2250
2229	MODULE = cf PACKAGE = cf::arch PREFIX = cf_archetype_	2251	MODULE = cf PACKAGE = cf::arch
2230		2252
2231	archetype *cf_archetype_get_first()	2253	archetype *first()
2232	PROTOTYPE:	2254	PROTOTYPE:
2233	ALIAS: first = 0	2255	CODE:
		2256	RETVAL = first_archetype;
		2257	OUTPUT: RETVAL
2234		2258
2235	archetype cf_archetype_get_next (archetype arch)	2259	archetype next (archetype arch)
2236	ALIAS: next = 0	2260	CODE:
		2261	RETVAL = arch->next;
		2262	OUTPUT: RETVAL
2237		2263
2238	archetype cf_archetype_get_head (archetype arch)	2264	archetype head (archetype arch)
2239	ALIAS: head = 0	2265	CODE:
		2266	RETVAL = arch->head;
		2267	OUTPUT: RETVAL
2240		2268
2241	archetype cf_archetype_get_more (archetype arch)	2269	archetype more (archetype arch)
2242	ALIAS: more = 0	2270	CODE:
		2271	RETVAL = arch->more;
		2272	OUTPUT: RETVAL
2243		2273
2244	const char cf_archetype_get_name (archetype arch)	2274	const char name (archetype arch)
2245	ALIAS: name = 0	2275	CODE:
		2276	RETVAL = arch->name;
		2277	OUTPUT: RETVAL
2246		2278
2247	object cf_archetype_get_clone (archetype arch)	2279	object clone (archetype arch)
2248	ALIAS: clone = 0	2280	CODE:
		2281	RETVAL = &arch->clone;
		2282	OUTPUT: RETVAL
2249		2283
2250	MODULE = cf PACKAGE = cf::party PREFIX = cf_party_	2284	MODULE = cf PACKAGE = cf::party
2251		2285
2252	partylist *cf_party_get_first ()	2286	partylist *first ()
2253	PROTOTYPE:	2287	PROTOTYPE:
2254	ALIAS: first = 0	2288	CODE:
		2289	RETVAL = get_firstparty ();
		2290	OUTPUT: RETVAL
2255		2291
2256	partylist cf_party_get_next (partylist party)	2292	partylist next (partylist party)
2257	ALIAS: next = 0	2293	CODE:
		2294	RETVAL = party->next;
		2295	OUTPUT: RETVAL
2258		2296
2259	const char cf_party_get_name (partylist party)	2297	const char name (partylist party)
		2298	CODE:
		2299	RETVAL = party->partyname;
		2300	OUTPUT: RETVAL
2260		2301
2261	const char cf_party_get_password (partylist party)	2302	const char password (partylist party)
2262	ALIAS: password = 0	2303	CODE:
		2304	RETVAL = party->passwd;
		2305	OUTPUT: RETVAL
2263		2306
2264	player cf_party_get_first_player (partylist party)	2307	MODULE = cf PACKAGE = cf::region
2265	ALIAS: first_player = 0
2266		2308
2267	player cf_party_get_next_player (partylist party, player *op)	2309	region *first ()
2268	ALIAS: next_player = 0
2269
2270
2271	MODULE = cf PACKAGE = cf::region PREFIX = cf_region_
2272
2273	region *cf_region_get_first ()
2274	PROTOTYPE:	2310	PROTOTYPE:
2275	ALIAS: first = 0	2311	CODE:
		2312	RETVAL = first_region;
		2313	OUTPUT: RETVAL
2276		2314
		2315	region next (region reg)
		2316	CODE:
		2317	RETVAL = reg->next;
		2318	OUTPUT: RETVAL
		2319
		2320	const char name (region reg)
		2321	CODE:
		2322	RETVAL = reg->name;
		2323	OUTPUT: RETVAL
		2324
		2325	region parent (region reg)
		2326	CODE:
		2327	RETVAL = reg->parent;
		2328	OUTPUT: RETVAL
		2329
2277	const char cf_region_get_name (region reg)	2330	const char longname (region reg)
2278	ALIAS: name = 0	2331	CODE:
		2332	RETVAL = reg->longname;
		2333	OUTPUT: RETVAL
2279		2334
2280	region cf_region_get_next (region reg)	2335	const char msg (region reg)
2281	ALIAS: next = 0	2336	CODE:
		2337	RETVAL = reg->msg;
		2338	OUTPUT: RETVAL
2282		2339
2283	region cf_region_get_parent (region reg)	2340	MODULE = cf PACKAGE = cf::living
2284	ALIAS: parent = 0
2285
2286	const char cf_region_get_longname (region reg)
2287	ALIAS: longname = 0
2288
2289	const char cf_region_get_message (region reg)
2290	ALIAS: message = 0
2291
2292
2293	MODULE = cf PACKAGE = cf::living PREFIX = cf_living_
2294		2341
2295	val64	2342	val64
2296	exp (living *liv, val64 new_val = 0)	2343	exp (living *liv, val64 new_val = 0)
2297	PROTOTYPE: $;$	2344	PROTOTYPE: $;$
2298	ALIAS:	2345	ALIAS:

Diff Legend

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

Comparing deliantra/server/server/cfperl.xs (file contents): Revision 1.14 by root, Sun Aug 27 13:02:04 2006 UTC vs. Revision 1.19 by root, Mon Aug 28 07:54:11 2006 UTC

Diff Legend

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.14 by root, Sun Aug 27 13:02:04 2006 UTC vs.
Revision 1.19 by root, Mon Aug 28 07:54:11 2006 UTC