summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlpostcode
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-05-16 22:03:19 +0000
committerNorbert Preining <preining@logic.at>2009-05-16 22:03:19 +0000
commitfc60b21deb6d19453962498d2cef391f10590b79 (patch)
tree5254ae0f4e74ca4f3b87e2b7e7be195985a3dd29 /Master/tlpkg/tlpostcode
parentec3c91c9dacd520c69d1992407276d8dc8f54425 (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.pl41
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: #