Lines Matching defs:line
106 my ($filename, $line, $prev); # shared globals
198 printf $fmt, $filename, $., $error, $line;
208 my $out = $prevline."\n".$line;
255 $line = '';
259 line: while (<$filehandle>) {
262 # save the original line, then remove all text from within
265 $line = $_;
269 # the line. We translate that into a quoted string on the previous
270 # line followed by an initial quote on the next line.
291 # for unfinished strings continuing onto the next line.
313 next line;
317 # a /*CSTYLED*/ comment indicates that the next line is ok.
334 # check length of line.
336 if (($line =~ tr/\t/\t/) * 7 + length($line) > 80) {
339 my $eline = $line;
343 err("line > 80 characters");
359 # a /*CSTYLED*/ comment indicates that the next line is ok.
379 err("space or tab at end of line");
392 $prev = $line;
393 next line;
401 $prev = $line;
402 next line;
409 err("continuation line should be indented by 4 spaces");
435 err("opening brace on same line as function header");
440 next line;
445 $prev = $line;
446 next line;
449 # a blank line terminates the declarations within a function.
471 $prev = $line;
472 next line;
490 $prev = $line;
491 next line;
505 err("continuation line not indented by 4 spaces");
509 $prev = $line;
510 next line;
513 err("improper first line of block comment");
517 $prev = $line;
518 next line;
532 # check for unterminated single line comments, but allow them when
536 err("unterminated single line comment");
540 $prev = $line;
556 next line;
562 # multiple comments on the same line.
605 err("more than one keyword on line");
615 # strip off all keywords on the line
633 # err("return type of function not on separate line");
638 err("return type of function not on separate line");
664 err("left brace starting a line");
729 err("possible left brace starting a line");
735 "else and right brace should be on same line");
738 $prev = $line;
742 err("last line in file is blank");
748 # Continuation-line checking
762 my $cont_start; # the line being continued
764 my $cont_first; # this is the first line of a statement
769 my $cont_case; # this is a multi-line case
785 # labels on a line.
831 $cont_start = $line;
855 # Get the base line, and set up the state machine
878 my $rest = $_; # keeps the remainder of the line
892 # rest contains the remainder of the line
925 "not on its own line");
966 "on its own line");
987 err("stuff after multi-line case") if ($rest !~ /$^/);
995 # line.