summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-05-15 09:41:16 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-05-15 09:41:16 +0000
commit2fd99762c5a0bb67a16df56cc53cebe999758fcc (patch)
tree511632004a37a45def3f20be615429e2e64a40f0 /Master/install-tl
parentc84607c998889966cc0fbefa09774fd70e17688a (diff)
Support for Windows shortcuts; demo shortcuts in install-tl
git-svn-id: svn://tug.org/texlive/trunk@8153 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl38
1 files changed, 35 insertions, 3 deletions
diff --git a/Master/install-tl b/Master/install-tl
index a41ee9cfeaf..cd804abc671 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -75,6 +75,9 @@ if (win32) {
&unregister_script_type
&broadcast_env
&update_assocs
+ &add_tl_shortcut
+ &clear_unshortbat
+ &make_tl_shortcuts
&create_uninstaller
));
}
@@ -175,8 +178,8 @@ GetOptions("media=s" => \$opt_media,
"help|?" => \$opt_help) or pod2usage(1);
if (win32()) {
- pod2usage(-exitstatus => 0,
- -verbose => 2,
+ pod2usage(-exitstatus => 0,
+ -verbose => 2,
-noperldoc => 1,
-output => \*STDOUT) if $opt_help;
} else {
@@ -834,7 +837,7 @@ operations might be disturbed.\n\n";
foreach my $tmv (@TMFVARS0) {
delete $ENV{$tmv} if (defined($ENV{$tmv}));
}
- if (!$opt_portable) {
+ if (!$opt_portable) {
foreach my $tmv (@TMFVARS1) {
delete $ENV{$tmv} if (defined($ENV{$tmv}));
}
@@ -872,6 +875,10 @@ operations might be disturbed.\n\n";
#
# post install actions
#
+
+ # clear batchfile for uninstalling shortcuts
+ clear_unshortbat($vars{'TEXDIR'}) if win32;
+
foreach my $package (sort keys %install) {
if ($install{$package} && defined($PostInstall{$package})) {
tllog($::LOG_NORMAL, "running post install action for $package\n");
@@ -975,6 +982,31 @@ operations might be disturbed.\n\n";
}
}
+ if (win32) {
+ add_tl_shortcut(
+ 'Desktop',
+ 'TeXdoc',
+ $vars{'TEXDIR'}.'/bin/win32/texdoctk.bat',
+ "",
+ 'batgui', # any non-null value ok
+ );
+ add_tl_shortcut(
+ 'Desktop',
+ 'PS_View',
+ $vars{'TEXDIR'}.'/bin/win32/psv.bat',
+ "%*",
+ 'batgui',
+ );
+ add_tl_shortcut(
+ 'TeXLive',
+ 'TeXLive Manager',
+ $vars{'TEXDIR'}.'/bin/win32/tlmgr.bat',
+ "gui",
+ 'batgui',
+ );
+ make_tl_shortcuts($vars{'TEXDIR'});
+ }
+
# old installer:
#$config && texconfig-sys init
#$config || echo "PLEASE RUN texconfig or texconfig-sys to make new formats."