diff options
| author | Norbert Preining <preining@logic.at> | 2009-05-16 22:03:19 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-05-16 22:03:19 +0000 |
| commit | fc60b21deb6d19453962498d2cef391f10590b79 (patch) | |
| tree | 5254ae0f4e74ca4f3b87e2b7e7be195985a3dd29 /Master/tlpkg/tlpostcode | |
| parent | ec3c91c9dacd520c69d1992407276d8dc8f54425 (diff) | |
add texworks for windows and for x86_64-linux, and tlpsrc
git-svn-id: svn://tug.org/texlive/trunk@13137 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlpostcode')
| -rw-r--r-- | Master/tlpkg/tlpostcode/texworks.pl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/Master/tlpkg/tlpostcode/texworks.pl b/Master/tlpkg/tlpostcode/texworks.pl new file mode 100644 index 00000000000..af0937a94e9 --- /dev/null +++ b/Master/tlpkg/tlpostcode/texworks.pl @@ -0,0 +1,41 @@ +# $Id$ +# post action for texworks +# Copyright 2009 Norbert Preining +# This file is licensed under the GNU General Public License version 2 +# or any later version. + +my $texdir; +my $mode; + +BEGIN { + $^W = 1; + $mode = $ARGV[0]; + $texdir = $ARGV[1]; + # make Perl find our packages first: + unshift (@INC, "$texdir/tlpkg"); +} + +use TeXLive::TLUtils qw(win32 mkdirhier conv_to_w32_path log info tlwarn); + +if ($mode eq "install") { + for my $f (<$texdir/bin/*>) { + next if ! -d $f; + open (TWI, ">$f/texworks-setup.ini") + || tlwarn "Cannot open $f/texworks-setup.ini"; + print TWI "defaultbinpaths = $f\n"; + close TWI; + } +} elsif ($mode eq "remove") { + unlink <$texdir/bin/texworks-setup.ini>; +} else { + tlwarn ("texworks post action: unknown mode $mode\n"); +} + +exit 0; + +### Local Variables: +### perl-indent-level: 2 +### tab-width: 2 +### indent-tabs-mode: nil +### End: +# vim:set tabstop=2 expandtab: # |