Return to grabit.sh CVS log

Up to [Research Unix] / researchv10no / cmd / postscript / grabit

Annotation of researchv10no/cmd/postscript/grabit/grabit.sh, revision 1.1.1.1

1.1       root        1: #
                      2: # Print a listing of an object, often a dictionary or an array. Something
                      3: # like ==, but the output is often easier to read and closer to PostScript
                      4: # that can be sent back through the interpreter.
                      5: #
                      6: 
                      7: POSTLIB=/usr/lib/postscript
                      8: PROLOGUE=$POSTLIB/grabit.ps
                      9: 
                     10: COPYFILE=
                     11: RECURSIVE=true
                     12: OMITNAMES="/Grabit /GrabitDict"
                     13: 
                     14: NONCONFORMING="%!PS"
                     15: ENDPROLOG="%%EndProlog"
                     16: BEGINSETUP="%%BeginSetup"
                     17: ENDSETUP="%%EndSetup"
                     18: TRAILER="%%Trailer"
                     19: 
                     20: SETUP=GrabitSetup
                     21: 
                     22: while [ -n "$1" ]; do
                     23:     case $1 in
                     24:        -d)  RECURSIVE=false;;
                     25: 
                     26:        -o)  shift; OMITNAMES="$OMITNAMES $1";;
                     27:        -o*) OMITNAMES="$OMITNAMES `echo $1 | sed s/-o//`";;
                     28: 
                     29:        -C)  shift; COPYFILE="$COPYFILE $1";;
                     30:        -C*) COPYFILE="$COPYFILE `echo $1 | sed s/-C//`";;
                     31: 
                     32:        -L)  shift; PROLOGUE=$1;;
                     33:        -L*) PROLOGUE=`echo $1 | sed s/-L//`;;
                     34: 
                     35:        --)  shift; break;;
                     36: 
                     37:        -*)  echo "$0: illegal option $1" >&2; exit 1;;
                     38: 
                     39:        *)   break;;
                     40:     esac
                     41:     shift
                     42: done
                     43: 
                     44: echo $NONCONFORMING
                     45: cat $PROLOGUE
                     46: echo $ENDPROLOG
                     47: echo $BEGINSETUP
                     48: cat ${COPYFILE:-/dev/null}
                     49: echo "GrabitDict begin"
                     50: echo "/recursive $RECURSIVE def"
                     51: 
                     52: echo mark
                     53: for i in $OMITNAMES; do
                     54:     case $i in
                     55:        /*) echo "$i";;
                     56:        ?*) echo "/$i";;
                     57:     esac
                     58: done
                     59: echo GrabitSetup
                     60: 
                     61: echo end
                     62: echo $ENDSETUP
                     63: 
                     64: for i do
                     65:     echo "$i Grabit"
                     66: done
                     67: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.