Lines Matching refs:source
12 # Redistribution and use in source and binary forms, with or without
15 # 1. Redistributions of source code must retain the above copyright
102 my $source;
121 warn("$fn: not C source, ignoring\n");
127 $source = join('', <FILE>);
131 if ($source =~ m/^ \* NOPARSE\s*$/m);
133 if ($source =~ m/(\$Id:[^\$]+\$)/) {
138 if ($source =~ s/^ \* AUTHOR\s+(\w*)\s*$//m) {
142 if ($source =~ s/^ \* DEPRECATED\s*(\w*)\s*$//m) {
146 if ($source =~ s/^ \* EXPERIMENTAL\s*$//m) {
152 if ($source !~ m,\n \* ([\S ]+)\n \*/\n\n([\S ]+)\n$func\((.*?)\)\n\{,s) {
170 foreach (split("\n", $source)) {
190 foreach (split("\n", $source)) {
330 'source' => $fn,
344 if ($source =~ m/^ \* NODOC\s*$/m) {
347 if ($source !~ m/^ \* XSSO \d/m) {
380 $fn = $$func{source};
438 $$func{source} =~ m/([^\/]+)$/;
658 print(STDERR "usage: gendoc [-op] source [...]\n");