From fc60b21deb6d19453962498d2cef391f10590b79 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 16 May 2009 22:03:19 +0000 Subject: 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 --- Master/tlpkg/tlpostcode/texworks.pl | 41 +++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 Master/tlpkg/tlpostcode/texworks.pl (limited to 'Master/tlpkg/tlpostcode') 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: # -- cgit v1.2.3