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.227 by root, Tue Jul 10 16:24:00 2007 UTC vs.
Revision 1.251 by root, Sun Sep 9 12:52:48 2007 UTC

… …
53#include "CoroAPI.h" 53#include "CoroAPI.h"
54#include "perlxsi.c" 54#include "perlxsi.c"
55 55
56extern sint64 *levels; // the experience table 56extern sint64 *levels; // the experience table
57 57
58typedef object object_ornull; 58typedef object_thawer &object_thawer_ref;
59typedef maptile maptile_ornull; 59typedef object_freezer &object_freezer_ref;
60
61typedef char *octet_string;
62typedef char *utf8_string;
63typedef const char *const_octet_string;
64typedef const char *const_utf8_string;
65 60
66typedef std::string std__string; 61typedef std::string std__string;
67 62
68#if IVSIZE >= 8 63#if IVSIZE >= 8
69 typedef IV val64; 64 typedef IV val64;
… …
99 *stash_cf_arch_wrap, 94 *stash_cf_arch_wrap,
100 *stash_cf_party_wrap, 95 *stash_cf_party_wrap,
101 *stash_cf_region_wrap, 96 *stash_cf_region_wrap,
102 *stash_cf_living_wrap; 97 *stash_cf_living_wrap;
103 98
99static inline SV *
100newSVpv_utf8 (const char *s)
101{
102 SV *sv = newSVpv (s, 0);
103 SvUTF8_on (sv);
104 return sv;
105}
106
107static inline SV *
108newSVpvn_utf8 (const char *s, STRLEN l)
109{
110 SV *sv = newSVpvn (s, l);
111 SvUTF8_on (sv);
112 return sv;
113}
114
104// helper cast function, returns super class * or 0 115// helper cast function, returns super class * or 0
105template<class super> 116template<class super>
106static super * 117static super *
107is_a (attachable *at) 118is_a (attachable *at)
108{ 119{
… …
246 delete obj; 257 delete obj;
247 } 258 }
248 } 259 }
249} 260}
250 261
262void
263attachable::set_key (const char *key, const char *value, bool is_utf8)
264{
265 if (!self)
266 self = newHV ();
267
268 if (value)
269 hv_store (self, key, strlen (key), is_utf8 ? newSVpv_utf8 (value) : newSVpv (value, 0), 0);
270 else
271 hv_delete (self, key, strlen (key), G_DISCARD);
272}
273
251attachable & 274attachable &
252attachable::operator =(const attachable &src) 275attachable::operator =(const attachable &src)
253{ 276{
254 //if (self || cb) 277 //if (self || cb)
255 //INVOKE_OBJECT (CLONE, this, ARG_OBJECT (dst)); 278 //INVOKE_OBJECT (CLONE, this, ARG_OBJECT (dst));
… …
330{ 353{
331 if (!obj) 354 if (!obj)
332 return &PL_sv_undef; 355 return &PL_sv_undef;
333 356
334 if (!obj->self) 357 if (!obj->self)
358 obj->self = newHV ();
359
360 if (!SvOBJECT (obj->self))
335 { 361 {
336 obj->self = newHV ();
337 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0); 362 sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
338 363
339 // now bless the object _once_ 364 // now bless the object _once_
365 //TODO: create a class registry with c++ type<=>perl name<=>stash and use it here and elsewhere
340 return sv_bless (newRV_inc ((SV *)obj->self), stash); 366 return sv_bless (newRV_inc ((SV *)obj->self), stash);
341 } 367 }
342 else 368 else
343 { 369 {
344 SV *sv = newRV_inc ((SV *)obj->self); 370 SV *sv = newRV_inc ((SV *)obj->self);
… …
381 return SvPTR (sv, klass); 407 return SvPTR (sv, klass);
382 else 408 else
383 return 0; 409 return 0;
384} 410}
385 411
386static inline SV *
387newSVpv_utf8 (const char *s)
388{
389 SV *sv = newSVpv (s, 0);
390 SvUTF8_on (sv);
391 return sv;
392}
393
394static inline SV *
395newSVpvn_utf8 (const char *s, STRLEN l)
396{
397 SV *sv = newSVpvn (s, l);
398 SvUTF8_on (sv);
399 return sv;
400}
401
402inline SV *to_sv (const shstr & v) { return v ? newSVpvn_utf8 ((const char *)v, v.length ()) : &PL_sv_undef; } 412inline SV *to_sv (const shstr & v) { return v ? newSVpvn_utf8 ((const char *)v, v.length ()) : &PL_sv_undef; }
403inline SV *to_sv (const char * v) { return newSVpv (v, 0); } 413inline SV *to_sv (const char * v) { return v ? newSVpv (v, 0) : &PL_sv_undef; }
404inline SV *to_sv (bool v) { return newSViv (v); } 414inline SV *to_sv (bool v) { return newSViv (v); }
405inline SV *to_sv ( signed char v) { return newSViv (v); } 415inline SV *to_sv ( signed char v) { return newSViv (v); }
406inline SV *to_sv (unsigned char v) { return newSViv (v); } 416inline SV *to_sv (unsigned char v) { return newSViv (v); }
407inline SV *to_sv ( signed short v) { return newSViv (v); } 417inline SV *to_sv ( signed short v) { return newSViv (v); }
408inline SV *to_sv (unsigned short v) { return newSVuv (v); } 418inline SV *to_sv (unsigned short v) { return newSVuv (v); }
… …
417inline SV *to_sv (client * v) { return newSVattachable (v, stash_cf_client_wrap); } 427inline SV *to_sv (client * v) { return newSVattachable (v, stash_cf_client_wrap); }
418inline SV *to_sv (player * v) { return newSVattachable (v, stash_cf_player_wrap); } 428inline SV *to_sv (player * v) { return newSVattachable (v, stash_cf_player_wrap); }
419inline SV *to_sv (object * v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); } 429inline SV *to_sv (object * v) { return newSVattachable (v, v && v->type == PLAYER ? stash_cf_object_player_wrap : stash_cf_object_wrap); }
420inline SV *to_sv (maptile * v) { return newSVattachable (v, stash_cf_map_wrap); } 430inline SV *to_sv (maptile * v) { return newSVattachable (v, stash_cf_map_wrap); }
421inline SV *to_sv (archetype * v) { return newSVattachable (v, stash_cf_arch_wrap); } 431inline SV *to_sv (archetype * v) { return newSVattachable (v, stash_cf_arch_wrap); }
432inline SV *to_sv (region * v) { return newSVattachable (v, stash_cf_region_wrap); }
422inline SV *to_sv (partylist * v) { return newSVptr (v, stash_cf_party_wrap); } 433inline SV *to_sv (partylist * v) { return newSVptr (v, stash_cf_party_wrap); }
423inline SV *to_sv (region * v) { return newSVptr (v, stash_cf_region_wrap); }
424inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); } 434inline SV *to_sv (living * v) { return newSVptr (v, stash_cf_living_wrap); }
425 435
426inline SV *to_sv (object & v) { return to_sv (&v); } 436inline SV *to_sv (object & v) { return to_sv (&v); }
427inline SV *to_sv (living & v) { return to_sv (&v); } 437inline SV *to_sv (living & v) { return to_sv (&v); }
428 438
… …
434 char buf[128]; 444 char buf[128];
435 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq); 445 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
436 return newSVpv (buf, 0); 446 return newSVpv (buf, 0);
437} 447}
438 448
439inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; } 449inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
440inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 450inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
441inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 451inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
442inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 452inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
443inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); } 453inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }
444inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); } 454inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }
445inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); } 455inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); }
446inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); } 456inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); }
447inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); } 457inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); }
448inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); } 458inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); }
449inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); } 459inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }
450inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); } 460inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); }
451inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); } 461inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); }
452inline void sv_to (SV *sv, float &v) { v = SvNV (sv); } 462inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }
453inline void sv_to (SV *sv, double &v) { v = SvNV (sv); } 463inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }
454inline void sv_to (SV *sv, client * &v) { v = (client *)(attachable *)SvPTR_ornull (sv, "cf::client"); } 464inline void sv_to (SV *sv, client * &v) { v = (client *)(attachable *)SvPTR_ornull (sv, "cf::client"); }
455inline void sv_to (SV *sv, player * &v) { v = (player *)(attachable *)SvPTR_ornull (sv, "cf::player"); } 465inline void sv_to (SV *sv, player * &v) { v = (player *)(attachable *)SvPTR_ornull (sv, "cf::player"); }
456inline void sv_to (SV *sv, object * &v) { v = (object *)(attachable *)SvPTR_ornull (sv, "cf::object"); } 466inline void sv_to (SV *sv, object * &v) { v = (object *)(attachable *)SvPTR_ornull (sv, "cf::object"); }
457inline void sv_to (SV *sv, archetype * &v) { v = (archetype *)(attachable *)SvPTR_ornull (sv, "cf::arch"); } 467inline void sv_to (SV *sv, archetype * &v) { v = (archetype *)(attachable *)SvPTR_ornull (sv, "cf::arch"); }
458inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)(attachable *)SvPTR_ornull (sv, "cf::map"); } 468inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)(attachable *)SvPTR_ornull (sv, "cf::map"); }
469inline void sv_to (SV *sv, region * &v) { v = (region *)(attachable *)SvPTR_ornull (sv, "cf::region"); }
459inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); } 470inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
460inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); } 471inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
461inline void sv_to (SV *sv, region * &v) { v = (region *)SvPTR_ornull (sv, "cf::region"); }
462inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); } 472inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
473inline void sv_to (SV *sv, object_freezer * &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
474inline void sv_to (SV *sv, object_thawer * &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
463 475
464//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; } 476//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
465inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); } 477inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
466 478
467template<class T> 479template<class T>
468inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; } 480inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
469 481
470template<int N> 482template<int N>
471inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); } 483inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
472 484
473inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); } 485inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
474inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); } 486inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
475inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 487inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
476inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); } 488inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
477 489
478inline void sv_to (SV *sv, std::string &v) 490inline void sv_to (SV *sv, std::string &v)
479{ 491{
480 STRLEN len; 492 STRLEN len;
481 char *data = SvPVbyte (sv, len); 493 char *data = SvPVbyte (sv, len);
482 v.assign (data, len); 494 v.assign (data, len);
483} 495}
484 496
485inline void sv_to (SV *sv, UUID &v) 497inline void sv_to (SV *sv, UUID &v)
486{ 498{
487 unsigned int version; 499 unsigned int version;
488 500
489 if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) || 1 != version) 501 if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) || 1 != version)
490 croak ("unparsable uuid: %s", SvPV_nolen (sv)); 502 croak ("unparsable uuid: %s", SvPV_nolen (sv));
… …
949} 961}
950 962
951SV * 963SV *
952cfperl_result (int idx) 964cfperl_result (int idx)
953{ 965{
954 AV *av = get_av ("cfperl::invoke_results", 0); 966 AV *av = get_av ("cf::INVOKE_RESULTS", 0);
955 if (!av) 967 if (!av)
956 return &PL_sv_undef; 968 return &PL_sv_undef;
957 969
958 SV **sv = av_fetch (av, idx, 0); 970 SV **sv = av_fetch (av, idx, 0);
959 if (!sv) 971 if (!sv)
… …
973{ 985{
974 return SvNV (cfperl_result (idx)); 986 return SvNV (cfperl_result (idx));
975} 987}
976 988
977///////////////////////////////////////////////////////////////////////////// 989/////////////////////////////////////////////////////////////////////////////
990// various c++ => perl glue functions
978 991
979void 992void
980cfperl_emergency_save () 993cfperl_emergency_save ()
981{ 994{
982 CALL_BEGIN (0); 995 CALL_BEGIN (0);
… …
1006void 1019void
1007cfperl_send_msg (client *ns, int color, const char *type, const char *msg) 1020cfperl_send_msg (client *ns, int color, const char *type, const char *msg)
1008{ 1021{
1009 CALL_BEGIN (4); 1022 CALL_BEGIN (4);
1010 CALL_ARG (ns); 1023 CALL_ARG (ns);
1011 CALL_ARG (color);
1012 CALL_ARG (type); 1024 CALL_ARG (type);
1013 CALL_ARG_SV (newSVpv_utf8 (msg)); 1025 CALL_ARG_SV (newSVpv_utf8 (msg));
1026 CALL_ARG (color);
1014 CALL_CALL ("cf::client::send_msg", G_VOID); 1027 CALL_CALL ("cf::client::send_msg", G_VOID);
1015 CALL_END; 1028 CALL_END;
1029}
1030
1031int
1032cfperl_can_merge (object *ob1, object *ob2)
1033{
1034 int can;
1035
1036 CALL_BEGIN (2);
1037 CALL_ARG (ob1);
1038 CALL_ARG (ob2);
1039 CALL_CALL ("cf::_can_merge", G_SCALAR);
1040 can = count && SvTRUE (TOPs);
1041 CALL_END;
1042
1043 return can;
1044}
1045
1046player *
1047player::find (const char *name)
1048{
1049 CALL_BEGIN (1);
1050 CALL_ARG (name);
1051 CALL_CALL ("cf::player::find", G_SCALAR);
1052
1053 player *retval;
1054
1055 if (count)
1056 sv_to (POPs, retval);
1057 else
1058 retval = 0;
1059
1060 CALL_END;
1061
1062 return retval;
1016} 1063}
1017 1064
1018maptile * 1065maptile *
1019maptile::find_sync (const char *path, maptile *origin) 1066maptile::find_sync (const char *path, maptile *origin)
1020{ 1067{
… …
1034 1081
1035 return retval; 1082 return retval;
1036} 1083}
1037 1084
1038maptile * 1085maptile *
1039maptile::find_async (const char *path, maptile *origin) 1086maptile::find_async (const char *path, maptile *origin, bool load)
1040{ 1087{
1041 CALL_BEGIN (2); 1088 CALL_BEGIN (3);
1042 CALL_ARG (path); 1089 CALL_ARG (path);
1043 CALL_ARG (origin); 1090 CALL_ARG (origin);
1091 CALL_ARG (load);
1044 CALL_CALL ("cf::map::find_async", G_SCALAR); 1092 CALL_CALL ("cf::map::find_async", G_SCALAR);
1045 1093
1046 maptile *retval; 1094 maptile *retval;
1047 1095
1048 if (count) 1096 if (count)
… …
1082 CALL_BEGIN (2); 1130 CALL_BEGIN (2);
1083 CALL_ARG (this); 1131 CALL_ARG (this);
1084 CALL_ARG (exit); 1132 CALL_ARG (exit);
1085 CALL_CALL ("cf::object::player::enter_exit", G_VOID); 1133 CALL_CALL ("cf::object::player::enter_exit", G_VOID);
1086 CALL_END; 1134 CALL_END;
1135}
1136
1137const char *
1138object::ref () const
1139{
1140 if (type == PLAYER)
1141 return format ("player/<1.%llx>/%s", (unsigned long long)uuid.seq, &name);
1142 else
1143 return 0;
1144}
1145
1146object *
1147object::deref (const char *ref)
1148{
1149 object *retval = 0;
1150
1151 if (ref)
1152 {
1153 CALL_BEGIN (1);
1154 CALL_ARG (ref);
1155 CALL_CALL ("cf::object::deref", G_SCALAR);
1156
1157 if (count)
1158 sv_to (POPs, retval);
1159
1160 CALL_END;
1161 }
1162
1163 return retval;
1087} 1164}
1088 1165
1089void 1166void
1090log_backtrace (const char *msg) 1167log_backtrace (const char *msg)
1091{ 1168{
… …
1346 const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED) 1423 const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1347 const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON) 1424 const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1348 const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON) 1425 const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1349 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK) 1426 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1350 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL) 1427 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1351 const_iv (FLAG_OBJ_SAVE_ON_OVL) const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER) 1428 const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1352 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE) 1429 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1353 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE) 1430 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1354 1431
1355 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED) 1432 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1356 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN) 1433 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1357 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD) 1434 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1358 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE) 1435 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1359 const_iv (NDI_ALL) 1436 const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1437 const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)
1360 1438
1361 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE) 1439 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1362 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF) 1440 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1363 1441
1364 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE) 1442 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
… …
1471 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING) 1549 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1472 1550
1473 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT) 1551 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1474 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP) 1552 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1475 1553
1554 const_iv (VERSION_CS) const_iv (VERSION_SC)
1555
1476 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT) 1556 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1477 1557
1478 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM) 1558 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1479 1559
1480 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES) 1560 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
… …
1491 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY) 1571 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1492 1572
1493 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP) 1573 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1494 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV) 1574 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
1495 const_iv (GT_MINIMAL) 1575 const_iv (GT_MINIMAL)
1576
1577 const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1578 const_iv (FT_RSRC) const_iv (FT_NUM)
1496 }; 1579 };
1497 1580
1498 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1581 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1499 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); 1582 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1500 1583
… …
1534 1617
1535 for_all_objects (op) 1618 for_all_objects (op)
1536 op->reattach (); 1619 op->reattach ();
1537} 1620}
1538 1621
1539void _post_tick ()
1540 CODE:
1541 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1542
1543# support function for map-world.ext 1622# support function for map-world.ext
1544void _quantise (SV *data_sv, SV *plt_sv) 1623void _quantise (SV *data_sv, SV *plt_sv)
1545 CODE: 1624 CODE:
1546{ 1625{
1547 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV) 1626 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
… …
1579 len -= 3; 1658 len -= 3;
1580 } 1659 }
1581 1660
1582 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1661 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1583} 1662}
1663
1664void _post_tick ()
1665 CODE:
1666 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1667
1668NV till_cede ()
1669 CODE:
1670 RETVAL = coroapi::next_cede - now ();
1671 OUTPUT:
1672 RETVAL
1673
1674NV till_tick ()
1675 CODE:
1676 RETVAL = SvNV (sv_next_tick) - now ();
1677 OUTPUT:
1678 RETVAL
1584 1679
1585NV floor (NV x) 1680NV floor (NV x)
1586 1681
1587NV ceil (NV x) 1682NV ceil (NV x)
1588 1683
… …
1631octet_string path_combine (octet_string base, octet_string path) 1726octet_string path_combine (octet_string base, octet_string path)
1632 PROTOTYPE: $$ 1727 PROTOTYPE: $$
1633 1728
1634octet_string path_combine_and_normalize (octet_string base, octet_string path) 1729octet_string path_combine_and_normalize (octet_string base, octet_string path)
1635 PROTOTYPE: $$ 1730 PROTOTYPE: $$
1636
1637const_octet_string
1638get_maps_directory (octet_string path)
1639 PROTOTYPE: $
1640 ALIAS: maps_directory = 0
1641 CODE:
1642 RETVAL = create_pathname (path);
1643 OUTPUT: RETVAL
1644 1731
1645void 1732void
1646sub_generation_inc () 1733sub_generation_inc ()
1647 CODE: 1734 CODE:
1648 PL_sub_generation++; 1735 PL_sub_generation++;
… …
1770#object *mortals (U32 index) 1857#object *mortals (U32 index)
1771# CODE: 1858# CODE:
1772# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; 1859# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
1773# OUTPUT: RETVAL 1860# OUTPUT: RETVAL
1774 1861
1775INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h | 1862INCLUDE: $PERL $srcdir/genacc attachable ../include/util.h ../include/cfperl.h |
1776 1863
1777MODULE = cf PACKAGE = cf::global 1864MODULE = cf PACKAGE = cf::global
1778 1865
1779int invoke (SV *klass, int event, ...) 1866int invoke (SV *klass, int event, ...)
1780 CODE: 1867 CODE:
… …
1994 2081
1995void add_button_link (object *button, maptile *map, int connected); 2082void add_button_link (object *button, maptile *map, int connected);
1996 2083
1997void remove_button_link (object *op); 2084void remove_button_link (object *op);
1998 2085
2086void handle_apply_yield (object *op);
2087
1999 2088
2000MODULE = cf PACKAGE = cf::object PREFIX = cf_ 2089MODULE = cf PACKAGE = cf::object PREFIX = cf_
2001 2090
2002object *cf_insert_ob_in_ob (object *ob, object *where) 2091object *cf_insert_ob_in_ob (object *ob, object *where)
2003 2092
… …
2104 pl->orig_stats = pl->ob->stats; 2193 pl->orig_stats = pl->ob->stats;
2105 2194
2106void clear_los (player *pl) 2195void clear_los (player *pl)
2107 2196
2108void cf_player_move (player *pl, int dir) 2197void cf_player_move (player *pl, int dir)
2109
2110void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2111 2198
2112bool 2199bool
2113cell_visible (player *pl, int dx, int dy) 2200cell_visible (player *pl, int dx, int dy)
2114 CODE: 2201 CODE:
2115 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 2202 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
… …
2254 palette = SvRV (palette); 2341 palette = SvRV (palette);
2255 2342
2256 STRLEN idxlen; 2343 STRLEN idxlen;
2257 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen); 2344 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2258 2345
2259 region **regionmap = (region **)malloc ( 2346 region_ptr *regionmap = new region_ptr [av_len ((AV *)palette) + 1];
2260 (av_len ((AV *)palette) + 1) * sizeof (region *));
2261 uint8_t *regions = salloc<uint8_t> (THIS->size ()); 2347 uint8_t *regions = salloc<uint8_t> (THIS->size ());
2262 2348
2263 for (int i = av_len ((AV *)palette) + 1; i--; ) 2349 for (int i = av_len ((AV *)palette) + 1; i--; )
2264 regionmap [i] = region::find ( 2350 regionmap [i] = region::find (SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2265 SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2266 2351
2267 for (int y = 0; y < THIS->height; ++y) 2352 for (int y = 0; y < THIS->height; ++y)
2268 memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width); 2353 memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
2269 2354
2270 sfree (THIS->regions, THIS->size ()); 2355 sfree (THIS->regions, THIS->size ());
2271 free (THIS->regionmap); 2356 delete [] THIS->regionmap;
2272 2357
2273 THIS->regions = regions; 2358 THIS->regions = regions;
2274 THIS->regionmap = regionmap; 2359 THIS->regionmap = regionmap;
2275} 2360}
2276 2361
… …
2296 } 2381 }
2297 } 2382 }
2298 2383
2299 op->destroy (); 2384 op->destroy ();
2300} 2385}
2301
2302void play_sound_map (maptile *map, int x, int y, int sound_num)
2303 2386
2304int out_of_map (maptile *map, int x, int y) 2387int out_of_map (maptile *map, int x, int y)
2305 2388
2306void 2389void
2307trigger (maptile *map, long connection, bool state = true) 2390trigger (maptile *map, long connection, bool state = true)
… …
2477 OUTPUT: 2560 OUTPUT:
2478 RETVAL 2561 RETVAL
2479 2562
2480MODULE = cf PACKAGE = cf::arch 2563MODULE = cf PACKAGE = cf::arch
2481 2564
2482archetype *find (utf8_string name)
2483 CODE:
2484 RETVAL = archetype::find (name);
2485 OUTPUT:
2486 RETVAL
2487
2488int archetypes_size () 2565int archetypes_size ()
2489 CODE: 2566 CODE:
2490 RETVAL = archetypes.size (); 2567 RETVAL = archetypes.size ();
2491 OUTPUT: RETVAL 2568 OUTPUT: RETVAL
2492 2569
… …
2578 STRLEN len; 2655 STRLEN len;
2579 char *buf = SvPVbyte (packet, len); 2656 char *buf = SvPVbyte (packet, len);
2580 2657
2581 THIS->send_packet (buf, len); 2658 THIS->send_packet (buf, len);
2582} 2659}
2660
2661faceidx
2662client::need_face (utf8_string name, int pri = 0)
2663 CODE:
2664 RETVAL = face_find (name, 0);
2665 if (RETVAL)
2666 {
2667 THIS->send_face (RETVAL, pri);
2668 THIS->flush_fx ();
2669 }
2670 OUTPUT:
2671 RETVAL
2672
2673int
2674client::fx_want (int idx, int value = -1)
2675 CODE:
2676 if (0 < idx && idx < FT_NUM)
2677 {
2678 RETVAL = THIS->fx_want [idx];
2679 if (items > 2)
2680 THIS->fx_want [idx] = value;
2681 }
2682 else
2683 RETVAL = 0;
2684 OUTPUT:
2685 RETVAL
2686
2687MODULE = cf PACKAGE = cf::sound PREFIX = sound_
2688
2689faceidx sound_find (utf8_string name)
2690
2691void sound_set (utf8_string str, faceidx face)
2692
2693# dire hack
2694void old_sound_index (int idx, faceidx face)
2695 CODE:
2696 extern faceidx old_sound_index [SOUND_CAST_SPELL_0];
2697 old_sound_index [idx] = face;
2583 2698
2584MODULE = cf PACKAGE = cf::face PREFIX = face_ 2699MODULE = cf PACKAGE = cf::face PREFIX = face_
2585 2700
2586#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h | 2701#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2587 2702
… …
2611 set_visibility = 1 2726 set_visibility = 1
2612 set_magicmap = 2 2727 set_magicmap = 2
2613 set_smooth = 3 2728 set_smooth = 3
2614 set_smoothlevel = 4 2729 set_smoothlevel = 4
2615 CODE: 2730 CODE:
2616 faceinfo *f = face_info (idx); 2731 faceinfo *f = face_info (idx); assert (f);
2617 assert (f);
2618 switch (ix) 2732 switch (ix)
2619 { 2733 {
2620 case 0: f->type = value; break; 2734 case 0: f->type = value; break;
2621 case 1: f->visibility = value; break; 2735 case 1: f->visibility = value; break;
2622 case 2: f->magicmap = value; break; 2736 case 2: f->magicmap = value; break;
… …
2625 } 2739 }
2626 2740
2627void set_data (faceidx idx, int faceset, SV *data, SV *chksum) 2741void set_data (faceidx idx, int faceset, SV *data, SV *chksum)
2628 CODE: 2742 CODE:
2629{ 2743{
2630 facedata *d = face_data (idx, faceset); 2744 faceinfo *f = face_info (idx); assert (f);
2631 assert (d); 2745 facedata *d = &(faceset ? f->data64 : f->data32);
2632 sv_to (data, d->data); 2746 sv_to (data, d->data);
2633 STRLEN clen; 2747 STRLEN clen;
2634 char *cdata = SvPVbyte (chksum, clen); 2748 char *cdata = SvPVbyte (chksum, clen);
2635 clen = min (CHKSUM_SIZE, clen); 2749 clen = min (CHKSUM_SIZE, clen);
2636 2750
… …
2646 ns->force_newmap = true; 2760 ns->force_newmap = true;
2647 } 2761 }
2648 } 2762 }
2649} 2763}
2650 2764
2765int get_data_size (faceidx idx, int faceset = 0)
2766 CODE:
2767 facedata *d = face_data (idx, faceset); assert (d);
2768 RETVAL = d->data.size ();
2769 OUTPUT:
2770 RETVAL
2771
2772SV *get_chksum (faceidx idx, int faceset = 0)
2773 CODE:
2774 facedata *d = face_data (idx, faceset); assert (d);
2775 RETVAL = newSVpvn ((char *)d->chksum, CHKSUM_SIZE);
2776 OUTPUT:
2777 RETVAL
2778
2651void invalidate (faceidx idx) 2779void invalidate (faceidx idx)
2652 CODE: 2780 CODE:
2653 for_all_clients (ns) 2781 for_all_clients (ns)
2654 { 2782 {
2655 ns->faces_sent [idx] = false; 2783 ns->faces_sent [idx] = false;
… …
2698void invalidate_all () 2826void invalidate_all ()
2699 CODE: 2827 CODE:
2700 for_all_clients (ns) 2828 for_all_clients (ns)
2701 ns->anims_sent.reset (); 2829 ns->anims_sent.reset ();
2702 2830
2831MODULE = cf PACKAGE = cf::object::freezer
2832
2833INCLUDE: $PERL $srcdir/genacc object_freezer ../include/cfperl.h |
2834
2835SV *
2836new (char *klass)
2837 CODE:
2838 RETVAL = newSVptr (new object_freezer, gv_stashpv ("cf::object::freezer", 1));
2839 OUTPUT: RETVAL
2840
2841void
2842DESTROY (SV *sv)
2843 CODE:
2844 object_freezer *self;
2845 sv_to (sv, self);
2846 delete self;
2847
2848MODULE = cf PACKAGE = cf::object::thawer
2849
2850INCLUDE: $PERL $srcdir/genacc object_thawer ../include/cfperl.h |
2851
2852SV *
2853new_from_file (char *klass, octet_string path)
2854 CODE:
2855 object_thawer *f = new object_thawer (path);
2856 if (!*f)
2857 {
2858 delete f;
2859 XSRETURN_UNDEF;
2860 }
2861 RETVAL = newSVptr (f, gv_stashpv ("cf::object::thawer", 1));
2862 OUTPUT: RETVAL
2863
2864void
2865DESTROY (SV *sv)
2866 CODE:
2867 object_thawer *self;
2868 sv_to (sv, self);
2869 delete self;
2870

Diff Legend

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