10555
|
1 |
#!/usr/bin/env bash
|
5557
|
2 |
#
|
9788
|
3 |
# Author: Markus Wenzel, TU Muenchen
|
5557
|
4 |
#
|
|
5 |
# DESCRIPTION: create an instance of the Isabelle logo
|
|
6 |
|
|
7 |
|
10511
|
8 |
PRG="$(basename "$0")"
|
5557
|
9 |
|
|
10 |
function usage()
|
|
11 |
{
|
|
12 |
echo
|
28650
|
13 |
echo "Usage: isabelle $PRG [OPTIONS] NAME"
|
5570
|
14 |
echo
|
48936
|
15 |
echo " Create instance NAME of the Isabelle logo (as EPS or PDF)."
|
5557
|
16 |
echo
|
5570
|
17 |
echo " Options are:"
|
48936
|
18 |
echo " -o OUTPUT specify output file and format (default \"isabelle_name.pdf\")"
|
5570
|
19 |
echo " -q quiet mode"
|
5557
|
20 |
echo
|
|
21 |
exit 1
|
|
22 |
}
|
|
23 |
|
|
24 |
function fail()
|
|
25 |
{
|
|
26 |
echo "$1" >&2
|
|
27 |
exit 2
|
|
28 |
}
|
|
29 |
|
|
30 |
|
5570
|
31 |
## process command line
|
|
32 |
|
|
33 |
# options
|
|
34 |
|
48936
|
35 |
OUTPUT=""
|
5570
|
36 |
QUIET=""
|
|
37 |
|
|
38 |
while getopts "o:q" OPT
|
|
39 |
do
|
|
40 |
case "$OPT" in
|
|
41 |
o)
|
48936
|
42 |
OUTPUT="$OPTARG"
|
5570
|
43 |
;;
|
|
44 |
q)
|
|
45 |
QUIET=true
|
|
46 |
;;
|
|
47 |
\?)
|
|
48 |
usage
|
|
49 |
;;
|
|
50 |
esac
|
|
51 |
done
|
|
52 |
|
|
53 |
shift $(($OPTIND - 1))
|
|
54 |
|
|
55 |
|
|
56 |
# args
|
5557
|
57 |
|
5587
|
58 |
NAME="-"
|
9788
|
59 |
[ "$#" -ge 1 ] && { NAME="$1"; shift; }
|
5557
|
60 |
|
9788
|
61 |
[ "$#" -ne 0 -o "$NAME" = "-" ] && usage
|
5557
|
62 |
|
|
63 |
|
|
64 |
## main
|
|
65 |
|
48936
|
66 |
if [ -z "$OUTPUT" ]; then
|
|
67 |
OUTPUT=$(echo "$NAME" | tr A-Z a-z)
|
|
68 |
[ -n "$OUTPUT" ] && OUTPUT="_${OUTPUT}"
|
|
69 |
OUTPUT="isabelle${OUTPUT}.pdf"
|
|
70 |
OUTPUT_FORMAT="pdf"
|
|
71 |
else
|
|
72 |
case "$OUTPUT" in
|
|
73 |
*.eps)
|
|
74 |
OUTPUT_FORMAT="eps"
|
|
75 |
;;
|
|
76 |
*.pdf)
|
|
77 |
OUTPUT_FORMAT="pdf"
|
|
78 |
;;
|
|
79 |
*)
|
|
80 |
fail "Cannot guess output format (eps or pdf) from \"$OUTPUT\""
|
|
81 |
;;
|
|
82 |
esac
|
5570
|
83 |
fi
|
|
84 |
|
48936
|
85 |
[ -z "$QUIET" ] && echo "$OUTPUT" >&2
|
|
86 |
|
|
87 |
if [ "$OUTPUT_FORMAT" = "eps" ]; then
|
|
88 |
perl -p -e "s,<any>,$NAME," "$ISABELLE_HOME/lib/logo/isabelle_any.eps" > "$OUTPUT"
|
5570
|
89 |
else
|
48936
|
90 |
perl -p -e "s,<any>,$NAME," "$ISABELLE_HOME/lib/logo/isabelle_any.eps" | \
|
|
91 |
"$ISABELLE_EPSTOPDF" -f > "$OUTPUT"
|
5570
|
92 |
fi
|