mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-09-28 18:54:51 +00:00
Added a "fudge list" for utilities where we know which class(es) they're
in, but that for some reason don't reference the describe database in the .index.src files.
This commit is contained in:
parent
871932548b
commit
a029903025
@ -1,8 +1,35 @@
|
|||||||
#! /usr/bin/perl
|
#! /usr/bin/perl
|
||||||
|
|
||||||
|
# This script makes the index listing used sort describe entries by
|
||||||
|
# category. It gets most of its information from where utilities
|
||||||
|
# reside in the GNO ftp hierarchy.
|
||||||
|
#
|
||||||
|
# Devin Reade, January 1998
|
||||||
|
#
|
||||||
|
# $Id: mkindex,v 1.2 1998/01/17 21:26:42 gdr Exp $
|
||||||
|
#
|
||||||
|
|
||||||
$dirroot = "/ftp/pub/apple2/gs.specific";
|
$dirroot = "/ftp/pub/apple2/gs.specific";
|
||||||
$dirlist = "gno orca";
|
$dirlist = "gno orca";
|
||||||
|
|
||||||
|
# This is a list of describe entries which we want to force into a
|
||||||
|
# given category. This should only be used when a utility doesn't have
|
||||||
|
# an entry of its own in the .index.src files as a result of being
|
||||||
|
# archived with another utility. For example, we fudge "descc" and
|
||||||
|
# "descu" because they are archived in with "describe".
|
||||||
|
|
||||||
|
$fudgelist{"cclean"} = "gno/programming"; # with occ
|
||||||
|
$fudgelist{"ccprep"} = "gno/programming"; # with occ
|
||||||
|
$fudgelist{"cjpeg"} = "gno/graphics"; # part of jpeg tools
|
||||||
|
$fudgelist{"djpeg"} = "gno/graphics"; # part of jpeg tools
|
||||||
|
$fudgelist{"jpegtran"} = "gno/graphics"; # part of jpeg tools
|
||||||
|
$fudgelist{"rdjpgcom"} = "gno/graphics"; # part of jpeg tools
|
||||||
|
$fudgelist{"wrjpgcom"} = "gno/graphics"; # part of jpeg tools
|
||||||
|
$fudgelist{"descc"} = "gno/doc.utils"; # with describe
|
||||||
|
$fudgelist{"descu"} = "gno/doc.utils"; # with describe
|
||||||
|
$fudgelist{"fortune"} = "gno/games"; # resolve fortuna-[abc]
|
||||||
|
# $fudgelist{""} = "";
|
||||||
|
|
||||||
#
|
#
|
||||||
# Get the list of .index.src files. We will look in here for references
|
# Get the list of .index.src files. We will look in here for references
|
||||||
# to the describe database.
|
# to the describe database.
|
||||||
@ -58,7 +85,16 @@ foreach $f (@indexfiles) {
|
|||||||
@keylist = keys(%namelist);
|
@keylist = keys(%namelist);
|
||||||
foreach $k (@keylist) {
|
foreach $k (@keylist) {
|
||||||
$s = $namelist{$k};
|
$s = $namelist{$k};
|
||||||
($s eq ':') && ($s = ':unsorted:');
|
if ($s eq ':') {
|
||||||
|
if (defined($fudgelist{$k})) {
|
||||||
|
$s = ':' . $fudgelist{$k} . ':';
|
||||||
|
} else {
|
||||||
|
$s = ':unsorted:';
|
||||||
|
}
|
||||||
|
} elsif (defined($fudgelist{$k})) {
|
||||||
|
printf(stderr
|
||||||
|
"WARNING: %s should no longer be in the fudge list\n", $k);
|
||||||
|
}
|
||||||
printf("%s\t%s\n", $k, $s);
|
printf("%s\t%s\n", $k, $s);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user