* gendef: Use nocr to remove \r's from input. gendef (nocr): New function.

diff --git a/winsup/cygwin/ChangeLog b/winsup/cygwin/ChangeLog
index 10f1f4f..a241341 100644 (file)
--- a/winsup/cygwin/ChangeLog
+++ b/winsup/cygwin/ChangeLog
@@ -1,5 +1,10 @@
 2005-07-27  Christopher Faylor  <cgf@timesys.com>
 
+       * gendef: Use nocr to remove \r's from input.
+       gendef (nocr): New function.
+
+2005-07-27  Christopher Faylor  <cgf@timesys.com>
+
        * fhandler_clipboard.cc (fhandler_dev_clipboard::close): Set membuffer
        to NULL.
        (fhandler_dev_clipboard::fixup_after_exec): Don't call close here.

diff --git a/winsup/cygwin/gendef b/winsup/cygwin/gendef
index 83e9e12..9d8a211 100755 (executable)
--- a/winsup/cygwin/gendef
+++ b/winsup/cygwin/gendef
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 use strict;
+sub nocr(@);
 my $in = shift;
 my $tls_offsets = shift;
 my $out = shift;
@@ -15,11 +16,11 @@ require $tls_offsets;
 open(IN, $in) or die "$0: couldn't open \"$in\" - $!\n";
 my @top = ();
 while (<IN>) {
-    push(@top, $_);
+    push(@top, nocr $_);
     last if /^\s*exports\s*$/i;
 }
-my $libline = <IN>;
-my @in = <IN>;
+my $libline = nocr scalar(<IN>);
+my @in = nocr <IN>;
 close(IN);
 
 my %sigfe = ();
@@ -349,3 +350,7 @@ _longjmp:
        ret
 EOF
 }
+
+sub nocr(@) {
+    map {s/\r//g; $_} @_;
+}