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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
<: # ePerl source file :>//
#! /bin/bash
#
# fake Emacs compilation script for the Debian package auctex
#
<:
open (my $copyright, "< COPYRIGHT");
while (<$copyright>) {print '#' . (/^$/ ? "\n" : " $_")};
close $copyright;
:>//
set -e
PROGNAME='auctex/debian/elcc'
GETOPT=$(getopt --alternative -o 'f:' --long 'eval:,funcall:' -- "${@}")
if [ ${?} != 0 ]; then
echo >&2 "${PROGNAME}:" 'getopt error'
exit 1
fi
eval set -- "${GETOPT}"
unset GETOPT
while true; do
case "$1" in
(--eval|--funcall|-f)
shift 2
;;
(--)
shift
break
;;
(*)
echo >&2 "${PROGNAME}:" \
"Internal error: unhandled option: $1"
exit 1;;
esac
done
for arg; do
test -r ${arg} || exit 1
test -d ${arg} && continue
touch ${arg}c
echo "Touched ${arg}c"
done
exit 0
<:
# local variables:
# mode: shell-script
# ispell-local-dictionary: "american"
# ispell-check-comments: exclusive
# end:
#
# LocalWords: ePerl Emacs auctex
:>//
|
