#!/opt/exp/bin/perl -w
use strict;

my $newIO = <<'!EOF!';
#if ilinux || cygwin
FILE *yyin = {_IO_stdin}, *yyout = {_IO_stdout};
#else
!EOF!

my @scanner = <>;
map(s%^(\s*FILE\s+\*\s*yyin\s*=\s*.*)%$newIO$1\n#endif%,@scanner);
print @scanner;
