diff options
author | Karl Berry <karl@freefriends.org> | 2010-06-13 21:37:35 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-06-13 21:37:35 +0000 |
commit | 89005db14615e4cbb9fbee050bab6809fa3e2d97 (patch) | |
tree | c41a536b2ee12f3cf6bbf9cbe40b99f0456e4b6b | |
parent | 767b63b7824a6a4691acbfa3be34f91065995b6f (diff) |
TLPostActions have been moved to .tlpsrc
git-svn-id: svn://tug.org/texlive/trunk@18943 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 795 |
1 files changed, 0 insertions, 795 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm deleted file mode 100644 index 812e0b02536..00000000000 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ /dev/null @@ -1,795 +0,0 @@ -# $Id$ -# TeXLive::TLPostActions.pm - collect needed post-install actions -# Copyright 2008, 2009, 2010 Norbert Preining -# This file is licensed under the GNU General Public License version 2 -# or any later version. - -package TeXLive::TLPostActions; - -my $svnrev = '$Revision$'; -my $_modulerevision; -if ($svnrev =~ m/: ([0-9]+) /) { - $_modulerevision = $1; -} else { - $_modulerevision = "unknown"; -} -sub module_revision { - return $_modulerevision; -} - -BEGIN { - use Exporter (); - use vars qw( @ISA @EXPORT_OK @EXPORT ); - @ISA = qw(Exporter); - @EXPORT_OK = qw( - %PostInstall - %PostRemove - ); - @EXPORT = @EXPORT_OK; -} - -use TeXLive::TLUtils qw(win32 mkdirhier copy conv_to_w32_path log debug info - touch tlwarn); -use TeXLive::TLWinGoo; - -my $mainmenu = "TeX Live 2008"; - -our %PostInstall; -our %PostRemove; - -# NOT ENABLED !!!!! -# context post install actions -sub do_install_bin_context { - my ($texdir, $texdirw, $texmfsysvar) = @_; - # set up texmfcnf.lua - my $TMF = "$texdirw/texmf/web2c/texmfcnf.lua"; - if (! -r $TMF) { - open(TMF, ">$TMF") || die "open($TMF) failed: $!\n"; - print TMF 'local conf = {}', "\n"; - print TMF "conf.TEXMFCACHE = \"$texmfsysvar\"\n"; - #print TMP "conf.CACHEINTDS = 't'\n"; - print TMF "return conf\n"; - close(TMF) || warn "close($TMF) failed: $!"; - } - # update the luatools cache - system("luatools", "--generate"); - # build the context formats based on luatex - system("context", "--make", "--compile", "cont-en"); - # update the font cache - system("mtxrun", "--script", "fonts", "--reload"); -} -# -# That has to be sorted out and maybe changed at a later time, so do NOT -# enable that for now. -###$PostInstall{"bin-context"} = \&do_install_bin_context; - - -# ATM do the same for luatex as for context -sub do_install_luatex { - do_install_bin_context(@_); -} -# -# SEE ABOVE -# $PostInstall{"luatex"} = \&do_install_luatex; - - -# xetex -# -sub do_install_xetex { - my ($texdir, $texdirw, $texmfsysvar) = @_; - # - # bin-installs font-config related stuff - # - # new version according to Staszek - if (!defined($texmfsysvar)) { - $texmfsysvar = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($texmfsysvar); - } - if (-r "$texdir/bin/win32/conf/fonts.conf") { - # we have installed w32, so put it into texmfsysvar - mkdirhier("$texmfsysvar/fonts"); - TeXLive::TLUtils::rmtree("$texmfsysvar/fonts/conf"); - TeXLive::TLUtils::rmtree("$texmfsysvar/fonts/cache"); - my @cpycmd; - if (win32()) { - push @cpycmd, "xcopy", "/e", "/i", "/q", "/y"; - } else { - push @cpycmd, "cp", "-R"; - } - system(@cpycmd, - (win32() ? conv_to_w32_path("$texdir/bin/win32/conf") : - "$texdir/bin/win32/conf"), - (win32() ? conv_to_w32_path("$texmfsysvar/fonts/conf") : - "$texmfsysvar/fonts/conf")); - system(@cpycmd, - (win32() ? conv_to_w32_path("$texdir/bin/win32/cache") : - "$texdir/bin/win32/cache"), - (win32() ? conv_to_w32_path("$texmfsysvar/fonts/cache") : - "$texmfsysvar/fonts/cache")); - if (open(FONTSCONF, "<$texdir/bin/win32/conf/fonts.conf")) { - my @lines = <FONTSCONF>; - close(FONTSCONF); - if (open(FONTSCONF, ">$texmfsysvar/fonts/conf/fonts.conf")) { - my $winfontdir; - if (win32()) { - $winfontdir = $ENV{'SystemRoot'}.'/fonts'; - $winfontdir =~ s!\\!/!g; - #mkdirhier("$texmfsysvar/fonts/cache"); - - # fc-cache breaks often on w32 in some strange way - # there are claims that touching a font file in $winfontdir - # would solve that problem. So lets touch some of them - if (opendir (WINFONT, $winfontdir)) { - my @dirents = readdir (WINFONT); - closedir (WINFONT) || warn "closedir($winfontdir) failed: $!"; - # do not actually touch anything by now, maybe already the - # opendir is enough ... - - # for my $dirent (@dirents) { - # if ($dirent =~ m/\.(ttf|otf)$/i) { - # touch("$winfontdir/$dirent"); - # tlwarn("touching $dirent in $winfontdir to make fc-cache work\n"); - # # one file touched should be enough - # last; - # } - # } - } - } - foreach (@lines) { - $_ =~ s!c:/Program Files/texlive/2008!$texdir!; - $_ =~ s!c:/windows/fonts!$winfontdir! if win32(); - # hack around fc-cache problem in from_dvd case: - #if (win32() and (uc($texdir) ne uc($texdirw)) and - # ($_ =~ m!^<dir>.*texmf-dist.*</dir>!)) { $_ = '<!-- '.$_.' -->'; } - print FONTSCONF; - } - close(FONTSCONF); - } else { - warn("Cannot open $texmfsysvar/fonts/conf/fonts.conf for writing\n"); - } - } else { - warn("Cannot open $texdir/bin/win32/conf/fonts.conf\n"); - } - } - # call fc-cache but only when we install on w32! - if (win32()) { - info("Running fc-cache -v -r\n"); - log(`fc-cache -v -r 2>&1`); - #system("fc-cache","-v", "-r"); - } -} -$PostInstall{"xetex"} = \&do_install_xetex; - -# -# dviout.win32 -# -sub do_install_bin_dviout_win32 { - my ($texdir, $texdirw) = @_; - if (win32()) { - my $texdir_bsl = conv_to_w32_path($texdir); - add_menu_shortcut( - $mainmenu, - 'DVIOUT Dvi Viewer', - $texdir.'/tlpkg/dviout/dviout.exe', # for the icon - 'wscript', - $texdir_bsl."\\bin\\win32\\dviout.vbs", - '', - ); - } -} -sub do_remove_bin_dviout_win32 { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu, 'DVIOUT Dvi Viewer'); - } -} -$PostInstall{'dviout.win32'} = \&do_install_bin_dviout_win32; -$PostRemove{'dviout.win32'} = \&do_remove_bin_dviout_win32; - - -# -# texdoc -# -sub do_install_texdoc { - my ($texdir, $texdirw) = @_; - if (win32()) { - #add_desktop_shortcut( - # $texdirw, - # 'TeXdoc GUI', - # '', # $vars{'TEXDIR'}.'/tlpkg/doc/notes.ico', # the icon - # $texdir.'/bin/win32/texdoctk.bat', - # '', # no args - # 'batgui', # any non-null value to hide command-prompt - #); - add_menu_shortcut( - $mainmenu, - 'TeXdoc GUI', - '', # $vars{'TEXDIR'}.'/tlpkg/doc/notes.ico', # the icon - $texdir.'/bin/win32/texdoctk.bat', - '', # no args - 'batgui', # any non-null value to hide command-prompt - ); - } -} -sub do_remove_texdoc { - my ($texdir) = @_; - if (win32()) { - # remove_desktop_shortcut('TeXdoc GUI'); - remove_menu_shortcut($mainmenu, 'TeXdoc GUI'); - } -} -$PostInstall{'texdoc'} = \&do_install_texdoc; -$PostRemove{'texdoc'} = \&do_remove_texdoc; - -# -# tlpsv.win32 -# -sub do_install_bin_tlpsv_win32 { - my ($texdir, $texdirw) = @_; - if (win32()) { - add_desktop_shortcut( - $texdirw, - 'PS_View', - $texdir.'/tlpkg/tlpsv/psv.exe', # icon, not prog! - $texdir.'/bin/win32/psv.bat', - '', # no args - 'batgui', # any non-null value to hide command-prompt - ); - add_menu_shortcut( - $mainmenu, - 'PS_View', - $texdir.'/tlpkg/tlpsv/psv.exe', # icon, not prog! - $texdir.'/bin/win32/psv.bat', - '', # 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"'); - #register_file_type("PostScript", - # '"'.$texdir.'/tlpkg/tlpsv/gswxlua.exe" -g '. - # '"'.$texdir.'/tlpkg/tlgs/bin/gsdll32.dll" -l '. - # '"'.$texdir.'/tlpkg/tlpsv/psv.wx.lua" -p '. - # '"'.$texdir.'/tlpkg/tlpsv/psv_view.ps" -sINPUT="%1"'); - #update_assocs(); - } -} -sub do_remove_bin_tlpsv_win32 { - my ($texdir) = @_; - 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{'tlpsv.win32'} = \&do_remove_bin_tlpsv_win32; -$PostInstall{'tlpsv.win32'} = \&do_install_bin_tlpsv_win32; - -# -# texlive-scripts -# -sub do_install_bin_texlive { - my ($texdir, $texdirw) = @_; - if (win32()) { - add_menu_shortcut( - $mainmenu, - 'TeX Live Manager', - '', # $texdir.'/tlpkg/doc/dummy.ico', - $texdir.'/bin/win32/tlmgr.bat', - 'gui', - 'batgui', - ); - add_menu_shortcut( - $mainmenu, - 'Release notes', - '', - 'http://tug.org/texlive/windows.html', - '', - '', - ); - if (uc(TeXLive::TLWinGoo::win_which_dir('tex.exe')) ne - uc($texdir.'/bin/win32') or - uc(TeXLive::TLWinGoo::win_which_dir('pdftex.exe')) ne - uc($texdir.'/bin/win32') or - uc(TeXLive::TLWinGoo::win_which_dir('luatex.exe')) ne - uc($texdir.'/bin/win32')) { - my $texbindir = $texdir."\\bin\\win32"; - $texbindir =~ s!/!\\!g; - add_menu_shortcut( - $mainmenu, - 'TeX Live Prompt', - '', - $ENV{'COMSPEC'}, - "/k \"path $texbindir;%path%\"", - '', - ); - add_desktop_shortcut( - $texdirw, - 'TeX Live Prompt', - '', - $ENV{'COMSPEC'}, - "/k \"path $texbindir;%path%\"", - '', - ); - } - } -} -sub do_remove_bin_texlive { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu, 'TeX Live Manager'); - remove_menu_shortcut($mainmenu, 'Release notes'); - remove_menu_shortcut($mainmenu, 'TeX Live Prompt'); - remove_desktop_shortcut('TeX Live Prompt'); - } -} -$PostInstall{'texlive-scripts'} = \&do_install_bin_texlive; -$PostRemove{'texlive-scripts'} = \&do_remove_bin_texlive; - -# -# texlive.infra -# ships all the readme.html/readme.XX.html files, and the index of all -# documents -sub do_install_texlive_infra { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_infra: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Toplevel Readme Index', - '', # default pdf icon - $texdir.'/index.html', - '', - '', - ); - } -} -sub do_remove_texlive_infra { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Toplevel Readme Index'); - } -} -$PostInstall{'texlive.infra'} = \&do_install_texlive_infra; -$PostRemove{'texlive.infra'} = \&do_remove_texlive_infra; - -# -# texlive-en -# -sub do_install_texlive_en { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_en: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (en) (HTML)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/english/texlive-en/texlive-en.html', - '', - '', - ); - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (en) (PDF)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/english/texlive-en/texlive-en.pdf', - '', - '', - ); - } -} -sub do_remove_texlive_en { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (en) (HTML)'); - remove_menu_shortcut($mainmenu,'TeX Live Manual (en) (PDF)'); - } -} -$PostInstall{'texlive-en'} = \&do_install_texlive_en; -$PostRemove{'texlive-en'} = \&do_remove_texlive_en; - -# -# texlive-cz -# -sub do_install_texlive_cz { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_cz: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (cz) (PDF)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/czechslovak/texlive-cz/texlive-cz.pdf', - '', - '', - ); - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (cz) (HTML)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/czechslovak/texlive-cz/texlive-cz.html', - '', - '', - ); - } -} -sub do_remove_texlive_cz { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (cz) (PDF)'); - remove_menu_shortcut($mainmenu,'TeX Live Manual (cz) (HTML)'); - } -} -$PostInstall{'texlive-cz'} = \&do_install_texlive_cz; -$PostRemove{'texlive-cz'} = \&do_remove_texlive_cz; - -# -# texlive-fr -# -sub do_install_texlive_fr { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_fr: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (fr) (PDF)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/french/texlive-fr/texlive-fr.pdf', - '', - '', - ); - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (fr) (HTML)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/french/texlive-fr/texlive-fr.html', - '', - '', - ); - } -} -sub do_remove_texlive_fr { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (fr) (HTML)'); - remove_menu_shortcut($mainmenu,'TeX Live Manual (fr) (PDF)'); - } -} -$PostInstall{'texlive-fr'} = \&do_install_texlive_fr; -$PostRemove{'texlive-fr'} = \&do_remove_texlive_fr; - -# -# texlive-de -# -sub do_install_texlive_de { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_de: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (de) (PDF)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/german/texlive-de/texlive-de.pdf', - '', - '', - ); - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (de) (HTML)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/german/texlive-de/texlive-de.html', - '', - '', - ); - } -} -sub do_remove_texlive_de { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (de) (PDF)'); - remove_menu_shortcut($mainmenu,'TeX Live Manual (de) (HTML)'); - } -} -$PostInstall{'texlive-de'} = \&do_install_texlive_de; -$PostRemove{'texlive-de'} = \&do_remove_texlive_de; - -# -# texlive-pl -# -sub do_install_texlive_pl { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_pl: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (pl) (PDF)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/polish/texlive-pl/texlive-pl.pdf', - '', - '', - ); - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (pl) (HTML)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/polish/texlive-pl/texlive-pl.html', - '', - '', - ); - } -} -sub do_remove_texlive_pl { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (pl) (PDF)'); - remove_menu_shortcut($mainmenu,'TeX Live Manual (pl) (HTML)'); - } -} -$PostInstall{'texlive-pl'} = \&do_install_texlive_pl; -$PostRemove{'texlive-pl'} = \&do_remove_texlive_pl; - -# -# texlive-ru -# -sub do_install_texlive_ru { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_ru: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (ru) (PDF)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/russian/texlive-ru/texlive-ru.pdf', - '', - '', - ); - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (ru) (HTML)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/russian/texlive-ru/texlive-ru.html', - '', - '', - ); - } -} -sub do_remove_texlive_ru { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (ru) (HTML)'); - remove_menu_shortcut($mainmenu,'TeX Live Manual (ru) (PDF)'); - } -} -$PostInstall{'texlive-ru'} = \&do_install_texlive_ru; -$PostRemove{'texlive-ru'} = \&do_remove_texlive_ru; - -# -# texlive-zh-cn -# -sub do_install_texlive_zh_cn { - my ($texdir) = @_; - if (win32()) { - if (!defined($texdir)) { - tlwarn("do_install_texlive_zh_cn: texdir not defined, returning\n"); - return; - } - add_menu_shortcut( - $mainmenu, - 'TeX Live Manual (zh-cn)', - '', # default pdf icon - $texdir.'/texmf-doc/doc/chinese/texlive-zh-cn/texlive-zh-cn.pdf', - '', - '', - ); - } -} -sub do_remove_texlive_zh_cn { - my ($texdir) = @_; - if (win32()) { - remove_menu_shortcut($mainmenu,'TeX Live Manual (zh-cn)'); - } -} -$PostInstall{'texlive-zh-cn'} = \&do_install_texlive_zh_cn; -$PostRemove{'texlive-zh-cn'} = \&do_remove_texlive_zh_cn; - - -# -# FROM HERE ON ONLY DISABLED POST INSTALL AND REMOVE ACTIONS!!!!!!! -# - -# disabled -sub do_bin_xdvi { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - copy ("$TEXDIR/texmf/xdvi/XDvi", "$TEXMFSYSVAR/xdvi"); -} -# $PostInstall{"xdvi"} = \&do_bin_xdvi; - - -# disabled -sub do_plain { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - # install some copies from texmf(-dist) into texmf-var - copy ("$TEXDIR/texmf-dist/tex/generic/config/language.def", - "$TEXMFSYSVAR/tex/generic/config"); -} -# $PostInstall{"plain"} = \&do_plain; - - -# disabled -sub do_bin_dvipsk { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - # those files must exist - copy ("$TEXDIR/texmf/dvips/config/config.ps", - "$TEXMFSYSVAR/dvips/config"); -} -# $PostInstall{"dvipsk"} = \&do_bin_dvipsk; - -# disabled -sub do_bin_dvipdfm { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - # fix up dvipdfm config file to contain the right # piping command - mkdirhier("$TEXMFSYSVAR/dvipdfm/config"); - open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfm/config/config") - or die("Cannot open $TEXDIR/texmf/dvipdfm/config/config"); - open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfm/config/config") - or die("Cannot open $TEXMFSYSVAR/dvipdfm/config/config"); - while (<DVIPDFMCONFIGDIST>) { - if (m/^D /) { - print DVIPDFMCONFIGINST 'D "epstopdf --outfile=%o --nocompress %i"', "\n"; - } else { - print DVIPDFMCONFIGINST; - } - } - close(DVIPDFMCONFIGDIST); - close(DVIPDFMCONFIGINST); -} -# $PostInstall{"dvipdfm"} = \&do_bin_dvipdfm; - -# disabled -sub do_bin_dvipdfmx { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - # dvipdfmx.cfg - open(DVIPDFMCONFIGDIST, "<$TEXDIR/texmf/dvipdfmx/dvipdfmx.cfg") - or die("Cannot open $TEXDIR/texmf/dvipdfmx/dvipdfmx.cfg"); - open(DVIPDFMCONFIGINST, ">$TEXMFSYSVAR/dvipdfmx/dvipdfmx.cfg") - or die("Cannot open $TEXMFSYSVAR/dvipdfmx/dvipdfmx.cfg"); - while (<DVIPDFMCONFIGDIST>) { - # current dvipdfmx.cfg already contains the right rungs incantation - # so do just copy the file to texmf-var - #if (m/^D /) { - # print DVIPDFMCONFIGINST "%$_"; - # print DVIPDFMCONFIGINST "\n%% GhostScript (TeX Live (Unix and Win32)):\n"; - # print DVIPDFMCONFIGINST 'D "rungs -q -dNOPAUSE -dBATCH -sPAPERSIZE=a0 -sDEVICE=pdfwrite -dCompatibilityLevel=1.3 -dAutoFilterGrayImages=false -dGrayImageFilter=/FlateEncode -dAutoFilterColorImages=false -dColorImageFilter=/FlateEncode -dUseFlateCompression=true -sOutputFile=%o %i -c quit"', "\n\n"; - #} else { - print DVIPDFMCONFIGINST; - #} - } - close(DVIPDFMCONFIGDIST); - close(DVIPDFMCONFIGINST); -} -# $PostInstall{"dvipdfmx"} = \&do_bin_dvipdfmx; - - -# disabled -sub do_bin_kpathsea { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - copy ("$TEXDIR/texmf/web2c/mktex.cnf", - "$TEXMFSYSVAR/web2c"); -} -# $PostInstall{"kpathsea"} = \&do_bin_kpathsea; - -# disabled -sub do_bin_pdftex { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - # the old installer copied from CDDIR, but shouldn't this be installed - # in ANY case since it is in pdftex??? - copy ("$TEXDIR/texmf/tex/generic/config/pdftexconfig.tex", - "$TEXMFSYSVAR/tex/generic/config"); -} -# $PostInstall{"pdftex"} = \&do_bin_pdftex; - -# disabled -sub do_context { - my ($TEXDIR, $TEXMFSYSVAR) = @_; - if (!defined($TEXMFSYSVAR)) { - $TEXMFSYSVAR = `kpsewhich -var-value=TEXMFSYSVAR`; - chomp($TEXMFSYSVAR); - } - # old installer did this, should we do this, TOO???? - copy ("$TEXDIR/texmf-dist/tex/context/config/cont-usr.tex", - "$TEXMFSYSVAR/tex/context/config"); -} -# $PostInstall{"context"} = \&do_context; - - -1; - - -=head1 NAME - -C<TeXLive::TLPostActions> -- TeX Live Post Installation and Removal Routines - -=head1 SYNOPSIS - - use TeXLive::TLPostActions; - -=head1 DESCRIPTION - -The L<TeXLive::TLPostActions> module exports the C<%PostInstall> and -the C<%PostRemove> hash indexed by package names providing code references. - -These code references are called with the root of the installation as -argument (C<$SELFAUTOPARENT>). Additional arguments, but not necessarily -present, are the value of C<TEXMFSYSVAR> and C<TEXMFLOCAL>. - -=head1 SEE ALSO - -The modules L<TeXLive::TLUtils>, L<TeXLive::TLPSRC>, -L<TeXLive::TLPDB>, L<TeXLive::TLTREE>, L<TeXLive::TeXCatalogue>. - -=head1 AUTHORS AND COPYRIGHT - -This script and its documentation were written for the TeX Live -distribution (L<http://tug.org/texlive>) and both are licensed under the -GNU General Public License Version 2 or later. - -=cut - -### Local Variables: -### perl-indent-level: 2 -### tab-width: 2 -### indent-tabs-mode: nil -### End: -# vim:set tabstop=2 expandtab: # |