sanchayanmaity/xv6-cs450
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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; $n = int(($n+49)/50)*50 - 1;
$file = $ARGV[0];
@lines = <>; @lines = <>;
$linenum = 0;
foreach (@lines) { foreach (@lines) {
$linenum++;
chomp; chomp;
s/\s+$//; s/\s+$//;
if(length() >= 75){ if(length() >= 75){
print "$ARGV[0]:$.: line too long"; print STDERR "$file:$linenum: line too long\n";
} }
} }
@outlines = (); @outlines = ();