GOLF! abbreviated system names

Newsgroups	comp.lang.postscript
Date	2013-08-28 00:23 -0700
Message-ID	<747c7407-c3e4-4c3b-9155-84d220140367@googlegroups.com> (permalink)
Subject	GOLF! abbreviated system names
From	luser- -droog <mijoryx@yahoo.com>

Show all headers | View raw

Any undefined names are checked with anchorsearch
against the alphabetical encoded-system-name table.
First prefix match gets returned, and executed if
executable.
a = abs
ad = add
mu = mul
pr = print
g = ge
f = file



/names
[ 0 1 225 { <910> dup 1 4 3 roll put cvx exec } for ]
def

/match {
    dup length string cvs 
    {   
        names {
            dup dup length string cvs 
            2 index anchorsearch {
                pop pop exch pop stop
            } if
            pop pop 
        } forall
    } stopped not {
        /unregistered signalerror
    } if
} def 

/abbr {
errordict/undefined{
    dup xcheck exch match
    exch { cvx exec } if
}put
} def 

%2 3 /ad match pstack

abbr
2 3 ad
4 mu
=string cvs pr

Back to comp.lang.postscript | Previous | Next — Next in thread | Find similar

Thread

GOLF!  abbreviated system names luser- -droog <mijoryx@yahoo.com> - 2013-08-28 00:23 -0700
  Re: GOLF!  abbreviated system names luser- -droog <mijoryx@yahoo.com> - 2013-08-28 00:55 -0700
    Re: GOLF!  abbreviated system names luser- -droog <mijoryx@yahoo.com> - 2013-08-29 00:51 -0700
      Re: GOLF!  abbreviated system names luser- -droog <mijoryx@yahoo.com> - 2013-11-15 09:16 -0800

csiph-web