File: get-function-ref.pl

package info (click to toggle)
qrupdate 1.0.1-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 504 kB
  • ctags: 233
  • sloc: fortran: 3,905; makefile: 113; perl: 17; sh: 13
file content (20 lines) | stat: -rw-r--r-- 296 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!/usr/bin/perl

while(<STDIN>)
{    
    if(/^\s*subroutine\s*(.*)/)
    {
	$subname = "$1\n";
	$line = <STDIN>;
	$line = <STDIN> if ($line =~ /^\s*$/);
	$doctext="";
 	while($line =~ /^c(.*)/ )
 	{
	    $doctext .= "\t$1\n";
	    $line = <STDIN>;
 	}
	print $subname;
	print $doctext;
    }
}