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

winsup/cygwin/ChangeLog

@@ -1,3 +1,8 @@
+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

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; $_} @_;
+}