perlyline.pl

   1 $line = 1;
   2 while (<>)
   3  {
   4   $line++;
   5   # 1st correct #line directives for perly.c itself
   6   s/^(#line\s+)\d+(\s*"perly\.c"\s*)$/$1$line$2/;
   7   # now add () round things gcc dislikes
   8   s/if \(yyn = yydefred\[yystate\]\)/if ((yyn = yydefred[yystate]))/;
   9   s/if \(yys = getenv\("YYDEBUG"\)\)/if ((yys = getenv("YYDEBUG")))/;
  10   print;
  11  }