p |int |yyerror |NN const char *const s
p |int |yyerror_pv |NN const char *const s|U32 flags
p |int |yyerror_pvn |NN const char *const s|STRLEN len|U32 flags
-p |int |yyerror_sv |NN SV * sv|U32 flags
: Used in perly.y, and by Data::Alias
EXp |int |yylex
p |void |yyunlex
#define yyerror(a) Perl_yyerror(aTHX_ a)
#define yyerror_pv(a,b) Perl_yyerror_pv(aTHX_ a,b)
#define yyerror_pvn(a,b,c) Perl_yyerror_pvn(aTHX_ a,b,c)
-#define yyerror_sv(a,b) Perl_yyerror_sv(aTHX_ a,b)
#define yyparse(a) Perl_yyparse(aTHX_ a)
#define yyunlex() Perl_yyunlex(aTHX)
# if !(defined(DEBUGGING))
#define PERL_ARGS_ASSERT_YYERROR_PVN \
assert(s)
-PERL_CALLCONV int Perl_yyerror_sv(pTHX_ SV * sv, U32 flags)
- __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_YYERROR_SV \
- assert(sv)
-
PERL_CALLCONV int Perl_yylex(pTHX);
PERL_CALLCONV int Perl_yyparse(pTHX_ int gramtype);
PERL_CALLCONV void Perl_yyunlex(pTHX);
}
int
-Perl_yyerror_sv(pTHX_ SV * sv, U32 flags)
-{
- char *s;
- STRLEN len;
- PERL_ARGS_ASSERT_YYERROR_SV;
- s = SvPV(sv, len);
- if (SvUTF8(sv))
- flags |= SVf_UTF8;
- return yyerror_pvn(s, len, flags);
-}
-
-int
Perl_yyerror_pvn(pTHX_ const char *const s, STRLEN len, U32 flags)
{
dVAR;