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.229 by root, Thu Jul 12 08:40:14 2007 UTC vs.
Revision 1.253 by root, Mon Sep 10 17:24:36 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 if (!s)
103 return newSV (0);
104
105 SV *sv = newSVpv (s, 0);
106 SvUTF8_on (sv);
107 return sv;
108}
109
110static inline SV *
111newSVpvn_utf8 (const char *s, STRLEN l)
112{
113 if (!s)
114 return newSV (0);
115
116 SV *sv = newSVpvn (s, l);
117 SvUTF8_on (sv);
118 return sv;
119}
120
104// helper cast function, returns super class * or 0 121// helper cast function, returns super class * or 0
105template<class super> 122template<class super>
106static super * 123static super *
107is_a (attachable *at) 124is_a (attachable *at)
108{ 125{
… …
247 } 264 }
248 } 265 }
249} 266}
250 267
251void 268void
252attachable::set_key (const char *key, const char *value) 269attachable::set_key (const char *key, const char *value, bool is_utf8)
253{ 270{
254 if (!self) 271 if (!self)
255 self = newHV (); 272 self = newHV ();
256 273
257 if (value) 274 if (value)
258 hv_store (self, key, strlen (key), newSVpv (value, 0), 0); 275 hv_store (self, key, strlen (key), is_utf8 ? newSVpv_utf8 (value) : newSVpv (value, 0), 0);
259 else 276 else
260 hv_delete (self, key, strlen (key), G_DISCARD); 277 hv_delete (self, key, strlen (key), G_DISCARD);
261} 278}
262 279
263attachable & 280attachable &
… …
310newSVptr (void *ptr, HV *stash, HV *hv = newHV ()) 327newSVptr (void *ptr, HV *stash, HV *hv = newHV ())
311{ 328{
312 SV *sv; 329 SV *sv;
313 330
314 if (!ptr) 331 if (!ptr)
315 return &PL_sv_undef; 332 return newSV (0);
316 333
317 sv_magicext ((SV *)hv, 0, PERL_MAGIC_ext, 0, (char *)ptr, 0); 334 sv_magicext ((SV *)hv, 0, PERL_MAGIC_ext, 0, (char *)ptr, 0);
318 return sv_bless (newRV_noinc ((SV *)hv), stash); 335 return sv_bless (newRV_noinc ((SV *)hv), stash);
319} 336}
320 337
… …
339 356
340static SV * 357static SV *
341newSVattachable (attachable *obj, HV *stash) 358newSVattachable (attachable *obj, HV *stash)
342{ 359{
343 if (!obj) 360 if (!obj)
344 return &PL_sv_undef; 361 return newSV (0);
345 362
346 if (!obj->self) 363 if (!obj->self)
347 obj->self = newHV (); 364 obj->self = newHV ();
348 365
349 if (!SvOBJECT (obj->self)) 366 if (!SvOBJECT (obj->self))
… …
396 return SvPTR (sv, klass); 413 return SvPTR (sv, klass);
397 else 414 else
398 return 0; 415 return 0;
399} 416}
400 417
401static inline SV *
402newSVpv_utf8 (const char *s)
403{
404 SV *sv = newSVpv (s, 0);
405 SvUTF8_on (sv);
406 return sv;
407}
408
409static inline SV *
410newSVpvn_utf8 (const char *s, STRLEN l)
411{
412 SV *sv = newSVpvn (s, l);
413 SvUTF8_on (sv);
414 return sv;
415}
416
417inline SV *to_sv (const shstr & v) { return v ? newSVpvn_utf8 ((const char *)v, v.length ()) : &PL_sv_undef; } 418inline SV *to_sv (const shstr & v) { return newSVpvn_utf8 ((const char *)v, v.length ()); }
418inline SV *to_sv (const char * v) { return newSVpv (v, 0); } 419inline SV *to_sv (const char * v) { return v ? newSVpv (v, 0) : newSV (0); }
419inline SV *to_sv (bool v) { return newSViv (v); } 420inline SV *to_sv (bool v) { return newSViv (v); }
420inline SV *to_sv ( signed char v) { return newSViv (v); } 421inline SV *to_sv ( signed char v) { return newSViv (v); }
421inline SV *to_sv (unsigned char v) { return newSViv (v); } 422inline SV *to_sv (unsigned char v) { return newSViv (v); }
422inline SV *to_sv ( signed short v) { return newSViv (v); } 423inline SV *to_sv ( signed short v) { return newSViv (v); }
423inline SV *to_sv (unsigned short v) { return newSVuv (v); } 424inline SV *to_sv (unsigned short v) { return newSVuv (v); }
… …
449 char buf[128]; 450 char buf[128];
450 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq); 451 snprintf (buf, 128, "<1.%" PRIx64 ">", v.seq);
451 return newSVpv (buf, 0); 452 return newSVpv (buf, 0);
452} 453}
453 454
454inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; } 455inline void sv_to (SV *sv, shstr &v) { v = SvOK (sv) ? SvPVutf8_nolen (sv) : 0; }
455inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; } 456inline void sv_to (SV *sv, char * &v) { free (v); v = SvOK (sv) ? strdup (SvPV_nolen (sv)) : 0; }
456inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); } 457inline void sv_to (SV *sv, bool &v) { v = SvIV (sv); }
457inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); } 458inline void sv_to (SV *sv, signed char &v) { v = SvIV (sv); }
458inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); } 459inline void sv_to (SV *sv, unsigned char &v) { v = SvIV (sv); }
459inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); } 460inline void sv_to (SV *sv, signed short &v) { v = SvIV (sv); }
460inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); } 461inline void sv_to (SV *sv, unsigned short &v) { v = SvIV (sv); }
461inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); } 462inline void sv_to (SV *sv, signed int &v) { v = SvIV (sv); }
462inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); } 463inline void sv_to (SV *sv, unsigned int &v) { v = SvUV (sv); }
463inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); } 464inline void sv_to (SV *sv, signed long &v) { v = SvIV (sv); }
464inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); } 465inline void sv_to (SV *sv, unsigned long &v) { v = SvUV (sv); }
465inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); } 466inline void sv_to (SV *sv, signed long long &v) { v = ( signed long long)SvVAL64 (sv); }
466inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); } 467inline void sv_to (SV *sv, unsigned long long &v) { v = (unsigned long long)SvVAL64 (sv); }
467inline void sv_to (SV *sv, float &v) { v = SvNV (sv); } 468inline void sv_to (SV *sv, float &v) { v = SvNV (sv); }
468inline void sv_to (SV *sv, double &v) { v = SvNV (sv); } 469inline void sv_to (SV *sv, double &v) { v = SvNV (sv); }
469inline void sv_to (SV *sv, client * &v) { v = (client *)(attachable *)SvPTR_ornull (sv, "cf::client"); } 470inline void sv_to (SV *sv, client * &v) { v = (client *)(attachable *)SvPTR_ornull (sv, "cf::client"); }
470inline void sv_to (SV *sv, player * &v) { v = (player *)(attachable *)SvPTR_ornull (sv, "cf::player"); } 471inline void sv_to (SV *sv, player * &v) { v = (player *)(attachable *)SvPTR_ornull (sv, "cf::player"); }
471inline void sv_to (SV *sv, object * &v) { v = (object *)(attachable *)SvPTR_ornull (sv, "cf::object"); } 472inline void sv_to (SV *sv, object * &v) { v = (object *)(attachable *)SvPTR_ornull (sv, "cf::object"); }
472inline void sv_to (SV *sv, archetype * &v) { v = (archetype *)(attachable *)SvPTR_ornull (sv, "cf::arch"); } 473inline void sv_to (SV *sv, archetype * &v) { v = (archetype *)(attachable *)SvPTR_ornull (sv, "cf::arch"); }
473inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)(attachable *)SvPTR_ornull (sv, "cf::map"); } 474inline void sv_to (SV *sv, maptile * &v) { v = (maptile *)(attachable *)SvPTR_ornull (sv, "cf::map"); }
474inline void sv_to (SV *sv, region * &v) { v = (region *)(attachable *)SvPTR_ornull (sv, "cf::region"); } 475inline void sv_to (SV *sv, region * &v) { v = (region *)(attachable *)SvPTR_ornull (sv, "cf::region"); }
475inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); } 476inline void sv_to (SV *sv, attachable * &v) { v = (attachable *)SvPTR_ornull (sv, "cf::attachable"); }
476inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); } 477inline void sv_to (SV *sv, partylist * &v) { v = (partylist *)SvPTR_ornull (sv, "cf::party"); }
477inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); } 478inline void sv_to (SV *sv, living * &v) { v = (living *)SvPTR_ornull (sv, "cf::living"); }
479inline void sv_to (SV *sv, object_freezer * &v) { v = (object_freezer *)SvPTR_ornull (sv, "cf::object::freezer"); }
480inline void sv_to (SV *sv, object_thawer * &v) { v = (object_thawer *)SvPTR_ornull (sv, "cf::object::thawer" ); }
478 481
479//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; } 482//inline void sv_to (SV *sv, faceinfo * &v) { v = &faces [face_find (SvPV_nolen (sv), 0)]; }
480inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); } 483inline void sv_to (SV *sv, treasurelist * &v) { v = treasurelist::find (SvPV_nolen (sv)); }
481 484
482template<class T> 485template<class T>
483inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; } 486inline void sv_to (SV *sv, refptr<T> &v) { T *tmp; sv_to (sv, tmp); v = tmp; }
484 487
485template<int N> 488template<int N>
486inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); } 489inline void sv_to (SV *sv, char (&v)[N]) { assign (v, SvPV_nolen (sv)); }
487 490
488inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); } 491inline void sv_to (SV *sv, bowtype_t &v) { v = (bowtype_t) SvIV (sv); }
489inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); } 492inline void sv_to (SV *sv, petmode_t &v) { v = (petmode_t) SvIV (sv); }
490inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); } 493inline void sv_to (SV *sv, usekeytype &v) { v = (usekeytype) SvIV (sv); }
491inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); } 494inline void sv_to (SV *sv, unapplymode &v) { v = (unapplymode) SvIV (sv); }
492 495
493inline void sv_to (SV *sv, std::string &v) 496inline void sv_to (SV *sv, std::string &v)
494{ 497{
495 STRLEN len; 498 STRLEN len;
496 char *data = SvPVbyte (sv, len); 499 char *data = SvPVbyte (sv, len);
497 v.assign (data, len); 500 v.assign (data, len);
498} 501}
499 502
500inline void sv_to (SV *sv, UUID &v) 503inline void sv_to (SV *sv, UUID &v)
501{ 504{
502 unsigned int version; 505 unsigned int version;
503 506
504 if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) || 1 != version) 507 if (2 != sscanf (SvPV_nolen (sv), "<%d.%" SCNx64 ">", &version, &v.seq) || 1 != version)
505 croak ("unparsable uuid: %s", SvPV_nolen (sv)); 508 croak ("unparsable uuid: %s", SvPV_nolen (sv));
… …
527 break; 530 break;
528 531
529 case DT_STRING: 532 case DT_STRING:
530 { 533 {
531 char *str = (char *)va_arg (ap, const char *); 534 char *str = (char *)va_arg (ap, const char *);
532 sv = str ? newSVpv (str, 0) : &PL_sv_undef; 535 sv = str ? newSVpv (str, 0) : newSV (0);
533 } 536 }
534 break; 537 break;
535 538
536 case DT_DATA: 539 case DT_DATA:
537 { 540 {
538 char *str = (char *)va_arg (ap, const void *); 541 char *str = (char *)va_arg (ap, const void *);
539 int len = va_arg (ap, int); 542 int len = va_arg (ap, int);
540 sv = str ? newSVpv (str, len) : &PL_sv_undef; 543 sv = str ? newSVpv (str, len) : newSV (0);
541 } 544 }
542 break; 545 break;
543 546
544 case DT_OBJECT: 547 case DT_OBJECT:
545 sv = to_sv (va_arg (ap, object *)); 548 sv = to_sv (va_arg (ap, object *));
… …
964} 967}
965 968
966SV * 969SV *
967cfperl_result (int idx) 970cfperl_result (int idx)
968{ 971{
969 AV *av = get_av ("cfperl::invoke_results", 0); 972 AV *av = get_av ("cf::INVOKE_RESULTS", 0);
970 if (!av) 973 if (!av)
971 return &PL_sv_undef; 974 return &PL_sv_undef;
972 975
973 SV **sv = av_fetch (av, idx, 0); 976 SV **sv = av_fetch (av, idx, 0);
974 if (!sv) 977 if (!sv)
… …
988{ 991{
989 return SvNV (cfperl_result (idx)); 992 return SvNV (cfperl_result (idx));
990} 993}
991 994
992///////////////////////////////////////////////////////////////////////////// 995/////////////////////////////////////////////////////////////////////////////
996// various c++ => perl glue functions
993 997
994void 998void
995cfperl_emergency_save () 999cfperl_emergency_save ()
996{ 1000{
997 CALL_BEGIN (0); 1001 CALL_BEGIN (0);
… …
1021void 1025void
1022cfperl_send_msg (client *ns, int color, const char *type, const char *msg) 1026cfperl_send_msg (client *ns, int color, const char *type, const char *msg)
1023{ 1027{
1024 CALL_BEGIN (4); 1028 CALL_BEGIN (4);
1025 CALL_ARG (ns); 1029 CALL_ARG (ns);
1026 CALL_ARG (color);
1027 CALL_ARG (type); 1030 CALL_ARG (type);
1028 CALL_ARG_SV (newSVpv_utf8 (msg)); 1031 CALL_ARG_SV (newSVpv_utf8 (msg));
1032 CALL_ARG (color);
1029 CALL_CALL ("cf::client::send_msg", G_VOID); 1033 CALL_CALL ("cf::client::send_msg", G_VOID);
1030 CALL_END; 1034 CALL_END;
1035}
1036
1037int
1038cfperl_can_merge (object *ob1, object *ob2)
1039{
1040 int can;
1041
1042 CALL_BEGIN (2);
1043 CALL_ARG (ob1);
1044 CALL_ARG (ob2);
1045 CALL_CALL ("cf::_can_merge", G_SCALAR);
1046 can = count && SvTRUE (TOPs);
1047 CALL_END;
1048
1049 return can;
1050}
1051
1052player *
1053player::find (const char *name)
1054{
1055 CALL_BEGIN (1);
1056 CALL_ARG (name);
1057 CALL_CALL ("cf::player::find", G_SCALAR);
1058
1059 player *retval;
1060
1061 if (count)
1062 sv_to (POPs, retval);
1063 else
1064 retval = 0;
1065
1066 CALL_END;
1067
1068 return retval;
1031} 1069}
1032 1070
1033maptile * 1071maptile *
1034maptile::find_sync (const char *path, maptile *origin) 1072maptile::find_sync (const char *path, maptile *origin)
1035{ 1073{
… …
1049 1087
1050 return retval; 1088 return retval;
1051} 1089}
1052 1090
1053maptile * 1091maptile *
1054maptile::find_async (const char *path, maptile *origin) 1092maptile::find_async (const char *path, maptile *origin, bool load)
1055{ 1093{
1056 CALL_BEGIN (2); 1094 CALL_BEGIN (3);
1057 CALL_ARG (path); 1095 CALL_ARG (path);
1058 CALL_ARG (origin); 1096 CALL_ARG (origin);
1097 CALL_ARG (load);
1059 CALL_CALL ("cf::map::find_async", G_SCALAR); 1098 CALL_CALL ("cf::map::find_async", G_SCALAR);
1060 1099
1061 maptile *retval; 1100 maptile *retval;
1062 1101
1063 if (count) 1102 if (count)
… …
1097 CALL_BEGIN (2); 1136 CALL_BEGIN (2);
1098 CALL_ARG (this); 1137 CALL_ARG (this);
1099 CALL_ARG (exit); 1138 CALL_ARG (exit);
1100 CALL_CALL ("cf::object::player::enter_exit", G_VOID); 1139 CALL_CALL ("cf::object::player::enter_exit", G_VOID);
1101 CALL_END; 1140 CALL_END;
1141}
1142
1143const char *
1144object::ref () const
1145{
1146 if (type == PLAYER)
1147 return format ("player/<1.%llx>/%s", (unsigned long long)uuid.seq, &name);
1148 else
1149 return 0;
1150}
1151
1152object *
1153object::deref (const char *ref)
1154{
1155 object *retval = 0;
1156
1157 if (ref)
1158 {
1159 CALL_BEGIN (1);
1160 CALL_ARG (ref);
1161 CALL_CALL ("cf::object::deref", G_SCALAR);
1162
1163 if (count)
1164 sv_to (POPs, retval);
1165
1166 CALL_END;
1167 }
1168
1169 return retval;
1102} 1170}
1103 1171
1104void 1172void
1105log_backtrace (const char *msg) 1173log_backtrace (const char *msg)
1106{ 1174{
… …
1361 const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED) 1429 const_iv (FLAG_USE_ROD) const_iv (FLAG_USE_HORN) const_iv (FLAG_MAKE_INVIS) const_iv (FLAG_INV_LOCKED)
1362 const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON) 1430 const_iv (FLAG_IS_WOODED) const_iv (FLAG_IS_HILLY) const_iv (FLAG_READY_SKILL) const_iv (FLAG_READY_WEAPON)
1363 const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON) 1431 const_iv (FLAG_NO_SKILL_IDENT) const_iv (FLAG_BLIND) const_iv (FLAG_SEE_IN_DARK) const_iv (FLAG_IS_CAULDRON)
1364 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK) 1432 const_iv (FLAG_NO_STEAL) const_iv (FLAG_ONE_HIT) const_iv (FLAG_CLIENT_SENT) const_iv (FLAG_BERSERK)
1365 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL) 1433 const_iv (FLAG_NEUTRAL) const_iv (FLAG_NO_ATTACK) const_iv (FLAG_NO_DAMAGE) const_iv (FLAG_OBJ_ORIGINAL)
1366 const_iv (FLAG_OBJ_SAVE_ON_OVL) const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER) 1434 const_iv (FLAG_ACTIVATE_ON_PUSH) const_iv (FLAG_ACTIVATE_ON_RELEASE) const_iv (FLAG_IS_WATER)
1367 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE) 1435 const_iv (FLAG_CONTENT_ON_GEN) const_iv (FLAG_IS_A_TEMPLATE) const_iv (FLAG_IS_BUILDABLE)
1368 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE) 1436 const_iv (FLAG_DESTROY_ON_DEATH) const_iv (FLAG_NO_MAP_SAVE)
1369 1437
1370 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED) 1438 const_iv (NDI_BLACK) const_iv (NDI_WHITE) const_iv (NDI_NAVY) const_iv (NDI_RED)
1371 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN) 1439 const_iv (NDI_ORANGE) const_iv (NDI_BLUE) const_iv (NDI_DK_ORANGE) const_iv (NDI_GREEN)
1372 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD) 1440 const_iv (NDI_LT_GREEN) const_iv (NDI_GREY) const_iv (NDI_BROWN) const_iv (NDI_GOLD)
1373 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE) 1441 const_iv (NDI_TAN) const_iv (NDI_MAX_COLOR) const_iv (NDI_COLOR_MASK) const_iv (NDI_UNIQUE)
1374 const_iv (NDI_ALL) 1442 const_iv (NDI_ALL) const_iv (NDI_DEF) const_iv (NDI_REPLY) const_iv (NDI_CLIENT_MASK)
1443 const_iv (NDI_NOCREATE) const_iv (NDI_CLEAR)
1375 1444
1376 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE) 1445 const_iv (UPD_LOCATION) const_iv (UPD_FLAGS) const_iv (UPD_WEIGHT) const_iv (UPD_FACE)
1377 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF) 1446 const_iv (UPD_NAME) const_iv (UPD_ANIM) const_iv (UPD_ANIMSPEED) const_iv (UPD_NROF)
1378 1447
1379 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE) 1448 const_iv (UPD_SP_MANA) const_iv (UPD_SP_GRACE) const_iv (UPD_SP_DAMAGE)
… …
1486 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING) 1555 const_iv (MAP_IN_MEMORY) const_iv (MAP_SWAPPED) const_iv (MAP_LOADING) const_iv (MAP_SAVING)
1487 1556
1488 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT) 1557 const_iv (KLASS_ATTACHABLE) const_iv (KLASS_GLOBAL) const_iv (KLASS_OBJECT)
1489 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP) 1558 const_iv (KLASS_CLIENT) const_iv (KLASS_PLAYER) const_iv (KLASS_MAP)
1490 1559
1560 const_iv (VERSION_CS) const_iv (VERSION_SC)
1561
1491 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT) 1562 const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT)
1492 1563
1493 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM) 1564 const_iv (ST_DEAD) const_iv (ST_SETUP) const_iv (ST_PLAYING) const_iv (ST_CUSTOM)
1494 1565
1495 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES) 1566 const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES)
… …
1506 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY) 1577 const_iv (SYMMETRY_Y) const_iv (SYMMETRY_XY)
1507 1578
1508 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP) 1579 const_iv (GT_ENVIRONMENT) const_iv (GT_INVISIBLE) const_iv (GT_STARTEQUIP)
1509 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV) 1580 const_iv (GT_APPLY) const_iv (GT_ONLY_GOOD) const_iv (GT_UPDATE_INV)
1510 const_iv (GT_MINIMAL) 1581 const_iv (GT_MINIMAL)
1582
1583 const_iv (FT_FACE) const_iv (FT_MUSIC) const_iv (FT_SOUND)
1584 const_iv (FT_RSRC) const_iv (FT_NUM)
1511 }; 1585 };
1512 1586
1513 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; ) 1587 for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
1514 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); 1588 newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv));
1515 1589
… …
1549 1623
1550 for_all_objects (op) 1624 for_all_objects (op)
1551 op->reattach (); 1625 op->reattach ();
1552} 1626}
1553 1627
1554void _post_tick ()
1555 CODE:
1556 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1557
1558# support function for map-world.ext 1628# support function for map-world.ext
1559void _quantise (SV *data_sv, SV *plt_sv) 1629void _quantise (SV *data_sv, SV *plt_sv)
1560 CODE: 1630 CODE:
1561{ 1631{
1562 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV) 1632 if (!SvROK (plt_sv) || SvTYPE (SvRV (plt_sv)) != SVt_PVAV)
… …
1594 len -= 3; 1664 len -= 3;
1595 } 1665 }
1596 1666
1597 SvCUR_set (data_sv, dst - SvPVX (data_sv)); 1667 SvCUR_set (data_sv, dst - SvPVX (data_sv));
1598} 1668}
1669
1670void _post_tick ()
1671 CODE:
1672 coroapi::next_cede = SvNV (sv_next_tick) - TICK * (1. - 1. / CEDES_PER_TICK);
1673
1674NV till_cede ()
1675 CODE:
1676 RETVAL = coroapi::next_cede - now ();
1677 OUTPUT:
1678 RETVAL
1679
1680NV till_tick ()
1681 CODE:
1682 RETVAL = SvNV (sv_next_tick) - now ();
1683 OUTPUT:
1684 RETVAL
1599 1685
1600NV floor (NV x) 1686NV floor (NV x)
1601 1687
1602NV ceil (NV x) 1688NV ceil (NV x)
1603 1689
… …
1646octet_string path_combine (octet_string base, octet_string path) 1732octet_string path_combine (octet_string base, octet_string path)
1647 PROTOTYPE: $$ 1733 PROTOTYPE: $$
1648 1734
1649octet_string path_combine_and_normalize (octet_string base, octet_string path) 1735octet_string path_combine_and_normalize (octet_string base, octet_string path)
1650 PROTOTYPE: $$ 1736 PROTOTYPE: $$
1651
1652const_octet_string
1653get_maps_directory (octet_string path)
1654 PROTOTYPE: $
1655 ALIAS: maps_directory = 0
1656 CODE:
1657 RETVAL = create_pathname (path);
1658 OUTPUT: RETVAL
1659 1737
1660void 1738void
1661sub_generation_inc () 1739sub_generation_inc ()
1662 CODE: 1740 CODE:
1663 PL_sub_generation++; 1741 PL_sub_generation++;
… …
1785#object *mortals (U32 index) 1863#object *mortals (U32 index)
1786# CODE: 1864# CODE:
1787# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0; 1865# RETVAL = index < attachable::mortals.size () ? attachable::mortals [index] : 0;
1788# OUTPUT: RETVAL 1866# OUTPUT: RETVAL
1789 1867
1790INCLUDE: $PERL $srcdir/genacc attachable ../include/cfperl.h | 1868INCLUDE: $PERL $srcdir/genacc attachable ../include/util.h ../include/cfperl.h |
1791 1869
1792MODULE = cf PACKAGE = cf::global 1870MODULE = cf PACKAGE = cf::global
1793 1871
1794int invoke (SV *klass, int event, ...) 1872int invoke (SV *klass, int event, ...)
1795 CODE: 1873 CODE:
… …
2009 2087
2010void add_button_link (object *button, maptile *map, int connected); 2088void add_button_link (object *button, maptile *map, int connected);
2011 2089
2012void remove_button_link (object *op); 2090void remove_button_link (object *op);
2013 2091
2092void handle_apply_yield (object *op);
2093
2014 2094
2015MODULE = cf PACKAGE = cf::object PREFIX = cf_ 2095MODULE = cf PACKAGE = cf::object PREFIX = cf_
2016 2096
2017object *cf_insert_ob_in_ob (object *ob, object *where) 2097object *cf_insert_ob_in_ob (object *ob, object *where)
2018 2098
… …
2119 pl->orig_stats = pl->ob->stats; 2199 pl->orig_stats = pl->ob->stats;
2120 2200
2121void clear_los (player *pl) 2201void clear_los (player *pl)
2122 2202
2123void cf_player_move (player *pl, int dir) 2203void cf_player_move (player *pl, int dir)
2124
2125void play_sound_player_only (player *pl, int soundnum, int x = 0, int y = 0);
2126 2204
2127bool 2205bool
2128cell_visible (player *pl, int dx, int dy) 2206cell_visible (player *pl, int dx, int dy)
2129 CODE: 2207 CODE:
2130 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2 2208 RETVAL = FABS (dx) <= pl->ns->mapx / 2 && FABS (dy) <= pl->ns->mapy / 2
… …
2269 palette = SvRV (palette); 2347 palette = SvRV (palette);
2270 2348
2271 STRLEN idxlen; 2349 STRLEN idxlen;
2272 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen); 2350 const uint8_t *idx = (const uint8_t *)SvPVbyte (data, idxlen);
2273 2351
2274 region **regionmap = (region **)malloc ( 2352 region_ptr *regionmap = new region_ptr [av_len ((AV *)palette) + 1];
2275 (av_len ((AV *)palette) + 1) * sizeof (region *));
2276 uint8_t *regions = salloc<uint8_t> (THIS->size ()); 2353 uint8_t *regions = salloc<uint8_t> (THIS->size ());
2277 2354
2278 for (int i = av_len ((AV *)palette) + 1; i--; ) 2355 for (int i = av_len ((AV *)palette) + 1; i--; )
2279 regionmap [i] = region::find ( 2356 regionmap [i] = region::find (SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2280 SvPVutf8_nolen (*av_fetch ((AV *)palette, i, 1)));
2281 2357
2282 for (int y = 0; y < THIS->height; ++y) 2358 for (int y = 0; y < THIS->height; ++y)
2283 memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width); 2359 memcpy (regions + y * THIS->width, idx + offset + y * stride, THIS->width);
2284 2360
2285 sfree (THIS->regions, THIS->size ()); 2361 sfree (THIS->regions, THIS->size ());
2286 free (THIS->regionmap); 2362 delete [] THIS->regionmap;
2287 2363
2288 THIS->regions = regions; 2364 THIS->regions = regions;
2289 THIS->regionmap = regionmap; 2365 THIS->regionmap = regionmap;
2290} 2366}
2291 2367
… …
2311 } 2387 }
2312 } 2388 }
2313 2389
2314 op->destroy (); 2390 op->destroy ();
2315} 2391}
2316
2317void play_sound_map (maptile *map, int x, int y, int sound_num)
2318 2392
2319int out_of_map (maptile *map, int x, int y) 2393int out_of_map (maptile *map, int x, int y)
2320 2394
2321void 2395void
2322trigger (maptile *map, long connection, bool state = true) 2396trigger (maptile *map, long connection, bool state = true)
… …
2492 OUTPUT: 2566 OUTPUT:
2493 RETVAL 2567 RETVAL
2494 2568
2495MODULE = cf PACKAGE = cf::arch 2569MODULE = cf PACKAGE = cf::arch
2496 2570
2497archetype *find (utf8_string name)
2498 CODE:
2499 RETVAL = archetype::find (name);
2500 OUTPUT:
2501 RETVAL
2502
2503int archetypes_size () 2571int archetypes_size ()
2504 CODE: 2572 CODE:
2505 RETVAL = archetypes.size (); 2573 RETVAL = archetypes.size ();
2506 OUTPUT: RETVAL 2574 OUTPUT: RETVAL
2507 2575
… …
2593 STRLEN len; 2661 STRLEN len;
2594 char *buf = SvPVbyte (packet, len); 2662 char *buf = SvPVbyte (packet, len);
2595 2663
2596 THIS->send_packet (buf, len); 2664 THIS->send_packet (buf, len);
2597} 2665}
2666
2667faceidx
2668client::need_face (utf8_string name, int pri = 0)
2669 CODE:
2670 RETVAL = face_find (name, 0);
2671 if (RETVAL)
2672 {
2673 THIS->send_face (RETVAL, pri);
2674 THIS->flush_fx ();
2675 }
2676 OUTPUT:
2677 RETVAL
2678
2679int
2680client::fx_want (int idx, int value = -1)
2681 CODE:
2682 if (0 < idx && idx < FT_NUM)
2683 {
2684 RETVAL = THIS->fx_want [idx];
2685 if (items > 2)
2686 THIS->fx_want [idx] = value;
2687 }
2688 else
2689 RETVAL = 0;
2690 OUTPUT:
2691 RETVAL
2692
2693MODULE = cf PACKAGE = cf::sound PREFIX = sound_
2694
2695faceidx sound_find (utf8_string name)
2696
2697void sound_set (utf8_string str, faceidx face)
2698
2699# dire hack
2700void old_sound_index (int idx, faceidx face)
2701 CODE:
2702 extern faceidx old_sound_index [SOUND_CAST_SPELL_0];
2703 old_sound_index [idx] = face;
2598 2704
2599MODULE = cf PACKAGE = cf::face PREFIX = face_ 2705MODULE = cf PACKAGE = cf::face PREFIX = face_
2600 2706
2601#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h | 2707#INCLUDE: $PERL $srcdir/genacc faceset ../include/face.h |
2602 2708
… …
2639 } 2745 }
2640 2746
2641void set_data (faceidx idx, int faceset, SV *data, SV *chksum) 2747void set_data (faceidx idx, int faceset, SV *data, SV *chksum)
2642 CODE: 2748 CODE:
2643{ 2749{
2644 facedata *d = face_data (idx, faceset); assert (d); 2750 faceinfo *f = face_info (idx); assert (f);
2751 facedata *d = &(faceset ? f->data64 : f->data32);
2645 sv_to (data, d->data); 2752 sv_to (data, d->data);
2646 STRLEN clen; 2753 STRLEN clen;
2647 char *cdata = SvPVbyte (chksum, clen); 2754 char *cdata = SvPVbyte (chksum, clen);
2648 clen = min (CHKSUM_SIZE, clen); 2755 clen = min (CHKSUM_SIZE, clen);
2649 2756
… …
2725void invalidate_all () 2832void invalidate_all ()
2726 CODE: 2833 CODE:
2727 for_all_clients (ns) 2834 for_all_clients (ns)
2728 ns->anims_sent.reset (); 2835 ns->anims_sent.reset ();
2729 2836
2837MODULE = cf PACKAGE = cf::object::freezer
2838
2839INCLUDE: $PERL $srcdir/genacc object_freezer ../include/cfperl.h |
2840
2841SV *
2842new (char *klass)
2843 CODE:
2844 RETVAL = newSVptr (new object_freezer, gv_stashpv ("cf::object::freezer", 1));
2845 OUTPUT: RETVAL
2846
2847void
2848DESTROY (SV *sv)
2849 CODE:
2850 object_freezer *self;
2851 sv_to (sv, self);
2852 delete self;
2853
2854MODULE = cf PACKAGE = cf::object::thawer
2855
2856INCLUDE: $PERL $srcdir/genacc object_thawer ../include/cfperl.h |
2857
2858SV *
2859new_from_file (char *klass, octet_string path)
2860 CODE:
2861 object_thawer *f = new object_thawer (path);
2862 if (!*f)
2863 {
2864 delete f;
2865 XSRETURN_UNDEF;
2866 }
2867 RETVAL = newSVptr (f, gv_stashpv ("cf::object::thawer", 1));
2868 OUTPUT: RETVAL
2869
2870void
2871DESTROY (SV *sv)
2872 CODE:
2873 object_thawer *self;
2874 sv_to (sv, self);
2875 delete self;
2876
2877void
2878extract_tags (object_thawer *self)
2879 CODE:
2880 while (self->kw != KW_EOF)
2881 {
2882 coroapi::cede_to_tick_every (5000);
2883
2884 if (self->kw == KW_tag)
2885 XPUSHs (sv_2mortal (to_sv (self->get_str ())));
2886
2887 self->skip ();
2888 }
2889

Diff Legend

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