diff options
Diffstat (limited to 'src/util/et/et_c.perl')
-rw-r--r-- | src/util/et/et_c.perl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/util/et/et_c.perl b/src/util/et/et_c.perl index b097eaaf61..ad85ec7594 100644 --- a/src/util/et/et_c.perl +++ b/src/util/et/et_c.perl @@ -79,7 +79,7 @@ $c2n{'9'} = 62; $c2n{'_'} = 63; line: while (<>) { - chop; # strip record separator + chomp; # strip record separator @Fld = split($FS, $_, 9999); if (/^#/) { next line; @@ -137,14 +137,10 @@ line: while (<>) { (print $fh ' */'); &Pick('>', $outfile) && - (print $fh '#if defined(_MSDOS) || defined(_WIN32)'); + (print $fh '#if defined(_WIN32)'); &Pick('>', $outfile) && (print $fh "# include \"win-mac.h\""); &Pick('>', $outfile) && - (print $fh '#else'); - &Pick('>', $outfile) && - (print $fh '# define FAR'); - &Pick('>', $outfile) && (print $fh '#endif'); &Pick('>', $outfile) && (print $fh ''); @@ -163,7 +159,7 @@ line: while (<>) { &Pick('>', $outfile) && (print $fh '/*@-redef@*/'); &Pick('>', $outfile) && - (print $fh 'typedef /*@null@*/ const char FAR *ncptr;'); + (print $fh 'typedef /*@null@*/ const char *ncptr;'); &Pick('>', $outfile) && (print $fh '/*@=redef@*/'); &Pick('>', $outfile) && @@ -262,7 +258,7 @@ else { &Pick('>', $outfile) && (print $fh - '#if !defined(_MSDOS) && !defined(_WIN32) && !defined(macintosh)'); + '#if !defined(_WIN32) && !defined(macintosh)'); &Pick('>', $outfile) && (print $fh 'void initialize_' . $table_name . '_error_table (void)'); &Pick('>', $outfile) && |