blob: 1f06c2176a11958120b8adb456d763d027546dad (
plain)
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
57
58
59
60
61
62
63
64
|
#!/bin/rc
# Print a listing of an object, often a dictionary or an array. Something
# like ==, but the output is often easier to read and closer to PostScript
# that can be sent back through the interpreter.
#
POSTLIB=/sys/lib/postscript/prologues
PROLOGUE=$POSTLIB/grabit.ps
COPYFILE=
RECURSIVE=true
OMITNAMES='/Grabit /GrabitDict'
NONCONFORMING='%!PS'
ENDPROLOG='%%EndProlog'
BEGINSETUP='%%BeginSetup'
ENDSETUP='%%EndSetup'
TRAILER='%%Trailer'
SETUP=GrabitSetup
while (! ~ $#* 0 && ~ $1 -*) {
switch ($1) {
case -d; RECURSIVE=false
case -o; shift; OMITNAMES=$OMITNAMES' '$1
case -o*; OMITNAMES=$OMITNAMES' '`{echo $1 | sed s/-o//}
case -C; shift; COPYFILE=$COPYFILE' '$1
case -C*; COPYFILE=$COPYFILE' '`{echo $1 | sed s/-C//}
case -L; shift; PROLOGUE=$1
case -L*; PROLOGUE=`{echo $1 | sed s/-L//}
case --;
case -*; echo $0: illegal option $1 >[1=2]; exit 1
}
shift
done
echo $NONCONFORMING
cat $PROLOGUE
echo $ENDPROLOG
echo $BEGINSETUP
if (~ $COPYFILE '') COPYFILE=/dev/null
cat $COPYFILE
echo 'GrabitDict begin'
echo '/recursive '$RECURSIVE' def'
echo mark
for (i in $OMITNAMES) {
switch ($i) {
case /*; echo $i
case ?*; echo /$i
}
}
echo GrabitSetup
echo end
echo $ENDSETUP
for (i) echo $i Grabit
|
