Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/perlyline.pl

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


$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;
 }

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].