libs/newlib-cygwin
libs
/
newlib-cygwin
mirror of git://sourceware.org/git/newlib-cygwin.git
4
0
Fork 0
Code Issues Projects Releases Wiki Activity

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

This commit is contained in:
Christopher Faylor 2005-07-27 16:16:51 +00:00
parent a3c024d6ea
commit efc7accc9d
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
winsup/cygwin/ChangeLog
View File

@ -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> 2005-07-27 Christopher Faylor <cgf@timesys.com>
* fhandler_clipboard.cc (fhandler_dev_clipboard::close): Set membuffer * fhandler_clipboard.cc (fhandler_dev_clipboard::close): Set membuffer

11
winsup/cygwin/gendef
View File

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