diff options
author | Karl Berry <karl@freefriends.org> | 2008-03-17 18:36:01 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-03-17 18:36:01 +0000 |
commit | ece8c329b502848b3dd28daf44e677e6f8751454 (patch) | |
tree | c5fc452b91d0d427623801fef42786c660ed59a6 /Master/bin/mips-irix/gbklatex | |
parent | c66d6a8ee4841fa1c0c6ff332ff7aa1a939a1080 (diff) |
restore mips-irix a la Martin: svn cp -r 6968 svn://username:password@tug.org/texlive/trunk/Master/bin/mips-irix .
git-svn-id: svn://tug.org/texlive/trunk@6985 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/bin/mips-irix/gbklatex')
-rwxr-xr-x | Master/bin/mips-irix/gbklatex | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/Master/bin/mips-irix/gbklatex b/Master/bin/mips-irix/gbklatex new file mode 100755 index 00000000000..f799f7b6e63 --- /dev/null +++ b/Master/bin/mips-irix/gbklatex @@ -0,0 +1,43 @@ +#! /bin/sh + +# Copyright (C) 1994-2006 Werner Lemberg <wl@gnu.org> +# +# 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 +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program in doc/COPYING; if not, write to the Free +# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, +# MA 02110-1301 USA + +n=1 +argv= + +# get last argument +while test 1 -lt $#; do + eval argv$n=\$1 + argv="$argv \"\$argv$n\"" + n=`expr $n + 1` + shift +done + +# replace extension with .cjk or append .cjk if there is no extension +tex=$1 +case $tex in +""|*.cjk) + echo >&2 "Usage: $0 [options] latex-file" + exit 1;; +*) + aux=`expr "X$tex" : 'X\(.*\)\.[^/]*$' \| "X$tex" : 'X\(.*\)'`.cjk;; +esac + +extconv < "$tex" > "$aux" && eval latex "$argv" "\$aux" + +# EOF |