summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-01-25 18:11:43 +0000
committerNorbert Preining <preining@logic.at>2009-01-25 18:11:43 +0000
commitfcc99c721274faed249824c5d18e8c769b6d83b0 (patch)
tree057bb55592a1f29e6dbc0e4707348ae727e5d17a /Master/texmf
parent1e803a17861d65b77d7c11702e9d72c4ff4b1ec3 (diff)
add an action "recreate-tlpdb" to tlmgr ... needs testing
git-svn-id: svn://tug.org/texlive/trunk@11973 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl87
1 files changed, 86 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index d94ecf9950c..5b25dbf6e05 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -131,7 +131,8 @@ my %actionoptions = (
"generate" => { "localcfg" => "=s",
"dest" => "=s" },
"uninstall"=> { "force" => 1 },
- "check" => { "use-svn" => 1 }
+ "check" => { "use-svn" => 1 },
+ "recreate-tlpdb" => { "arch" => "=s" }
);
my %optarg;
@@ -372,6 +373,9 @@ sub execute_action {
} elsif ($action =~ m/^uninstall$/i) {
merge_into(\%ret, action_uninstall());
finish(0);
+ } elsif ($action =~ m/^recreate-tlpdb$/i) {
+ merge_into(\%ret, action_recreate_tlpdb());
+ finish(0);
} else {
die "$0: unknown action: $action; try --help if you need it.\n";
}
@@ -2253,6 +2257,87 @@ sub action_uninstall {
system("rmdir", "--ignore-fail-on-non-empty", "$Master");
}
+# RECREATE TLPDB
+#
+sub action_recreate_tlpdb {
+ my $tlpdb = TeXLive::TLPDB->new;
+ $tlpdb->root($Master);
+ my $inst = TeXLive::TLPOBJ->new;
+ $inst->name("00texlive-installation.config");
+ $inst->category("TLCore");
+ my @deps;
+ push @deps, "location:$TeXLive::TLConfig::TeXLiveURL";
+ push @deps, "opt_create_formats:0";
+ push @deps, "opt_create_symlinks:0";
+ push @deps, "opt_sys_bin:/usr/local/bin";
+ push @deps, "opt_sys_info:/usr/local/info";
+ push @deps, "opt_sys_man:/usr/local/man";
+ push @deps, "opt_install_docfiles:0";
+ push @deps, "opt_install_srcfiles:0";
+ # find list of available archs
+ my @archs;
+ opendir (DIR, "$Master/bin") || die "opendir($Master/bin) failed: $!";
+ my @dirents = readdir (DIR);
+ closedir (DIR) || warn "closedir($Master/bin) failed: $!";
+ for my $dirent (@dirents) {
+ next if $dirent eq ".";
+ next if $dirent eq "..";
+ next unless -d "$Master/bin/$dirent";
+ if (-r "$Master/bin/$dirent/kpsewhich" || -r "$Master/bin/$dirent/kpsewhich.exe") {
+ push @archs, $dirent;
+ debug("Skipping directory $Master/bin/$dirent, no kpsewhich there\n");
+ }
+ }
+ push @deps, "available_architectures:" . join(" ",@archs);
+ # we have to find out the default arch
+ # if there is only one dir in $Master/bin then we are settled,
+ # otherwise we expect the user to pass a correct arch string
+ if ($^O =~ /^MSWin(32|64)$/i) {
+ push @deps, "platform:win32";
+ } else {
+ if ($#archs == 0) {
+ # only one arch available, fine, use it as default
+ push @deps, "platform:$archs[0]";
+ } else {
+ if (defined($opts{"arch"})) {
+ if (member($opts{"arch"}, @archs)) {
+ push @deps, "platform:" . $opts{"arch"};
+ } else {
+ tlwarn("The architecture you passed in with --arch is not present in $Master/bin\n");
+ tlwarn("Please specify one from the available ones: @archs\n");
+ exit(1);
+ }
+ } else {
+ tlwarn("More than one architecture available: @archs\n");
+ tlwarn("Please pass one as the default you are running on with --arch=...\n");
+ exit(1);
+ }
+ }
+ }
+ $inst->depends(@deps);
+ # now we have all the stuff for 00texlive-installation.config done
+ $tlpdb->add_tlpobj($inst);
+ # add the other stuff in $Master/tlpkg/tlpobj/*.tlpobj
+ # we can ignore *.{source,doc}.tlpobj because they are already
+ # included in the *.tlpobj parent one at install time
+ # (TODO: we should actually REMOVE the *.{source,doc}.tlpobj files
+ # at package install time)
+ opendir (DIR, "$Master/tlpkg/tlpobj") or die "opendir($Master/tlpkg/tlpobj) failed: $!";
+ my @tlps = readdir(DIR);
+ closedir (DIR) || warn "closedir($Master/tlpkg/tlpobj) failed: $!";
+ for my $t (@tlps) {
+ next if -d $t; # also does . and ..
+ next if ($t !~ m/\.tlpobj$/i);
+ # ignore .source and .doc tlpobjs
+ next if ($t =~ m/\.(source|doc)\.tlpobj$/i);
+ my $tlp = TeXLive::TLPOBJ->new;
+ $tlp->from_file("$Master/tlpkg/tlpobj/$t");
+ $tlpdb->add_tlpobj($tlp);
+ }
+ # writeout the re-created tlpdb to stdout
+ $tlpdb->writeout;
+ return;
+}
# CHECK
#