summaryrefslogtreecommitdiff
path: root/Master/bin/alpha-linux/tpic2pdftex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-04-10 22:35:04 +0000
committerKarl Berry <karl@freefriends.org>2013-04-10 22:35:04 +0000
commit1cbce9bf776dd1e86b31855bcf7791aa75e7e433 (patch)
tree1eab3eb622e6f04b09b7e266f59ef91882702569 /Master/bin/alpha-linux/tpic2pdftex
parentb6dcf3e18480f3cb64fce7ea2614010abf3e6240 (diff)
first TL13 alpha-linux from preining
git-svn-id: svn://tug.org/texlive/trunk@29834 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/bin/alpha-linux/tpic2pdftex')
-rwxr-xr-xMaster/bin/alpha-linux/tpic2pdftex11
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/bin/alpha-linux/tpic2pdftex b/Master/bin/alpha-linux/tpic2pdftex
index 412dc0d771f..cd67803b979 100755
--- a/Master/bin/alpha-linux/tpic2pdftex
+++ b/Master/bin/alpha-linux/tpic2pdftex
@@ -1,6 +1,6 @@
#!/bin/sh -
#
-# $Id: tpic2pdftex 22938 2011-06-12 22:03:14Z karl $
+# $Id: tpic2pdftex 29534 2013-03-27 23:56:34Z karl $
#
# Experimental awk-script for conversion of tpic \specials as produced
# by (groff-)pic into pdfTeX \pdfliteral sections for further processing
@@ -20,7 +20,7 @@
# Bounding box does not care for line thickness (groff pic feature).
# Splines might be outside bounding box.
#
-# Copyright (C) 2002--2011 by Hartmut Henkel
+# Copyright (C) 2002--2013 by Hartmut Henkel
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@ -116,7 +116,8 @@ if test -z "$AWK"; then # if set by user, leave it.
fi
fi
-LANG="C"; export LANG
+unset LANG; unset LANGUAGE
+LC_ALL=C; export LC_ALL
AWKPROG='
# begin of awk input file
@@ -163,10 +164,10 @@ BEGIN{
pi = atan2(0, -1);
if (match(sprintf("%f", 0.5), /\./) == 0) {
print "ERROR: Floating point numbers miss decimal point. Do"
- print " LANG=\"C\"; export LANG"
+ print " LC_ALL=\"C\"; export LC_ALL; unset LANGUAGE"
print "before calling awk."
print "ERROR: Floating point numbers miss decimal point. Do" > "/dev/stderr"
- print " LANG=\"C\"; export LANG" > "/dev/stderr"
+ print " LC_ALL=\"C\"; export LC_ALL; unset LANGUAGE" > "/dev/stderr"
print "before calling awk." > "/dev/stderr"
exit 1;
}