Lines Matching defs:line
37 -c check continuation line indenting
61 my ($filename, $line, $prev);
101 printf $fmt, $filename, $., $_[0], $line;
126 line: while (<STDIN>) {
129 # save the original line, then remove all text from within
132 $line = $_;
141 next line;
145 # a /*JSTYLED*/ comment indicates that the next line is ok.
157 $prev = $line;
158 next line;
161 # remember whether we expect to be inside a continuation line.
164 # check for proper continuation line. blank lines
170 # continuation line must start with whitespace of
171 # previous line, plus either 4 spaces or a tab, but
174 # fit on the line.
177 err("continuation line improperly indented");
187 # a /*JSTYLED*/ comment indicates that the next line is ok.
203 $prev = $line;
204 next line;
208 $prev = $line;
209 next line;
220 err("improper first line of block comment");
231 $prev = $line;
232 next line;
250 $prev = $line;
251 next line;
256 # check length of line.
258 if ($line =~ tr/\t/\t/ * 7 + length($line) > 80) {
261 my $eline = $line;
265 err("line > 80 characters");
271 # five spaces are also allowed at the end of a line's indentation
272 # if the rest of the line belongs to a block comment.
287 err("space or tab at end of line");
291 err("continuation line not indented by 4 spaces");
308 $prev = $line;
309 next line;
318 # check for unterminated single line comments.
320 err("unterminated single line comment");
325 # line, preserve whatever's in between.
342 # if it looks like an operator at the end of the line, and it is
406 err("more than one keyword on line");
416 # strip off all keywords on the line
438 err("left brace starting a line");
459 err("possible left brace starting a line");
464 my $str = "else and right brace should be on same line";
467 printf "%s\n", $line;
471 $prev = $line;
475 err("last line in file is blank");