diff options
author | Norbert Preining <preining@logic.at> | 2011-05-09 22:51:10 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2011-05-09 22:51:10 +0000 |
commit | 6e1df2e361a83766f6360f4dfd8325ce3efa6426 (patch) | |
tree | 200cfd298dc8ca69839f93522c35d88daa3dfc5d | |
parent | d8548c119c273878addf09f7b91b0350a8d0b008 (diff) |
remove tlpkg/dev/keyword-search, move the docu to tlpkg/doc
git-svn-id: svn://tug.org/texlive/trunk@22392 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/dev/keyword-search/read-dump-and-pretty-print.pl | 52 | ||||
-rw-r--r-- | Master/tlpkg/doc/tlmgr-keyword-search-interface.txt (renamed from Master/tlpkg/dev/keyword-search/tlmgr-interface.txt) | 0 |
2 files changed, 0 insertions, 52 deletions
diff --git a/Master/tlpkg/dev/keyword-search/read-dump-and-pretty-print.pl b/Master/tlpkg/dev/keyword-search/read-dump-and-pretty-print.pl deleted file mode 100644 index ca5a7ba7d76..00000000000 --- a/Master/tlpkg/dev/keyword-search/read-dump-and-pretty-print.pl +++ /dev/null @@ -1,52 +0,0 @@ -$^W = 1; -use strict; -# how to read in!!! -my $seikaku; -my $kw_pkg; -my $cz_pkg; -my $foo = `cat tc-dump`; -# the no strict "vars" is *ABSOLUT* necessary otherwise the file is not -# evaluated, no idea why! -no strict "vars"; -eval "$foo"; -use strict "vars"; -# -print_keywords($kw_pkg); -print "\n===================\nprimary characterizations\n"; -walk_cz_tree($cz_pkg->{'primary'}, "PRIM"); -print "\n===================\nsecondary characterizations\n"; -walk_cz_tree($cz_pkg->{'secondary'}, "SEC"); -print "\n===================\nby-function characterizations\n"; -walk_cz_tree($cz_pkg->{'by-function'}, "BFUNC"); - - -sub print_keywords { - my $kw_pkg = shift; - for my $k (keys %$kw_pkg) { - my @pkgl = @{$kw_pkg->{$k}}; - if (defined(@pkgl)) { - print "keyword = $k\n package = @pkgl\n"; - } else { - print "keyword = $k\n package = NO PACKAGE FOUND!\n"; - } - } -} - - -sub walk_cz_tree { - my $cp = shift; - my $prestring = shift; - if (defined($cp->{'_packages_'})) { - my @pkgs = sort @{$cp->{'_packages_'}}; - print "$prestring\n"; - print "--> @pkgs\n"; - } - for my $cz (keys %$cp) { - if ($cz ne '_packages_') { - my $nextstring = "$prestring > $cz"; - my $np = $cp->{$cz}; - &walk_cz_tree($np,$nextstring); - } - } -} - diff --git a/Master/tlpkg/dev/keyword-search/tlmgr-interface.txt b/Master/tlpkg/doc/tlmgr-keyword-search-interface.txt index 2b955040470..2b955040470 100644 --- a/Master/tlpkg/dev/keyword-search/tlmgr-interface.txt +++ b/Master/tlpkg/doc/tlmgr-keyword-search-interface.txt |