view release on metacpan or  search on metacpan

Compiler/lexer.c  view on Meta::CPAN

	YY_BREAK
case 23:
YY_RULE_SETUP
#line 76 "lexer.yy"
{ sv_catpvn(amd_yylval->sv, (amd_yytext + 1), 1); }
	YY_BREAK
case 24:
YY_RULE_SETUP
#line 77 "lexer.yy"
{
						amd_yywarnf("Bad hexadecimal escape %s", amd_yytext);
						sv_catpv(amd_yylval->sv, amd_yytext);
							}
	YY_BREAK
case 25:
YY_RULE_SETUP
#line 81 "lexer.yy"
{
						amd_yywarnf("Bad octal escape %s", amd_yytext);
						sv_catpv(amd_yylval->sv, amd_yytext);
							}
	YY_BREAK
case 26:
YY_RULE_SETUP
#line 85 "lexer.yy"
{
						warn("Unknown escape character \\%c",amd_yytext[1]);
						sv_catpvn(amd_yylval->sv, (amd_yytext + 1), 1);
							}
	YY_BREAK
case 27:
YY_RULE_SETUP
#line 90 "lexer.yy"
{ return amd_yyinteger(amd_yylval); }
	YY_BREAK
case 28:
YY_RULE_SETUP

Compiler/lexer.yy  view on Meta::CPAN

<STRING>\\x[[:xdigit:]]{1,2}	{ /* hex char */ }
<STRING>\\n					{ sv_catpv(yylval->sv, "\n"); }
<STRING>\\t					{ sv_catpv(yylval->sv, "\t"); }
<STRING>\\v					{ sv_catpv(yylval->sv, "\v"); }
<STRING>\\b					{ sv_catpv(yylval->sv, "\b"); }
<STRING>\\r					{ sv_catpv(yylval->sv, "\r"); }
<STRING>\\f					{ sv_catpv(yylval->sv, "\f"); }
<STRING>\\a					{ sv_catpv(yylval->sv, "\a"); }
<STRING>\\[\\\?\'\"]    	{ sv_catpvn(yylval->sv, (yytext + 1), 1); }
<STRING>\\x[^[:xdigit:]]{1,2}	{
						yywarnf("Bad hexadecimal escape %s", yytext);
						sv_catpv(yylval->sv, yytext);
							}
<STRING>\\[0-9]{1,2}		{
						yywarnf("Bad octal escape %s", yytext);
						sv_catpv(yylval->sv, yytext);
							}
<STRING>\\[^\\\?\'\"ntvbrfa0-9]	{
						warn("Unknown escape character \\%c",yytext[1]);
						sv_catpvn(yylval->sv, (yytext + 1), 1);
							}

[[:digit:]]+			{ return yyinteger(yylval); }
0x[[:xdigit:]]+			{ return yyinteger(yylval); }
\$[[:digit:]]+			{ yylval->number = atol(yytext); return L_PARAMETER; }
{TOKEN}					{ return yyidentifier(yylval, param); }
{NONNUMBER}				{ warn("Letters in number and not hex"); }

{WHITE}					{ }