What this is
This file is included in the DevDaily.com
"Perl Source Code
Warehouse" project. The intent of this project is to help you "Learn
Perl by Example" TM.
Other links
The source code
$line = 1;
while (<>)
{
$line++;
# 1st correct #line directives for perly.c itself
s/^(#line\s+)\d+(\s*"perly\.c"\s*)$/$1$line$2/;
# now add () round things gcc dislikes
s/if \(yyn = yydefred\[yystate\]\)/if ((yyn = yydefred[yystate]))/;
s/if \(yys = getenv\("YYDEBUG"\)\)/if ((yys = getenv("YYDEBUG")))/;
print;
}
|
The search page
Other source code files at this package level
Click here to learn more about this project