Lines Matching refs:line
339 my $line = $1;
342 print STDERR "DEBUG[name_synopsis] \$line = '$line'\n" if $debug;
346 next if $line !~ /$ignore_until/;
350 if ( $line =~ /^\s*(?:typedef\s+)?struct(?:\s+\S+)\s*\{/ ) {
357 $line =~ s/LHASH_OF\([^)]+\)/int/g;
358 $line =~ s/STACK_OF\([^)]+\)/int/g;
359 $line =~ s/SPARSE_ARRAY_OF\([^)]+\)/int/g;
360 $line =~ s/__declspec\([^)]+\)//;
375 if ( $line =~ /env (\S*)=/ ) {
378 } elsif ( $line =~ /typedef.*\(\*?($C_symbol)\)\s*\(/ ) {
382 } elsif ( $line =~ /typedef.*($C_symbol)\s*\(/ ) {
385 } elsif ( $line =~ /typedef.*($C_symbol);/ ) {
389 } elsif ( $line =~ /enum ($C_symbol) \{/ ) {
392 } elsif ( $line =~ /#\s*(?:define|undef) ($C_symbol)/ ) {
395 } elsif ( $line =~ /^[^\(]*?\(\*($C_symbol)\s*\(/ ) {
398 } elsif ( $line =~ /^[^\(]*?($C_symbol)\s*\(/ ) {
413 err($id, "Prototype missing spaces around commas: $line")
414 if $is_prototype && $line =~ /[a-z0-9],[^\s]/;
446 foreach my $line ( split /\n+/, $contents ) {
447 next unless $line =~ /^=head/;
448 if ( $line =~ /head1/ ) {
449 err($id, "Duplicate section $line")
450 if defined $head1{$line};
451 $head1{$line} = 1;
454 err($id, "Duplicate subsection $line")
455 if defined $subheads{$line};
456 $subheads{$line} = 1;
459 if $line =~ /\.[^\w]/ or $line =~ /\.$/;
461 if $line =~ /head1.*[a-z]/;
463 if $line =~ /head[234][ A-Z0-9]+$/;
790 foreach my $line ( split /\n+/, $1 ) {
791 if ( $line =~ m@include <openssl/@ ) {
