#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;
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))