diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 173cf6bb447..2f6e16f7cf4 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -28,7 +28,7 @@ our %PostRemove; # # bin-xetex -# +# sub do_install_bin_xetex { my ($texdir) = @_; # @@ -37,11 +37,11 @@ sub do_install_bin_xetex { # - updated the installation path in bin/win32/conf/fonts.conf # - call fc-cache -v if (-r "$texdir/bin/win32/conf/fonts.conf") { - open(FONTSCONF, "<$texdir/bin/win32/conf/fonts.conf") + open(FONTSCONF, "<$texdir/bin/win32/conf/fonts.conf") or die("Cannot open $texdir/bin/win32/conf/fonts.conf"); my @lines = <FONTSCONF>; close(FONTSCONF); - open(FONTSCONF, ">$texdir/bin/win32/conf/fonts.conf") + open(FONTSCONF, ">$texdir/bin/win32/conf/fonts.conf") or die("Cannot open $texdir/bin/win32/conf/fonts.conf for writing"); foreach (@lines) { $_ =~ s!c:/Program Files/texlive/2008!$texdir!; @@ -112,6 +112,10 @@ sub do_install_bin_tlpsv_win32 { '', # no args 'batgui', # any non-null value to hide command-prompt ); + register_extension(".ps", "PostScript"); + register_extension(".eps", "PostScript"); + register_file_type("PostScript", $texdir.'/bin/win32/psv.bat'); + update_assocs(); } } sub do_remove_bin_tlpsv_win32 { @@ -119,6 +123,10 @@ sub do_remove_bin_tlpsv_win32 { if (win32()) { remove_desktop_shortcut('PS_View'); remove_menu_shortcut($mainmenu, 'PS_View'); + unregister_extension(".ps"); + unregister_extension(".eps"); + unregister_file_type("PostScript"); + update_assocs(); } } $PostRemove{'bin-tlpsv.win32'} = \&do_remove_bin_tlpsv_win32; @@ -377,9 +385,9 @@ sub do_bin_dvipdfm { } # fix up dvipdfm config file to contain the right # piping command mkdirhier("$TEXMFSYSVAR/dvipdfm/config"); - open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/config/config") + open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/config/config") or die("Cannot open $TEXDIR/texmf/dvipdfm/config/config"); - open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/config/config") + open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/config/config") or die("Cannot open $TEXMFSYSVAR/dvipdfm/config/config"); while (<DVIPDFMCONFIGDIST>) { if (m/^D /) { @@ -401,9 +409,9 @@ sub do_bin_dvipdfmx { chomp($TEXMFSYSVAR); } # dvipdfmx.cfg - open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/dvipdfmx.cfg") + open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/dvipdfmx.cfg") or die("Cannot open $TEXDIR/texmf/dvipdfm/dvipdfmx.cfg"); - open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/dvipdfmx.cfg") + open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/dvipdfmx.cfg") or die("Cannot open $TEXMFSYSVAR/dvipdfm/dvipdfmx.cfg"); while (<DVIPDFMCONFIGDIST>) { # current dvipdfmx.cfg already contains the right rungs incantation @@ -456,7 +464,7 @@ sub do_context { chomp($TEXMFSYSVAR); } # old installer did this, should we do this, TOO???? - copy ("$TEXDIR/texmf-dist/tex/context/config/cont-usr.tex", + copy ("$TEXDIR/texmf-dist/tex/context/config/cont-usr.tex", "$TEXMFSYSVAR/tex/context/config"); } # $PostInstall{"context"} = \&do_context; |