diff options
author | Norbert Preining <preining@logic.at> | 2010-10-31 07:47:15 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2010-10-31 07:47:15 +0000 |
commit | 90869fb098feda34bfbbcbebe7d51ec0c4af7059 (patch) | |
tree | 3c12bdffaace0e1c2f3fc2e29dff541b0a0219df /Master | |
parent | 0ea3633bbb0541335813e8d5d41387facb2e89a8 (diff) |
update usermode patch to current, no guarantee that it works
git-svn-id: svn://tug.org/texlive/trunk@20269 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/dev/dev.usermode-tlmgr.patch | 915 |
1 files changed, 737 insertions, 178 deletions
diff --git a/Master/tlpkg/dev/dev.usermode-tlmgr.patch b/Master/tlpkg/dev/dev.usermode-tlmgr.patch index 0704e58af0c..52e7f466d8b 100644 --- a/Master/tlpkg/dev/dev.usermode-tlmgr.patch +++ b/Master/tlpkg/dev/dev.usermode-tlmgr.patch @@ -1,17 +1,693 @@ +Index: tlpkg/TeXLive/TLConfig.pm +=================================================================== +--- tlpkg/TeXLive/TLConfig.pm (revision 20263) ++++ tlpkg/TeXLive/TLConfig.pm (working copy) +@@ -173,7 +173,8 @@ + + our %TLPDBSettings = ( + "platform" => [ "s", "Main platform for this computer" ], +- "available_architectures" => [ "l", "All available/installed architectures" ] ++ "available_architectures" => [ "l", "All available/installed architectures" ], ++ "usertree" => [ "b", "This tree acts as user tree" ] + ); + + our $WindowsMainMenuName = "TeX Live $ReleaseYear"; +Index: tlpkg/TeXLive/TLMedia.pm +=================================================================== +--- tlpkg/TeXLive/TLMedia.pm (revision 20263) ++++ tlpkg/TeXLive/TLMedia.pm (working copy) +@@ -59,6 +59,8 @@ + } + if (-d "$location/texmf/web2c") { + $media = 'DVD'; ++ } elsif (-d "$location/web2c") { ++ $media = 'DVD'; + } elsif (-d "$location/$Archive") { + $media = 'CD'; + } else { +@@ -247,8 +249,12 @@ + # if a package is relocatable we have to cancel the reloc prefix + # and unset the relocated setting + # before we save it to the local tlpdb +- if ($tlpobj->relocated) { +- $tlpobj->cancel_reloc_prefix; ++ if ($reloc) { ++ if ($totlpdb->setting("usertree")) { ++ $tlpobj->cancel_reloc_prefix; ++ } else { ++ $tlpobj->replace_reloc_prefix; ++ } + $tlpobj->relocated(0); + } + # we have to write out the tlpobj file since it is contained in the +@@ -321,7 +327,11 @@ + } elsif ($what =~ m,\.tar(\.xz)?$,) { + my $type = defined($1) ? "xz" : "tar"; + +- $target .= "/$TeXLive::TLConfig::RelocTree" if $reloc; ++ if ($reloc) { ++ if (!$totlpdb->setting("usertree")) { ++ $target .= "/$TeXLive::TLConfig::RelocTree" if $reloc; ++ } ++ } + + # this is the case when we install from CD or the NET, or a backup + # +@@ -404,6 +414,7 @@ + my ($self, $pkg, %opts) = @_; + my $localtlpdb = $self->tlpdb; + my $tlp = $localtlpdb->get_package($pkg); ++ my $usertree = $localtlpdb->setting("usertree"); + if (!defined($tlp)) { + tlwarn ("$pkg: package not present, cannot remove\n"); + } else { +@@ -430,9 +441,12 @@ + # in user mode we just remove the prefix, in normal mode we + # replace it with texmf-dist + # since we don't have user mode ++ + if ($tlp->relocated) { + for (@files) { +- s:^$RelocPrefix/:$RelocTree/:; ++ if (!$usertree) { ++ s:^$RelocPrefix/:$RelocTree/:; ++ } + } + } + # +Index: tlpkg/TeXLive/TLPOBJ.pm +=================================================================== +--- tlpkg/TeXLive/TLPOBJ.pm (revision 20263) ++++ tlpkg/TeXLive/TLPOBJ.pm (working copy) +@@ -473,6 +473,21 @@ + sub cancel_reloc_prefix { + my $self = shift; + my @docfiles = $self->docfiles; ++ for (@docfiles) { s:^$RelocPrefix/::; } ++ $self->docfiles(@docfiles); ++ my @runfiles = $self->runfiles; ++ for (@runfiles) { s:^$RelocPrefix/::; } ++ $self->runfiles(@runfiles); ++ my @srcfiles = $self->srcfiles; ++ for (@srcfiles) { s:^$RelocPrefix/::; } ++ $self->srcfiles(@srcfiles); ++ # if there are bin files they have definitely NOT the ++ # texmf-dist prefix, so we cannot cancel it anyway ++} ++ ++sub replace_reloc_prefix { ++ my $self = shift; ++ my @docfiles = $self->docfiles; + for (@docfiles) { s:^$RelocPrefix/:$RelocTree/:; } + $self->docfiles(@docfiles); + my @runfiles = $self->runfiles; +Index: tlpkg/TeXLive/TLUtils.pm +=================================================================== +--- tlpkg/TeXLive/TLUtils.pm (revision 20263) ++++ tlpkg/TeXLive/TLUtils.pm (working copy) +@@ -1279,7 +1279,7 @@ + # if a package is relocatable we have to cancel the reloc prefix + # before we save it to the local tlpdb + if ($tlpobj->relocated) { +- $tlpobj->cancel_reloc_prefix; ++ $tlpobj->replace_reloc_prefix; + } + $totlpdb->add_tlpobj($tlpobj); + # we have to write out the tlpobj file since it is contained in the +Index: tlpkg/dev/dev.usermode-tlmgr.patch +=================================================================== +--- tlpkg/dev/dev.usermode-tlmgr.patch (revision 20263) ++++ tlpkg/dev/dev.usermode-tlmgr.patch (working copy) +@@ -1,475 +1,8 @@ +-Index: texmf/scripts/texlive/tlmgr.pl +-=================================================================== +---- texmf/scripts/texlive/tlmgr.pl (revision 16521) +-+++ texmf/scripts/texlive/tlmgr.pl (working copy) +-@@ -127,6 +127,8 @@ +- "package-logfiles" => "=s", +- "persistent-downloads" => 1, +- "pause" => 1, +-+ "usermode" => 1, +-+ "usertree" => "=s", +- "version" => 1, +- "help|h|?" => 1); +- +-@@ -305,13 +307,30 @@ +- pod2usage(-msg => $msg, -exitstatus => 1, -verbose => 1, @noperldoc); +- } +- +-+ # +-+ # the main tree we will be working on +-+ $::maintree = $Master; +-+ if ($opts{"usermode"}) { +-+ # we could also try to detect that we don't have write permissions +-+ # and switch to user mode automatically +-+ if (defined($opts{"usertree"})) { +-+ $::maintree = $opts{"usertree"}; +-+ } else { +-+ chomp($::maintree = `kpsewhich -var-value TEXMFHOME`); +-+ } +-+ } +-+ +- # besides doing normal logging if -logfile is specified, we try to log +- # package related actions (install, remove, update) to +- # the package-log file TEXMFSYSVAR/web2c/tlmgr.log +- $packagelogged = 0; # how many msgs we logged +- chomp (my $texmfsysvar = `kpsewhich -var-value=TEXMFSYSVAR`); +- $packagelogfile = $opts{"package-logfile"}; +-- $packagelogfile ||= "$texmfsysvar/web2c/tlmgr.log"; +-+ if ($opts{"usermode"}) { +-+ $packagelogfile ||= "$::maintree/web2c/tlmgr.log"; +-+ } else { +-+ $packagelogfile ||= "$texmfsysvar/web2c/tlmgr.log"; +-+ } +- # +- # Try to open the packagelog file, but do NOT die when that does not work +- if (!open(PACKAGELOG, ">>$packagelogfile")) { +-@@ -457,6 +476,9 @@ +- } elsif ($action =~ m/^show$/i) { +- action_show(); +- finish(0); +-+ } elsif ($action =~ m/^init-usertree$/i) { +-+ action_init_usertree(); +-+ finish(0); +- } elsif ($action =~ m/^remove$/i) { +- action_remove(); +- } elsif ($action =~ /^paper$/) { +-@@ -520,6 +542,8 @@ +- { +- my $errors = 0; +- +-+ my $sysmode = ($opts{"usermode"} ? "" : "-sys"); +-+ +- if ($::files_changed) { +- $errors += do_cmd_and_check("mktexlsr"); +- $::files_changed = 0; +-@@ -550,14 +574,14 @@ +- } +- } +- for my $m (keys %do_disable) { +-- $errors += do_cmd_and_check("updmap-sys --nomkmap --nohash --disable $m"); +-+ $errors += do_cmd_and_check("updmap$sysmode --nomkmap --nohash --disable $m"); +- } +- for my $m (keys %do_enable) { +-- my $str = "updmap-sys --nomkmap --nohash --enable " . +-+ my $str = "updmap$sysmode --nomkmap --nohash --enable " . +- $::execute_actions{'enable'}{'maps'}{$m} . "=$m"; +- $errors += do_cmd_and_check($str); +- } +-- $errors += do_cmd_and_check("updmap-sys") if $run_full; +-+ $errors += do_cmd_and_check("updmap$sysmode") if $run_full; +- } +- +- +-@@ -602,13 +626,13 @@ +- # first regenerate all formats --byengine +- for my $e (keys %updated_engines) { +- log ("updating formats based on $e\n"); +-- $errors += do_cmd_and_check("fmtutil-sys --byengine $e"); +-+ $errors += do_cmd_and_check("fmtutil$sysmode --byengine $e"); +- } +- # now rebuild all other formats +- for my $f (keys %do_enable) { +- next if defined($updated_engines{$format_to_engine{$f}}); +- log ("(re)creating format dump $f\n"); +-- $errors += do_cmd_and_check("fmtutil-sys --byfmt $f"); +-+ $errors += do_cmd_and_check("fmtutil$sysmode --byfmt $f"); +- $done_formats{$f} = 1; +- } +- } +-@@ -646,7 +670,7 @@ +- $lang = "$TEXMFSYSVAR/tex/generic/config/$lang"; +- } +- if ($localtlpdb->option("create_formats") && !$::regenerate_all_formats) { +-- $errors += do_cmd_and_check("fmtutil-sys --byhyphen $lang"); +-+ $errors += do_cmd_and_check("fmtutil$sysmode --byhyphen $lang"); +- } +- } +- } +-@@ -655,7 +679,7 @@ +- # +- if ($::regenerate_all_formats) { +- info("Regenerating all formats, this may take some time ..."); +-- $errors += do_cmd_and_check("fmtutil-sys --all"); +-+ $errors += do_cmd_and_check("fmtutil$sysmode --all"); +- info("done\n"); +- $::regenerate_all_formats = 0; +- } +-@@ -828,8 +852,13 @@ +- action_gui("config") if $opts{"gui"}; +- +- init_local_db(); +-- chomp(my $texmfsysconfig = `kpsewhich -var-value=TEXMFSYSCONFIG`); +-- $ENV{"TEXMFCONFIG"} = $texmfsysconfig; +-+ my $texmfconfig; +-+ if ($opts{"usermode"}) { +-+ chomp($texmfconfig = `kpsewhich -var-value=TEXMFCONFIG`); +-+ } else { +-+ chomp($texmfconfig = `kpsewhich -var-value=TEXMFSYSCONFIG`); +-+ } +-+ $ENV{"TEXMFCONFIG"} = $texmfconfig; +- +- my $action = shift @ARGV; +- if ($action =~ m/^paper$/i) { # generic paper +-@@ -841,7 +870,7 @@ +- "as in: tlmgr pdftex paper --list\n"); +- +- } elsif (!defined($newpaper)) { # tlmgr paper => show all current sizes. +-- TeXLive::TLPaper::paper_all($texmfsysconfig,undef); +-+ TeXLive::TLPaper::paper_all($texmfconfig,undef); +- +- } elsif ($newpaper !~ /^(a4|letter)$/) { # tlmgr paper junk => complain. +- $newpaper = "the empty string" if !defined($newpaper); +-@@ -849,7 +878,7 @@ +- +- } else { # tlmgr paper {a4|letter} => do it. +- return if !check_on_writable(); +-- TeXLive::TLPaper::paper_all($texmfsysconfig,$newpaper); +-+ TeXLive::TLPaper::paper_all($texmfconfig,$newpaper); +- } +- +- } else { # program-specific paper +-@@ -866,7 +895,7 @@ +- return if !check_on_writable(); +- } +- unshift(@ARGV, "--list") if $opts{"list"}; +-- TeXLive::TLPaper::do_paper($prog,$texmfsysconfig,@ARGV); +-+ TeXLive::TLPaper::do_paper($prog,$texmfconfig,@ARGV); +- } +- } +- +-@@ -913,6 +942,7 @@ +- print "longdesc: ", $tlp->longdesc, "\n" if ($tlp->longdesc); +- print "installed: ", ($installed ? "Yes" : "No"), "\n"; +- print "revision: ", $tlp->revision, "\n" if ($installed); +-+ print "relocatable: ", ($tlp->relocated ? "Yes" : "No"), "\n"; +- print "cat-version: ", $tlp->cataloguedata->{'version'}, "\n" +- if $tlp->cataloguedata->{'version'}; +- print "cat-date: ", $tlp->cataloguedata->{'date'}, "\n" +-@@ -983,6 +1013,10 @@ +- # PATH +- # +- sub action_path { +-+ if ($opts{"usermode"}) { +-+ tlwarn("action `path' not supported in usermode!\n"); +-+ exit 1; +-+ } +- my $what = shift @ARGV; +- if (!defined($what) || ($what !~ m/^(add|remove)$/i)) { +- tlwarn("action path needs one argument, either add or remove\n"); +-@@ -1691,7 +1725,10 @@ +- +- # check for updates to tlmgr and die unless either --force or --list or --self +- # is given +-- my @critical = check_for_critical_updates($localtlpdb, $tlmediatlpdb); +-+ my @critical; +-+ if (!$opts{"usermode"}) { +-+ @critical = check_for_critical_updates($localtlpdb, $tlmediatlpdb); +-+ } +- my $dry_run_cont = $opts{"dry-run"} && ($opts{"dry-run"} < 0); +- if ( !$dry_run_cont && !$opts{"self"} && @critical) { +- critical_updates_warning(); +-@@ -2465,16 +2502,18 @@ +- init_tlmedia(); +- +- # check for updates to tlmgr itself, and die unless --force is given +-- if (check_for_critical_updates( $localtlpdb, $tlmediatlpdb)) { +-- critical_updates_warning(); +-- if ($opts{"force"}) { +-- tlwarn("Continuing due to --force\n"); +-- } else { +-- if ($::gui_mode) { +-- # return here and don't do any updates +-- return; +-+ if (!$opts{"usermode"}) { +-+ if (check_for_critical_updates( $localtlpdb, $tlmediatlpdb)) { +-+ critical_updates_warning(); +-+ if ($opts{"force"}) { +-+ tlwarn("Continuing due to --force\n"); +- } else { +-- die "tlmgr: Not continuing, please see warning above!\n"; +-+ if ($::gui_mode) { +-+ # return here and don't do any updates +-+ return; +-+ } else { +-+ die "tlmgr: Not continuing, please see warning above!\n"; +-+ } +- } +- } +- } +-@@ -2487,7 +2526,7 @@ +- @packs = $tlmediatlpdb->expand_dependencies("-only-arch", $localtlpdb, @ARGV) unless $opts{"no-depends-at-all"}; +- # now expand all others unless $opts{"no-depends"} +- # if $opts{"reinstall"} do not collection->collection dependencies +-- if ($opts{"reinstall"}) { +-+ if ($opts{"reinstall"} || $opts{"usermode"}) { +- @packs = $tlmediatlpdb->expand_dependencies("-no-collections", $localtlpdb, @packs) unless $opts{"no-depends"}; +- } else { +- @packs = $tlmediatlpdb->expand_dependencies($localtlpdb, @packs) unless $opts{"no-depends"}; +-@@ -2555,6 +2594,15 @@ +- foreach my $pkg (@todo) { +- my $flag = $FLAG_INSTALL; +- my $re = ""; +-+ my $tlp = $tlmediasrc->tlpdb->get_package($pkg); +-+ if (!defined($tlp)) { +-+ info("Unknown package $pkg\n"); +-+ next; +-+ } +-+ if (!$tlp->relocated && $opts{"usermode"}) { +-+ info("Package $pkg is not relocatable, cannot install it in user mode!\n"); +-+ next; +-+ } +- if (defined($localtlpdb->get_package($pkg))) { +- if ($opts{"reinstall"}) { +- $re = "re"; +-@@ -2784,11 +2832,11 @@ +- # now also save the TLPOBJ of 00texlive.installation +- my $tlpo = $localtlpdb->get_package("00texlive.installation"); +- if ($tlpo) { +-- if (open(TOFD, ">$Master/tlpkg/tlpobj/00texlive.installation.tlpobj")) { +-+ if (open(TOFD, ">$::maintree/tlpkg/tlpobj/00texlive.installation.tlpobj")) { +- $tlpo->writeout(\*TOFD); +- close(TOFD); +- } else { +-- tlwarn("Cannot save 00texlive.installation to $Master/tlpkg/tlpobj/00texlive.installation.tlpobj\n"); +-+ tlwarn("Cannot save 00texlive.installation to $::maintree/tlpkg/tlpobj/00texlive.installation.tlpobj\n"); +- } +- } +- } else { +-@@ -2821,6 +2869,10 @@ +- warn("action `arch' not supported on Windows\n"); +- return(); +- } +-+ if ($opts{"usermode"}) { +-+ tlwarn("action `arch' not supported in usermode\n"); +-+ exit 1; +-+ } +- if ($opts{"gui"}) { +- action_gui("arch"); +- } +-@@ -2960,6 +3012,10 @@ +- # GENERATE +- # +- sub action_generate { +-+ if ($opts{"usermode"}) { +-+ tlwarn("action `generate' not supported in usermode!\n"); +-+ exit 1; +-+ } +- my $dest = defined($opts{"dest"}) ? $opts{"dest"} : ""; +- my $localconf = defined($opts{"localcfg"}) ? $opts{"localcfg"} : ""; +- my $what = shift @ARGV; +-@@ -3774,6 +3830,39 @@ +- +- +- # +-+# action init_user_tree +-+# sets up TEXMFHOME or --usertree argument for user mode tlmgr +-+# by creating a minimal tlpdb +-+# +-+sub action_init_usertree { +-+ init_local_db(); +-+ my $tlpdb = TeXLive::TLPDB->new; +-+ my $usertree; +-+ if ($opts{"usertree"}) { +-+ $usertree = $opts{"usertree"}; +-+ } else { +-+ chomp($usertree = `kpsewhich -var-value TEXMFHOME`); +-+ } +-+ $tlpdb->root($usertree); +-+ my $inst = TeXLive::TLPOBJ->new; +-+ $inst->name("00texlive.installation"); +-+ $inst->category("TLCore"); +-+ my @deps; +-+ push @deps, "opt_location:$location"; +-+ push @deps, "setting_available_architectures:"; +-+ push @deps, "setting_usertree:1"; +-+ $inst->depends(@deps); +-+ $tlpdb->add_tlpobj($inst); +-+ $tlpdb->save; +-+ # +-+ # we need to create web2c dir for TLMedia to succeed setting up +-+ # and for tlmgr.log file +-+ mkdir ("$usertree/web2c"); +-+ mkdir ("$usertree/tlpkg/tlpobj"); +-+} +-+ +-+ +-+# +- # action conf +- # tries to mimick texconfig conf but probably will add some more things +- # +-@@ -3837,10 +3926,10 @@ +- # stuff changed via the GUI +- return if defined $localtlmedia; +- return if defined $localtlpdb; +-- $localtlmedia = TeXLive::TLMedia->new ( $Master ); +-- die("cannot setup TLMedia in $Master") unless (defined($localtlmedia)); +-+ $localtlmedia = TeXLive::TLMedia->new ( $::maintree ); +-+ die("cannot setup TLMedia in $::maintree") unless (defined($localtlmedia)); +- $localtlpdb = $localtlmedia->tlpdb; +-- die("cannot find tlpdb in $Master") unless (defined($localtlpdb)); +-+ die("cannot find tlpdb in $::maintree") unless (defined($localtlpdb)); +- # setup the programs, for w32 we need the shipped wget/xz etc, so we +- # pass the location of these files to setup_programs. +- if (!setup_programs("$Master/tlpkg/installer", $localtlmedia->platform)) { +-@@ -4152,6 +4241,7 @@ +- } +- +- sub check_on_writable { +-+ return 1 if $opts{"usermode"}; +- if (!TeXLive::TLUtils::dir_writable("$Master/tlpkg")) { +- tlwarn("You don't have permission to change the installation in any way,\n"); +- tlwarn("specifically, the directory $Master/tlpkg/ is not writable.\n"); +-@@ -4305,6 +4395,15 @@ +- likely untranslated, messages to standard error. Helpful for +- translators to see what remains to be done. +- +-+=item B<--usermode> +-+ +-+Activates the user mode, see L<USER MODE> below. +-+ +-+=item B<--usertree> I<dir> +-+ +-+Uses I<dir> as user tree in user mode, seel L<USER MODE> below. +-+ +-+ +- =back +- +- The standard options for TeX Live programs are also accepted: +-@@ -5061,8 +5160,109 @@ +- to make use of C<updmap-local.cfg>, you need to run C<tlmgr generate +- updmap> yourself. After that, network updates and your local changes +- should be merged. +-+ +-+=head2 init-usertree +- +-+sets up the default user tree (C<TEXMFHOME>) or the one specified +-+on the command line using C<--usertree> for user mode management. +-+See L<USER MODE> below. +- +-+ +-+=head1 USER MODE +-+ +-+B<WARNING> B<WARNING> B<WARNING> +-+This is very much work in progress +-+and experimental. Expect breakage, and the need to reinstall your +-+user tree a new. +-+ +-+C<tlmgr> provides a restricted way to manage arbitrary texmf trees +-+in the same way as the installation. This allows a user without write +-+permissions to the installation location to update/install packages +-+into a user tree. +-+ +-+C<tlmgr> is set into user mode by giving the command line option +-+C<--usermode>. It will not switch automatically, nor does it support +-+a config file by now. Thus, this option has to be given every time. +-+ +-+This mode of C<tlmgr> works on a user tree, which by default will be +-+the value of C<TEXMFHOME>, but can be overridden with the command line +-+option C<--usertree>. In the following when we speak of the user tree +-+we mean either C<TEXMFHOME> or the one given on the command line. +-+ +-+Not all actions are allowed in user mode, C<tlmgr> will warn you and +-+not carry out this action. The actions of C<tlmgr> can be classified into +-+those that don't need write permissions and thus are working the same +-+in user mode or normal mode. Currently these are +-+B<help>, B<version>, B<search>, B<show>, B<list>, B<check>, B<print-arch>. +-+ +-+Most of the actions dealing with package management on the other hand +-+need write permissions, and behave differently: +-+B<install>, B<update>, B<remove>, B<option>, B<paper>, B<generate>, +-+B<backup>, B<restore>, B<uninstall>, B<symlinks>. +-+ +-+Currently not supported (and probably will never be) is the B<arch> +-+action. +-+ +-+As for the B<gui> action it is currently not supported, but might be +-+in future. +-+ +-+Before using C<tlmgr> in user mode, you have to set up the user tree +-+with the B<init-usertree> action. This will create C<USERTREE/web2c>, +-+C<USERTREE/tlpkg/tlpobj> and set up a minimal C<USERTREE/tlpkg/texlive.tlpdb>. +-+From then on you can use the supported actions as normal by adding +-+the C<--usermode> command line switch. +-+ +-+In user mode the file C<USERTREE/tlpkg/texlive.tlpdb> contains only the +-+packages that have been installed into the user tree C<USERTREE> using +-+C<tlmgr>, plus additional options in the virtual package +-+00texlive.installation (like with the main installation's texlive.tlpdb). +-+ +-+All actions on packages in user mode can only be carried out on packages +-+that are marked as B<relocatable>. Basically that means that the contained +-+files all reside in the C<texmd-dist> tree. B<NOTE> That already excludes +-+all binary packages! Of the currently about 1900 packages the majority, +-+currently about 1750, are relocatable, i.e., they can be installed into +-+a user tree. +-+ +-+Description of changes of actions in user mode: +-+ +-+=head2 install +-+ +-+in usermode the tlmgr action install will check that the package +-+and all depending packages are either all relocated, or those that +-+are not relocated are already installed in the system installation. +-+If this is true it will unpack all containers to be installed into +-+the user tree (TEXMFHOME or the value of --user-tree) and add the +-+respective packages to the user texlive.tlpdb (creating it if there +-+has non be created till now). +-+ +-+Currently installing a collection installs all depending packages, +-+but in contrast to normal mode does not install depending collections. +-+So in *normal* mode tlmgr install collection-context would install +-+collection-metapost, c-basic, c-documentation-base, too. In *usermode* +-+only the packages mentioned in collection-context are installed. +-+ +-+=head2 backup, restore, remove, update +-+ +-+in usermode the tlmgr action update will check that all packages +-+to be updated are installed in the user tree, otherwise it behaves +-+exactely like the system tlmgr. +-+ +-+=head2 option +-+ +-+only acts upon the user's texlive.tlpdb +-+ +-+=head2 paper +-+ +-+changes configuration files in user tree +-+ +-+=head2 generate +-+ +-+creates configuration files in user tree +-+ +-+ +-+B<WARNING WARNING WARNING> Be again warned that this is very experimental! +-+ +- =head1 MACHINE-READABLE OUTPUT +- +- Given the C<--machine-readable> option, C<tlmgr> writes to stdout in the + Index: tlpkg/TeXLive/TLConfig.pm + =================================================================== +---- tlpkg/TeXLive/TLConfig.pm (revision 16521) ++--- tlpkg/TeXLive/TLConfig.pm (revision 20263) + +++ tlpkg/TeXLive/TLConfig.pm (working copy) +-@@ -169,7 +169,8 @@ ++@@ -173,7 +173,8 @@ + + our %TLPDBSettings = ( + "platform" => [ "s", "Main platform for this computer" ], +@@ -481,9 +14,9 @@ + our $WindowsMainMenuName = "TeX Live $ReleaseYear"; + Index: tlpkg/TeXLive/TLMedia.pm + =================================================================== +---- tlpkg/TeXLive/TLMedia.pm (revision 16521) ++--- tlpkg/TeXLive/TLMedia.pm (revision 20263) + +++ tlpkg/TeXLive/TLMedia.pm (working copy) +-@@ -60,6 +60,8 @@ ++@@ -59,6 +59,8 @@ + } + if (-d "$location/texmf/web2c") { + $media = 'DVD'; +@@ -493,8 +26,8 @@ + $media = 'CD'; + } else { + @@ -247,8 +249,12 @@ +- } + # if a package is relocatable we have to cancel the reloc prefix ++ # and unset the relocated setting + # before we save it to the local tlpdb + - if ($tlpobj->relocated) { + - $tlpobj->cancel_reloc_prefix; +@@ -504,10 +37,10 @@ + + } else { + + $tlpobj->replace_reloc_prefix; + + } ++ $tlpobj->relocated(0); + } + # we have to write out the tlpobj file since it is contained in the +- # archives (.tar.xz) but at DVD install time we don't have them +-@@ -317,7 +323,11 @@ ++@@ -321,7 +327,11 @@ + } elsif ($what =~ m,\.tar(\.xz)?$,) { + my $type = defined($1) ? "xz" : "tar"; + +@@ -520,15 +53,15 @@ + + # this is the case when we install from CD or the NET, or a backup + # +-@@ -400,6 +410,7 @@ +- my ($self, $pkg, $nopostinstall) = @_; ++@@ -404,6 +414,7 @@ ++ my ($self, $pkg, %opts) = @_; + my $localtlpdb = $self->tlpdb; + my $tlp = $localtlpdb->get_package($pkg); + + my $usertree = $localtlpdb->setting("usertree"); + if (!defined($tlp)) { + tlwarn ("$pkg: package not present, cannot remove\n"); + } else { +-@@ -426,9 +437,12 @@ ++@@ -430,9 +441,12 @@ + # in user mode we just remove the prefix, in normal mode we + # replace it with texmf-dist + # since we don't have user mode +@@ -544,9 +77,9 @@ + # + Index: tlpkg/TeXLive/TLPOBJ.pm + =================================================================== +---- tlpkg/TeXLive/TLPOBJ.pm (revision 16521) ++--- tlpkg/TeXLive/TLPOBJ.pm (revision 20263) + +++ tlpkg/TeXLive/TLPOBJ.pm (working copy) +-@@ -459,6 +459,21 @@ ++@@ -473,6 +473,21 @@ + sub cancel_reloc_prefix { + my $self = shift; + my @docfiles = $self->docfiles; +@@ -570,9 +103,9 @@ + my @runfiles = $self->runfiles; + Index: tlpkg/TeXLive/TLUtils.pm + =================================================================== +---- tlpkg/TeXLive/TLUtils.pm (revision 16521) ++--- tlpkg/TeXLive/TLUtils.pm (revision 20263) + +++ tlpkg/TeXLive/TLUtils.pm (working copy) +-@@ -1245,7 +1245,7 @@ ++@@ -1279,7 +1279,7 @@ + # if a package is relocatable we have to cancel the reloc prefix + # before we save it to the local tlpdb + if ($tlpobj->relocated) { Index: texmf/scripts/texlive/tlmgr.pl =================================================================== ---- texmf/scripts/texlive/tlmgr.pl (revision 16521) +--- texmf/scripts/texlive/tlmgr.pl (revision 20263) +++ texmf/scripts/texlive/tlmgr.pl (working copy) -@@ -127,6 +127,8 @@ - "package-logfiles" => "=s", - "persistent-downloads" => 1, +@@ -128,6 +128,8 @@ + "persistent-downloads" => "!", + "no-execute-actions" => 1, "pause" => 1, + "usermode" => 1, + "usertree" => "=s", + "print-platform|print-arch" => 1, "version" => 1, "help|h|?" => 1); - -@@ -305,13 +307,30 @@ +@@ -333,13 +335,30 @@ pod2usage(-msg => $msg, -exitstatus => 1, -verbose => 1, @noperldoc); } @@ -43,7 +719,7 @@ Index: texmf/scripts/texlive/tlmgr.pl # # Try to open the packagelog file, but do NOT die when that does not work if (!open(PACKAGELOG, ">>$packagelogfile")) { -@@ -457,6 +476,9 @@ +@@ -510,6 +529,9 @@ } elsif ($action =~ m/^show$/i) { action_show(); finish(0); @@ -53,7 +729,7 @@ Index: texmf/scripts/texlive/tlmgr.pl } elsif ($action =~ m/^remove$/i) { action_remove(); } elsif ($action =~ /^paper$/) { -@@ -520,6 +542,8 @@ +@@ -573,6 +595,8 @@ { my $errors = 0; @@ -62,7 +738,7 @@ Index: texmf/scripts/texlive/tlmgr.pl if ($::files_changed) { $errors += do_cmd_and_check("mktexlsr"); $::files_changed = 0; -@@ -550,14 +574,14 @@ +@@ -603,14 +627,14 @@ } } for my $m (keys %do_disable) { @@ -80,32 +756,34 @@ Index: texmf/scripts/texlive/tlmgr.pl } -@@ -602,13 +626,13 @@ +@@ -655,7 +679,7 @@ # first regenerate all formats --byengine for my $e (keys %updated_engines) { log ("updating formats based on $e\n"); -- $errors += do_cmd_and_check("fmtutil-sys --byengine $e"); -+ $errors += do_cmd_and_check("fmtutil$sysmode --byengine $e"); +- $errors += do_cmd_and_check("fmtutil-sys --no-error-if-no-format --byengine $e"); ++ $errors += do_cmd_and_check("fmtutil$sysmode --no-error-if-no-format --byengine $e"); } # now rebuild all other formats for my $f (keys %do_enable) { - next if defined($updated_engines{$format_to_engine{$f}}); +@@ -663,7 +687,7 @@ + # ignore disabled formats + next if !$::execute_actions{'enable'}{'formats'}{$f}{'mode'}; log ("(re)creating format dump $f\n"); - $errors += do_cmd_and_check("fmtutil-sys --byfmt $f"); + $errors += do_cmd_and_check("fmtutil$sysmode --byfmt $f"); $done_formats{$f} = 1; } } -@@ -646,7 +670,7 @@ - $lang = "$TEXMFSYSVAR/tex/generic/config/$lang"; +@@ -704,7 +728,7 @@ } - if ($localtlpdb->option("create_formats") && !$::regenerate_all_formats) { + if ($localtlpdb->option("create_formats") + && !$::regenerate_all_formats) { - $errors += do_cmd_and_check("fmtutil-sys --byhyphen $lang"); + $errors += do_cmd_and_check("fmtutil$sysmode --byhyphen $lang"); } } } -@@ -655,7 +679,7 @@ +@@ -713,7 +737,7 @@ # if ($::regenerate_all_formats) { info("Regenerating all formats, this may take some time ..."); @@ -114,9 +792,9 @@ Index: texmf/scripts/texlive/tlmgr.pl info("done\n"); $::regenerate_all_formats = 0; } -@@ -828,8 +852,13 @@ - action_gui("config") if $opts{"gui"}; - +@@ -881,8 +905,13 @@ + # + sub action_paper { init_local_db(); - chomp(my $texmfsysconfig = `kpsewhich -var-value=TEXMFSYSCONFIG`); - $ENV{"TEXMFCONFIG"} = $texmfsysconfig; @@ -130,7 +808,7 @@ Index: texmf/scripts/texlive/tlmgr.pl my $action = shift @ARGV; if ($action =~ m/^paper$/i) { # generic paper -@@ -841,7 +870,7 @@ +@@ -894,7 +923,7 @@ "as in: tlmgr pdftex paper --list\n"); } elsif (!defined($newpaper)) { # tlmgr paper => show all current sizes. @@ -139,7 +817,7 @@ Index: texmf/scripts/texlive/tlmgr.pl } elsif ($newpaper !~ /^(a4|letter)$/) { # tlmgr paper junk => complain. $newpaper = "the empty string" if !defined($newpaper); -@@ -849,7 +878,7 @@ +@@ -902,7 +931,7 @@ } else { # tlmgr paper {a4|letter} => do it. return if !check_on_writable(); @@ -148,7 +826,7 @@ Index: texmf/scripts/texlive/tlmgr.pl } } else { # program-specific paper -@@ -866,7 +895,7 @@ +@@ -919,7 +948,7 @@ return if !check_on_writable(); } unshift(@ARGV, "--list") if $opts{"list"}; @@ -157,7 +835,7 @@ Index: texmf/scripts/texlive/tlmgr.pl } } -@@ -913,6 +942,7 @@ +@@ -971,6 +1000,7 @@ print "longdesc: ", $tlp->longdesc, "\n" if ($tlp->longdesc); print "installed: ", ($installed ? "Yes" : "No"), "\n"; print "revision: ", $tlp->revision, "\n" if ($installed); @@ -165,7 +843,7 @@ Index: texmf/scripts/texlive/tlmgr.pl print "cat-version: ", $tlp->cataloguedata->{'version'}, "\n" if $tlp->cataloguedata->{'version'}; print "cat-date: ", $tlp->cataloguedata->{'date'}, "\n" -@@ -983,6 +1013,10 @@ +@@ -1071,6 +1101,10 @@ # PATH # sub action_path { @@ -175,8 +853,8 @@ Index: texmf/scripts/texlive/tlmgr.pl + } my $what = shift @ARGV; if (!defined($what) || ($what !~ m/^(add|remove)$/i)) { - tlwarn("action path needs one argument, either add or remove\n"); -@@ -1691,7 +1725,10 @@ + tlwarn("tlmgr: action path needs one argument, either add or remove\n"); +@@ -2078,7 +2112,10 @@ # check for updates to tlmgr and die unless either --force or --list or --self # is given @@ -188,7 +866,7 @@ Index: texmf/scripts/texlive/tlmgr.pl my $dry_run_cont = $opts{"dry-run"} && ($opts{"dry-run"} < 0); if ( !$dry_run_cont && !$opts{"self"} && @critical) { critical_updates_warning(); -@@ -2465,16 +2502,18 @@ +@@ -2939,16 +2976,18 @@ init_tlmedia(); # check for updates to tlmgr itself, and die unless --force is given @@ -216,7 +894,7 @@ Index: texmf/scripts/texlive/tlmgr.pl } } } -@@ -2487,7 +2526,7 @@ +@@ -2961,7 +3000,7 @@ @packs = $tlmediatlpdb->expand_dependencies("-only-arch", $localtlpdb, @ARGV) unless $opts{"no-depends-at-all"}; # now expand all others unless $opts{"no-depends"} # if $opts{"reinstall"} do not collection->collection dependencies @@ -225,7 +903,7 @@ Index: texmf/scripts/texlive/tlmgr.pl @packs = $tlmediatlpdb->expand_dependencies("-no-collections", $localtlpdb, @packs) unless $opts{"no-depends"}; } else { @packs = $tlmediatlpdb->expand_dependencies($localtlpdb, @packs) unless $opts{"no-depends"}; -@@ -2555,6 +2594,15 @@ +@@ -3029,6 +3068,15 @@ foreach my $pkg (@todo) { my $flag = $FLAG_INSTALL; my $re = ""; @@ -241,7 +919,7 @@ Index: texmf/scripts/texlive/tlmgr.pl if (defined($localtlpdb->get_package($pkg))) { if ($opts{"reinstall"}) { $re = "re"; -@@ -2784,11 +2832,11 @@ +@@ -3248,11 +3296,11 @@ # now also save the TLPOBJ of 00texlive.installation my $tlpo = $localtlpdb->get_package("00texlive.installation"); if ($tlpo) { @@ -255,18 +933,18 @@ Index: texmf/scripts/texlive/tlmgr.pl } } } else { -@@ -2821,6 +2869,10 @@ - warn("action `arch' not supported on Windows\n"); +@@ -3285,6 +3333,10 @@ + warn("action `platform' not supported on Windows\n"); return(); } + if ($opts{"usermode"}) { -+ tlwarn("action `arch' not supported in usermode\n"); ++ tlwarn("action `platform' not supported in usermode\n"); + exit 1; + } - if ($opts{"gui"}) { - action_gui("arch"); - } -@@ -2960,6 +3012,10 @@ + my $what = shift @ARGV; + init_local_db(1); + info("platform: dry run, no changes will be made\n") if $opts{"dry-run"}; +@@ -3421,6 +3473,10 @@ # GENERATE # sub action_generate { @@ -274,17 +952,15 @@ Index: texmf/scripts/texlive/tlmgr.pl + tlwarn("action `generate' not supported in usermode!\n"); + exit 1; + } - my $dest = defined($opts{"dest"}) ? $opts{"dest"} : ""; - my $localconf = defined($opts{"localcfg"}) ? $opts{"localcfg"} : ""; my $what = shift @ARGV; -@@ -3774,6 +3830,39 @@ + init_local_db(); - - # -+# action init_user_tree -+# sets up TEXMFHOME or --usertree argument for user mode tlmgr -+# by creating a minimal tlpdb -+# +@@ -4284,6 +4340,35 @@ + } + } + ++# INIT USER TREE ++# sets up the user tree for tlmgr in user mode +sub action_init_usertree { + init_local_db(); + my $tlpdb = TeXLive::TLPDB->new; @@ -312,12 +988,10 @@ Index: texmf/scripts/texlive/tlmgr.pl + mkdir ("$usertree/tlpkg/tlpobj"); +} + -+ -+# - # action conf - # tries to mimick texconfig conf but probably will add some more things - # -@@ -3837,10 +3926,10 @@ + # CONF + # tries to mimic texconfig conf but can also set values for both tlmgr + # and texmf conf files. +@@ -4408,10 +4493,10 @@ # stuff changed via the GUI return if defined $localtlmedia; return if defined $localtlpdb; @@ -331,7 +1005,7 @@ Index: texmf/scripts/texlive/tlmgr.pl # setup the programs, for w32 we need the shipped wget/xz etc, so we # pass the location of these files to setup_programs. if (!setup_programs("$Master/tlpkg/installer", $localtlmedia->platform)) { -@@ -4152,6 +4241,7 @@ +@@ -4845,6 +4930,7 @@ } sub check_on_writable { @@ -339,7 +1013,7 @@ Index: texmf/scripts/texlive/tlmgr.pl if (!TeXLive::TLUtils::dir_writable("$Master/tlpkg")) { tlwarn("You don't have permission to change the installation in any way,\n"); tlwarn("specifically, the directory $Master/tlpkg/ is not writable.\n"); -@@ -4305,6 +4395,15 @@ +@@ -5017,6 +5103,15 @@ likely untranslated, messages to standard error. Helpful for translators to see what remains to be done. @@ -355,17 +1029,17 @@ Index: texmf/scripts/texlive/tlmgr.pl =back The standard options for TeX Live programs are also accepted: -@@ -5061,8 +5160,109 @@ - to make use of C<updmap-local.cfg>, you need to run C<tlmgr generate - updmap> yourself. After that, network updates and your local changes - should be merged. +@@ -5923,7 +6018,110 @@ + C<updmap-local.cfg>, you need to run C<tlmgr generate updmap> yourself + after making any local changes. + + +=head2 init-usertree +sets up the default user tree (C<TEXMFHOME>) or the one specified +on the command line using C<--usertree> for user mode management. +See L<USER MODE> below. - ++ + +=head1 USER MODE + @@ -459,125 +1133,10 @@ Index: texmf/scripts/texlive/tlmgr.pl + +creates configuration files in user tree + -+ +B<WARNING WARNING WARNING> Be again warned that this is very experimental! + - =head1 MACHINE-READABLE OUTPUT - - Given the C<--machine-readable> option, C<tlmgr> writes to stdout in the -Index: tlpkg/TeXLive/TLConfig.pm -=================================================================== ---- tlpkg/TeXLive/TLConfig.pm (revision 16521) -+++ tlpkg/TeXLive/TLConfig.pm (working copy) -@@ -169,7 +169,8 @@ - - our %TLPDBSettings = ( - "platform" => [ "s", "Main platform for this computer" ], -- "available_architectures" => [ "l", "All available/installed architectures" ] -+ "available_architectures" => [ "l", "All available/installed architectures" ], -+ "usertree" => [ "b", "This tree acts as user tree" ] - ); - - our $WindowsMainMenuName = "TeX Live $ReleaseYear"; -Index: tlpkg/TeXLive/TLMedia.pm -=================================================================== ---- tlpkg/TeXLive/TLMedia.pm (revision 16521) -+++ tlpkg/TeXLive/TLMedia.pm (working copy) -@@ -60,6 +60,8 @@ - } - if (-d "$location/texmf/web2c") { - $media = 'DVD'; -+ } elsif (-d "$location/web2c") { -+ $media = 'DVD'; - } elsif (-d "$location/$Archive") { - $media = 'CD'; - } else { -@@ -247,8 +249,12 @@ - } - # if a package is relocatable we have to cancel the reloc prefix - # before we save it to the local tlpdb -- if ($tlpobj->relocated) { -- $tlpobj->cancel_reloc_prefix; -+ if ($reloc) { -+ if ($totlpdb->setting("usertree")) { -+ $tlpobj->cancel_reloc_prefix; -+ } else { -+ $tlpobj->replace_reloc_prefix; -+ } - } - # we have to write out the tlpobj file since it is contained in the - # archives (.tar.xz) but at DVD install time we don't have them -@@ -317,7 +323,11 @@ - } elsif ($what =~ m,\.tar(\.xz)?$,) { - my $type = defined($1) ? "xz" : "tar"; - -- $target .= "/$TeXLive::TLConfig::RelocTree" if $reloc; -+ if ($reloc) { -+ if (!$totlpdb->setting("usertree")) { -+ $target .= "/$TeXLive::TLConfig::RelocTree" if $reloc; -+ } -+ } - - # this is the case when we install from CD or the NET, or a backup - # -@@ -400,6 +410,7 @@ - my ($self, $pkg, $nopostinstall) = @_; - my $localtlpdb = $self->tlpdb; - my $tlp = $localtlpdb->get_package($pkg); -+ my $usertree = $localtlpdb->setting("usertree"); - if (!defined($tlp)) { - tlwarn ("$pkg: package not present, cannot remove\n"); - } else { -@@ -426,9 +437,12 @@ - # in user mode we just remove the prefix, in normal mode we - # replace it with texmf-dist - # since we don't have user mode + - if ($tlp->relocated) { - for (@files) { -- s:^$RelocPrefix/:$RelocTree/:; -+ if (!$usertree) { -+ s:^$RelocPrefix/:$RelocTree/:; -+ } - } - } - # -Index: tlpkg/TeXLive/TLPOBJ.pm -=================================================================== ---- tlpkg/TeXLive/TLPOBJ.pm (revision 16521) -+++ tlpkg/TeXLive/TLPOBJ.pm (working copy) -@@ -459,6 +459,21 @@ - sub cancel_reloc_prefix { - my $self = shift; - my @docfiles = $self->docfiles; -+ for (@docfiles) { s:^$RelocPrefix/::; } -+ $self->docfiles(@docfiles); -+ my @runfiles = $self->runfiles; -+ for (@runfiles) { s:^$RelocPrefix/::; } -+ $self->runfiles(@runfiles); -+ my @srcfiles = $self->srcfiles; -+ for (@srcfiles) { s:^$RelocPrefix/::; } -+ $self->srcfiles(@srcfiles); -+ # if there are bin files they have definitely NOT the -+ # texmf-dist prefix, so we cannot cancel it anyway -+} + -+sub replace_reloc_prefix { -+ my $self = shift; -+ my @docfiles = $self->docfiles; - for (@docfiles) { s:^$RelocPrefix/:$RelocTree/:; } - $self->docfiles(@docfiles); - my @runfiles = $self->runfiles; -Index: tlpkg/TeXLive/TLUtils.pm -=================================================================== ---- tlpkg/TeXLive/TLUtils.pm (revision 16521) -+++ tlpkg/TeXLive/TLUtils.pm (working copy) -@@ -1245,7 +1245,7 @@ - # if a package is relocatable we have to cancel the reloc prefix - # before we save it to the local tlpdb - if ($tlpobj->relocated) { -- $tlpobj->cancel_reloc_prefix; -+ $tlpobj->replace_reloc_prefix; - } - $totlpdb->add_tlpobj($tlpobj); - # we have to write out the tlpobj file since it is contained in the + =head1 CONFIGURATION FILE + + A small subset of the command line options can be set in a config file |