* 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

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>
* fhandler_clipboard.cc (fhandler_dev_clipboard::close): Set membuffer

View File

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