summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPostInstall.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-05-16 08:35:36 +0000
committerNorbert Preining <preining@logic.at>2008-05-16 08:35:36 +0000
commit9b53f4b0fdb19b1e98a97db2659aac99d032c9b9 (patch)
tree817521c1fef1a915e10d30b1e338ff3761a2d560 /Master/tlpkg/TeXLive/TLPostInstall.pm
parente9eba5739ddc72b9c08a3b17f949a3584c299277 (diff)
PostInstall and PostRemove actions:
- rename TLPostInstall to TLPostActions - use that one in TLMedia and install-tl - call the post removal code refs in tlmgr:remove_package git-svn-id: svn://tug.org/texlive/trunk@8172 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostInstall.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPostInstall.pm223
1 files changed, 0 insertions, 223 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostInstall.pm b/Master/tlpkg/TeXLive/TLPostInstall.pm
deleted file mode 100644
index 07591f9a6a9..00000000000
--- a/Master/tlpkg/TeXLive/TLPostInstall.pm
+++ /dev/null
@@ -1,223 +0,0 @@
-# $Id$
-# TeXLive::TLPostInstall.pm - collection post install stuff for installation
-# Copyright 2008 Norbert Preining
-# This file is licensed under the GNU General Public License version 2
-# or any later version.
-
-package TeXLive::TLPostInstall;
-
-BEGIN {
- use Exporter ();
- use vars qw( @ISA @EXPORT_OK @EXPORT );
- @ISA = qw(Exporter);
- @EXPORT_OK = qw(
- %PostInstall
- );
- @EXPORT = @EXPORT_OK;
-}
-
-use TeXLive::TLUtils qw(win32 mkdirhier copy);
-
-our %PostInstall;
-
-
-sub do_bin_xetex {
- my ($texdir) = @_;
- #
- # bin-xetex installs font-config related stuff
- # we have to
- # - 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")
- or die("Cannot open $texdir/bin/win32/conf/fonts.conf");
- my @lines = <FONTSCONF>;
- close(FONTSCONF);
- 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!;
- print FONTSCONF;
- }
- close(FONTSCONF);
- }
- # call fc-cache but only when we install on win32!
- if (win32()) {
- system("fc-cache","-v");
- }
-}
-$PostInstall{"bin-xetex"} = \&do_bin_xetex;
-
-
-# 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{"bin-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/plain/config/language.def",
- "$TEXMFSYSVAR/tex/plain/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{"bin-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{"bin-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/dvipdfm/dvipdfmx.cfg")
- or die("Cannot open $TEXDIR/texmf/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
- # 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{"bin-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{"bin-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 bin-pdftex???
- copy ("$TEXDIR/texmf/tex/generic/config/pdftexconfig.tex",
- "$TEXMFSYSVAR/tex/generic/config");
-}
-# $PostInstall{"bin-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::TLPostInstall> -- TeX Live Post Installation Routines
-
-=head1 SYNOPSIS
-
- use TeXLive::TLPostInstall;
-
-=head1 DESCRIPTION
-
-The L<TeXLive::TLPostInstall> module exports the C<%PostInstall> 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: #