glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Also print out the routine's filename in xref7.

Browse Source
This commit is contained in:
Warren Toomey
2016-03-12 22:53:33 +10:00
parent ffb6676a39
commit abf5ae6149
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tools/xref7
+10 -4
View File
@@ -7,6 +7,7 @@
# (c) 2016 Warren Toomey, GPL3 # (c) 2016 Warren Toomey, GPL3
use strict; use strict;
use warnings; use warnings;
#use Data::Dumper; #use Data::Dumper;
my %Label; # Hash of labels found my %Label; # Hash of labels found
@@ -117,13 +118,14 @@ sub parse_file {
open( my $IN, "<", $file ) || die("Cannot read $file: $!\n"); open( my $IN, "<", $file ) || die("Cannot read $file: $!\n");
while ( my $line = <$IN> ) { while ( my $line = <$IN> ) {
chomp($line); # Lose the end of line chomp($line); # Lose the end of line
parse_line($line); parse_line( $file, $line );
} }
close($IN); close($IN);
} }
sub parse_line { sub parse_line {
my $line = shift; my ( $file, $line ) = @_;
$file =~ s{.*/}{};
# Lose leading whitespace and comments # Lose leading whitespace and comments
$line =~ s{^\s+}{}; $line =~ s{^\s+}{};
@@ -140,7 +142,10 @@ sub parse_line {
if ( !( $label =~ m{^\d+$} ) ) { if ( !( $label =~ m{^\d+$} ) ) {
# Define the label in stage 1 # Define the label in stage 1
$Label{$label}{def} = 1 if ( $stage == 1 ); if ( $stage == 1 ) {
$Label{$label}{def} = 1;
$Label{$label}{file} = $file;
}
$curlabel = $label; $curlabel = $label;
} }
} }
@@ -189,10 +194,11 @@ sub print_output {
# Does it have anything useful? # Does it have anything useful?
my $count = keys( %{ $Label{$curlabel} } ); my $count = keys( %{ $Label{$curlabel} } );
next if ( $count == 1 ); # Nope next if ( $count == 2 ); # Nope
print("Function $curlabel\n"); print("Function $curlabel\n");
print("==============\n"); print("==============\n");
print("File: $Label{$curlabel}{file}\n");
print("Purpose:\n"); print("Purpose:\n");
print("Arguments:\n"); print("Arguments:\n");
print("Returns:\n"); print("Returns:\n");