File: euktotex

package info (click to toggle)
eukleides 1.5.4-4.3
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 880 kB
  • sloc: ansic: 6,962; yacc: 1,780; makefile: 304; lex: 208; sh: 134; perl: 43
file content (35 lines) | stat: -rwxr-xr-x 1,081 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
#!/bin/bash
#
#  Eukleides version 1.5.4
#  Copyright (c) Christian Obrecht 2004-2010
#
#  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 3 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; if not, write to the Free Software
#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#

if [ ! $1 ]
then
    echo "Missing file name. Exiting." > /dev/stderr
    exit 1
fi

for f in $(expr $1 : '\(.*\)\.[^.]*' '|' $1)-fig*.euk
do
  if [ ! -e $f ]
  then
    echo "No figure files for $1. Exiting." > /dev/stderr
    exit 1
  fi
  euktopst -b -o$(expr $f : '\(.*\)\.euk').tex $f
done