sanchayanmaity/xv6-cs450
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

correct line numbers

Browse source
This commit is contained in:
rsc 2007-08-10 17:45:14 +00:00
parent 8139713c46
commit 8908cc9b15
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
runoff1
View file

@ -13,12 +13,15 @@ if($ARGV[0] eq "-n") {
}
$n = int(($n+49)/50)*50 - 1;
$file = $ARGV[0];
@lines = <>;
$linenum = 0;
foreach (@lines) {
$linenum++;
chomp;
s/\s+$//;
if(length() >= 75){
print "$ARGV[0]:$.: line too long";
print STDERR "$file:$linenum: line too long\n";
}
}
@outlines = ();