… | |
… | |
1513 | const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT) |
1513 | const_iv (CS_QUERY_YESNO) const_iv (CS_QUERY_SINGLECHAR) const_iv (CS_QUERY_HIDEINPUT) |
1514 | |
1514 | |
1515 | const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES) |
1515 | const_iv (IO_HEADER) const_iv (IO_OBJECTS) const_iv (IO_UNIQUES) |
1516 | }; |
1516 | }; |
1517 | |
1517 | |
1518 | for (civ = const_iv + array_length (const_iv); civ-- > const_iv; ) |
1518 | for (civ = const_iv + ecb_array_length (const_iv); civ-- > const_iv; ) |
1519 | newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); |
1519 | newCONSTSUB (stash_cf, (char *)civ->name, newSViv (civ->iv)); |
1520 | |
1520 | |
1521 | static const struct { |
1521 | static const struct { |
1522 | const char *name; |
1522 | const char *name; |
1523 | int skip; |
1523 | int skip; |
… | |
… | |
1529 | # undef def |
1529 | # undef def |
1530 | }; |
1530 | }; |
1531 | |
1531 | |
1532 | AV *av = get_av ("cf::EVENT", 1); |
1532 | AV *av = get_av ("cf::EVENT", 1); |
1533 | |
1533 | |
1534 | for (eiv = event_iv + array_length (event_iv); eiv-- > event_iv; ) |
1534 | for (eiv = event_iv + ecb_array_length (event_iv); eiv-- > event_iv; ) |
1535 | { |
1535 | { |
1536 | AV *event = newAV (); |
1536 | AV *event = newAV (); |
1537 | av_push (event, newSVpv ((char *)eiv->name + eiv->skip, 0)); |
1537 | av_push (event, newSVpv ((char *)eiv->name + eiv->skip, 0)); |
1538 | av_push (event, newSViv (eiv->klass)); |
1538 | av_push (event, newSViv (eiv->klass)); |
1539 | av_store (av, eiv->iv, newRV_noinc ((SV *)event)); |
1539 | av_store (av, eiv->iv, newRV_noinc ((SV *)event)); |
… | |
… | |
1839 | OUTPUT: RETVAL |
1839 | OUTPUT: RETVAL |
1840 | |
1840 | |
1841 | int |
1841 | int |
1842 | skill_flags (int idx) |
1842 | skill_flags (int idx) |
1843 | CODE: |
1843 | CODE: |
1844 | if (idx < 0 || idx >= array_length (skill_flags)) |
1844 | if (idx < 0 || idx >= ecb_array_length (skill_flags)) |
1845 | croak ("skill_flags: index out of bounds"); |
1845 | croak ("skill_flags: index out of bounds"); |
1846 | RETVAL = skill_flags [idx]; |
1846 | RETVAL = skill_flags [idx]; |
1847 | OUTPUT: RETVAL |
1847 | OUTPUT: RETVAL |
1848 | |
1848 | |
1849 | UUID |
1849 | UUID |