Lines Matching refs:line

66     while (my $line = <$input>) {
67 	if ($line =~ $nde) {
68 	    $node = &get_node($line);
69 	} elsif ($line =~ $def) {
70 	    &process_annotation($line);
71 	} elsif ($line =~ $list) {
73 	} elsif ($line =~ $stds) {
74 	    &record_error("Misplaced annotation", ["[$.] ".$line]);
75 	} elsif ($line =~ $ign) {
105     my $line = shift;
109     push @prototypes, $line;
110     while ($line = <$input>) {
111 	last if $line !~ $ann;
112 	push @prototypes, $line;
114     if ($line !~ $stds) { # The fundamental error.
117     push @standards, $line;
118     push @standards, $line while ($line = <$input>) =~ $stds;
123     if ($line =~ $itm) {
124 	seek $input, -length($line), 1 or die "seek: $!";
228     while (my $line = <$input>) {
229 	if ($line =~ $itms) {
231 	    &process_annotation($line);
232 	} elsif ($line =~ $def) {
233 	    &process_annotation($line);
234 	} elsif ($line =~ $stds) {
235 	    &record_error('Misplaced annotation', ["[$.] ".$line]);
236 	} elsif ($line =~ $endl) {
238 	} elsif ($line =~ $list) {
248     my $line = shift;
249     chomp $line;
250     $line =~ s/$nde//;
251     my ($n) = split ',', $line;