Pointer loop

From	"luser.droog" <luser.droog@gmail.com>
Newsgroups	comp.lang.postscript
Subject	Pointer loop
Date	2012-12-04 02:02 -0600
Organization	unorganized
Message-ID	<k9kaso$vcg$1@dont-email.me> (permalink)

Show all headers | View raw

Anybody done this yet?

508(1)02:00 AM:ps 0> cat foreach.ps
%!
%foreach

/foreachdict <<
    /arraytype{ % A proc
        0 1 src length 1 sub {
            src exch 1 getinterval
            proc
        } for
    }
    /stringtype 1 index
    /default{/foreach cvx /typecheck signalerror}
>> def

/foreach { % A|S proc
    2 dict begin {proc src}{exch def}forall
    //foreachdict src type
    2 copy known not{pop/default}if %dict src-type
    get exec
    end
} def

/toupper{ dup 97 ge 1 index 122 le and { 32 sub } if }def

(hello, world! my name is oditszuaupuc)
dup {
    0
    2 copy get
    toupper put
} foreach
==
%eof

GPL Ghostscript 8.62 (2008-02-29)
Copyright (C) 2008 Artifex Software, Inc.  All rights reserved.
This software comes with NO WARRANTY: see the file PUBLIC for details.
(HELLO, WORLD! MY NAME IS ODITSZUAUPUC)
GS>GS>

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

Thread

Pointer loop "luser.droog" <luser.droog@gmail.com> - 2012-12-04 02:02 -0600
  Re: Pointer loop sjprouty3765@gmail.com - 2012-12-04 12:22 -0800
    Re: Pointer loop "luser.droog" <luser.droog@gmail.com> - 2012-12-04 15:46 -0600
      Re: Pointer loop sjprouty3765@gmail.com - 2012-12-06 12:29 -0800
        Re: Pointer loop "luser.droog" <luser.droog@gmail.com> - 2012-12-07 02:10 -0600
          Re: Pointer loop luser- -droog <mijoryx@yahoo.com> - 2012-12-24 19:20 -0800

csiph-web