$file

#!/usr/local/bin/perl5 # path 1 for $file (@ARGV) { open(C,"<$file"); while() { if(/^(\w+)\(/) { $cross{$1} = $file.".html#".$1; } elsif (/#define\s+(\w+)/) { $cross{$1} = $file.".html#".$1; } } } # create cross reference link substitution # Should not match partial string $crossref = "sub crossref { \n"; for (reverse sort keys %cross) { $cross = $cross{$_}; $cross =~ s/(\W)/\\$1/g; $crossref .= "s:(\\W)$_(\\W):\$1$_\$2:g;\n"; } $crossref .= "}\n"; eval $crossref; # path 2 for $file (@ARGV) { open(C,"<$file"); open(HTML,">$file.html"); print HTML "\n"; print HTML "\n"; print HTML "$file\n"; print HTML "\n"; print HTML "

\n";
    while() {
	s/&/\&/g;
	s//\>/g;
	# Do not substitute definition line
	if(/^(\w+)\(/) {
	    chop;
	    print HTML "";
	    print HTML $_,"\n";
	} elsif (/#define\s+(\w+)/) {
	    chop;
	    print HTML "";
	    print HTML $_,"\n";
	} else {
	    &crossref;    # calling program generated subroutine
	    print HTML;
	}
    }
    print HTML "

\n"; print HTML "\n"; print HTML "\n"; } __END__ =head1 NAME cref.pl Cross referenced C source generator =head1 SYNOPSIS cref.pl *.h *.c =head1 DESCRIPTION Generated cross referenced HTML file from C source code. Function name definitions have to be started from the line top. Otherwize we have to parse C type definitions in Perl. =head1 AUTHOR Shinji Kono, kono@ie.u-ryukyu.ac.jp =cut