mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-11-17 12:08:43 +00:00
68 lines
1.4 KiB
Perl
Executable File
68 lines
1.4 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
$dirroot = "/ftp/pub/apple2/gs.specific";
|
|
$dirlist = "gno orca";
|
|
|
|
#
|
|
# Get the list of .index.src files. We will look in here for references
|
|
# to the describe database.
|
|
#
|
|
open(fp, "(cd $dirroot; find $dirlist -name .index.src -print)|") ||
|
|
die("couldn't get file list");
|
|
@indexfiles = <fp>;
|
|
close(fp);
|
|
|
|
# extract all the program names from the db source file.
|
|
while(<>) {
|
|
chop;
|
|
if (/^Name:\s+(.*)/) {
|
|
$name = $1;
|
|
$name =~ s/\s+$//;
|
|
if ($name =~ /\s+/) {
|
|
printf(stderr "%s:%d: Multi-word program name \"%s\". Skipped.\n",
|
|
$ARGV, $., $name);
|
|
} else {
|
|
$name =~ tr/A-Z/a-z/;
|
|
$namelist{$name} = ':';
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
foreach $f (@indexfiles) {
|
|
chop($f);
|
|
if (open(fp, "$dirroot/$f")) {
|
|
$f2 = $f;
|
|
$f2 =~ s,/.index.src$,,;
|
|
while ($_ = <fp>) {
|
|
if (/%%describe%%([^%]+)%%/) {
|
|
$ref = $1;
|
|
$ref =~ tr/A-Z/a-z/;
|
|
if (defined($namelist{$ref})) {
|
|
($namelist{$ref} .= "$f2:")
|
|
unless ($namelist{$ref} =~ /:$f2:/);
|
|
} else {
|
|
printf(stderr
|
|
"%s/%s:%d: Warning: Reference to program (\"%s\") ".
|
|
"not in database. Entry skipped.\n",
|
|
$dirroot, $f, $., $ref);
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
printf("couldn't open %s/%s: file skipped", $dirroot, $f);
|
|
}
|
|
}
|
|
|
|
# print out the results.
|
|
@keylist = keys(%namelist);
|
|
foreach $k (@keylist) {
|
|
$s = $namelist{$k};
|
|
($s eq ':') && ($s = ':unsorted:');
|
|
printf("%s\t%s\n", $k, $s);
|
|
}
|
|
|
|
|
|
|
|
|