#include <signal.h>
#endif
-static I32
+#ifndef PERL_OBJECT
+static I32 do_trans_CC_simple _((SV *sv));
+static I32 do_trans_CC_count _((SV *sv));
+static I32 do_trans_CC_complex _((SV *sv));
+static I32 do_trans_UU_simple _((SV *sv));
+static I32 do_trans_UU_count _((SV *sv));
+static I32 do_trans_UU_complex _((SV *sv));
+static I32 do_trans_UC_simple _((SV *sv));
+static I32 do_trans_CU_simple _((SV *sv));
+static I32 do_trans_UC_trivial _((SV *sv));
+static I32 do_trans_CU_trivial _((SV *sv));
+#endif
+
+STATIC I32
do_trans_CC_simple(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_CC_count(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_CC_complex(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_UU_simple(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_UU_count(SV *sv)
{
dTHR;
send = s + len;
while (s < send) {
- if ((uv = swash_fetch(rv, s)) < none) {
- s += UTF8SKIP(s);
+ if ((uv = swash_fetch(rv, s)) < none)
matches++;
- }
+ s += UTF8SKIP(s);
}
return matches;
}
-static I32
+STATIC I32
do_trans_UC_simple(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_CU_simple(SV *sv)
{
dTHR;
/* utf-8 to latin-1 */
-static I32
+STATIC I32
do_trans_UC_trivial(SV *sv)
{
dTHR;
/* latin-1 to utf-8 */
-static I32
+STATIC I32
do_trans_CU_trivial(SV *sv)
{
dTHR;
return matches;
}
-static I32
+STATIC I32
do_trans_UU_complex(SV *sv)
{
dTHR;
I32
do_trans(SV *sv)
{
+ dTHR;
STRLEN len;
if (SvREADONLY(sv) && !(PL_op->op_private & OPpTRANS_IDENTICAL))
RETURN;
}
- if (!SvRMAGICAL(keys) || !mg_find((SV*)keys,'P'))
+ if (! SvTIED_mg((SV*)keys, 'P'))
i = HvKEYS(keys);
else {
i = 0;
if (dokeys)
XPUSHs(hv_iterkeysv(entry)); /* won't clobber stack_sp */
if (dovalues) {
- tmpstr = sv_newmortal();
PUTBACK;
- sv_setsv(tmpstr,realhv ?
- hv_iterval(hv,entry) : avhv_iterval((AV*)hv,entry));
+ tmpstr = realhv ?
+ hv_iterval(hv,entry) : avhv_iterval((AV*)hv,entry);
DEBUG_H(sv_setpvf(tmpstr, "%lu%%%d=%lu",
(unsigned long)HeHASH(entry),
HvMAX(keys)+1,