summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2011-05-09 22:51:10 +0000
committerNorbert Preining <preining@logic.at>2011-05-09 22:51:10 +0000
commit6e1df2e361a83766f6360f4dfd8325ce3efa6426 (patch)
tree200cfd298dc8ca69839f93522c35d88daa3dfc5d /Master
parentd8548c119c273878addf09f7b91b0350a8d0b008 (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
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/dev/keyword-search/read-dump-and-pretty-print.pl52
-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