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     ! 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.