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.414 by root, Tue Oct 30 17:07:50 2012 UTC vs.
Revision 1.417 by root, Sun Nov 4 01:01:13 2012 UTC

… …
1579 1579
1580void init_dynamic () 1580void init_dynamic ()
1581 1581
1582void load_settings () 1582void load_settings ()
1583 1583
1584void reload_exp_table () 1584void _reload_exp_table ()
1585 1585
1586void reload_materials () 1586void _reload_materials ()
1587 1587
1588void init_uuid () 1588void init_uuid ()
1589 CODE: 1589 CODE:
1590 UUID::init (); 1590 UUID::init ();
1591 1591
… …
1800 1800
1801int exp_to_level (val64 exp) 1801int exp_to_level (val64 exp)
1802 1802
1803val64 level_to_min_exp (int level) 1803val64 level_to_min_exp (int level)
1804 1804
1805const_utf8_string
1806spellpathnames (int idx)
1807 CODE:
1808 RETVAL = spellpathnames [idx];
1809 OUTPUT: RETVAL
1810
1805SV * 1811SV *
1806attacktype_name (int atnr) 1812attacktype_name (int atnr)
1807 CODE: 1813 CODE:
1808 RETVAL = IN_RANGE_EXC (atnr, 0, NROFATTACKS) 1814 RETVAL = IN_RANGE_EXC (atnr, 0, NROFATTACKS)
1809 ? newSVpv (attacktype_name [atnr], 0) 1815 ? newSVpv (attacktype_name [atnr], 0)
… …
2580archetype *archetypes (U32 index) 2586archetype *archetypes (U32 index)
2581 CODE: 2587 CODE:
2582 RETVAL = index < archetypes.size () ? archetypes [index] : 0; 2588 RETVAL = index < archetypes.size () ? archetypes [index] : 0;
2583 OUTPUT: RETVAL 2589 OUTPUT: RETVAL
2584 2590
2591int skillvec_size ()
2592 CODE:
2593 RETVAL = skillvec.size ();
2594 OUTPUT: RETVAL
2595
2596archetype *skillvec (U32 index)
2597 CODE:
2598 RETVAL = index < skillvec.size () ? (archetype *)(object *)skillvec [index] : 0;
2599 OUTPUT: RETVAL
2600
2585INCLUDE: $PERL $srcdir/genacc archetype $srcdir/../include/object.h | 2601INCLUDE: $PERL $srcdir/genacc archetype $srcdir/../include/object.h |
2586 2602
2587MODULE = cf PACKAGE = cf::party 2603MODULE = cf PACKAGE = cf::party
2588 2604
2589partylist *first () 2605partylist *first ()
… …
2761 faceinfo *f = face_info (idx); assert (f); 2777 faceinfo *f = face_info (idx); assert (f);
2762 facedata *d = f->face + faceset; 2778 facedata *d = f->face + faceset;
2763 sv_to (data, d->data); 2779 sv_to (data, d->data);
2764 STRLEN clen; 2780 STRLEN clen;
2765 char *cdata = SvPVbyte (chksum, clen); 2781 char *cdata = SvPVbyte (chksum, clen);
2766 clen = min (CHKSUM_MAXLEN, clen);
2767 2782
2783 assert (("cf::face::set_data called with too long checksum", clen <= CHKSUM_MAXLEN));
2768 assert (("cf::face::set_data must be called with a non-empty checksum", clen)); 2784 assert (("cf::face::set_data must be called with a non-empty checksum", clen));
2769 2785
2770 if (clen != d->chksum_len || memcmp (d->chksum, cdata, clen)) 2786 if (clen != d->chksum_len || memcmp (d->chksum, cdata, clen))
2771 { 2787 {
2772 d->chksum_len = clen; 2788 d->chksum_len = clen;
… …
2796 faceinfo *f = face_info (idx); assert (f); 2812 faceinfo *f = face_info (idx); assert (f);
2797 SvREFCNT_dec (f->meta_hv); 2813 SvREFCNT_dec (f->meta_hv);
2798 f->meta_hv = SvOK (sv) ? (HV *)SvREFCNT_inc (SvRV (sv)) : 0; 2814 f->meta_hv = SvOK (sv) ? (HV *)SvREFCNT_inc (SvRV (sv)) : 0;
2799} 2815}
2800 2816
2817SV *mangle_chksum (SV *chksum)
2818 CODE:
2819 STRLEN len;
2820 char *data = SvPVbyte (chksum, len);
2821 RETVAL = newSVpvn (data, min (len, CHKSUM_MAXLEN));
2822 OUTPUT:
2823 RETVAL
2824
2801SV *get_chksum (faceidx idx, int faceset = 0) 2825SV *get_chksum (faceidx idx, int faceset = 0)
2802 CODE: 2826 CODE:
2803 facedata *d = face_data (idx, faceset); 2827 facedata *d = face_data (idx, faceset);
2804 if (!d) XSRETURN_UNDEF; 2828 if (!d) XSRETURN_UNDEF;
2805 RETVAL = newSVpvn ((char *)d->chksum, d->chksum_len); 2829 RETVAL = newSVpvn ((char *)d->chksum, d->chksum_len);
… …
2809int get_type (faceidx idx) 2833int get_type (faceidx idx)
2810 CODE: 2834 CODE:
2811 faceinfo *f = face_info (idx); 2835 faceinfo *f = face_info (idx);
2812 if (!f) XSRETURN_UNDEF; 2836 if (!f) XSRETURN_UNDEF;
2813 RETVAL = f->type; 2837 RETVAL = f->type;
2838 OUTPUT:
2839 RETVAL
2840
2841SV *get_name (faceidx idx)
2842 CODE:
2843 faceinfo *f = face_info (idx);
2844 if (!f) XSRETURN_UNDEF;
2845 RETVAL = to_sv (f->name);
2814 OUTPUT: 2846 OUTPUT:
2815 RETVAL 2847 RETVAL
2816 2848
2817SV *get_data (faceidx idx, int faceset = 0) 2849SV *get_data (faceidx idx, int faceset = 0)
2818 CODE: 2850 CODE:

Diff Legend

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