Lines Matching refs:prototype
708 # takes a function prototype and spits out all the details
711 my $prototype = shift @_;
713 if ($prototype =~ m/^()([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/ ||
714 $prototype =~ m/^(\w+)\s+([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/ ||
715 $prototype =~ m/^(\w+\s*\*)\s*([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/ ||
716 $prototype =~ m/^(\w+\s+\w+)\s+([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/ ||
717 $prototype =~ m/^(\w+\s+\w+\s*\*)\s*([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/)
758 print STDERR "Error($lineno): cannot understand prototype: '$prototype
789 # 3 - scanning prototype.
868 # print STDERR "end of doc comment, looking for prototype\n";
869 $prototype = "";
885 } elsif ($state == 3) { # scanning for function { (end of prototype)
890 $prototype .= $1;
893 $prototype =~ s@/\*.*?\*/@@gos; # strip comments.
894 $prototype =~ s@[\r\n]+@ @gos; # strip newlines/cr's.
895 $prototype =~ s@^ +@@gos; # strip leading spaces
896 dump_function($prototype);
905 $prototype = "";