[Freeciv-Dev] Re: Perl for scripting

[Cameron Morland <cjmorlan@xxxxxxxxxxxx>]

On Wed, 28 Jun 2000, Tomasz Wegrzanowski wrote:

> I would never use sh, given ANY other choice, even VisualBasic :-)
> And I wouldn't use Pascal, unless they support POSIX I/O.
> Don't have other objections, weird languages are fun (try dc).

Well, speaking of weird languages, I suggest we use Postscript to do the
job. Now _that_'s weird! Here's a simple program to get you going -- if
you want more, I wrote a Mandelbrot set interpreter in
PS.... <http://www.eng.uwaterloo.ca/~cjmorlan/fractals/mandelbrot.ps>

%!PS-Adobe-1.0
1 1 5 {
  dup 12 mul /Times-Roman findfont exch scalefont setfont
  72 mul 72 exch moveto
  (Hello world!) show
  } for
showpage

If that isn't enough fun, a slightly more obfuscated program (and you said
Perl was difficult to comprehend!) It's Jon Monsarrat's .sig

%! Jon Monsarrat jgm@xxxxxxxxxxxx moderator, comp.sources.postscript %!
(LcHdBidZi_hdQ6[PaVa1b4c6F"J4b/>$O<)(di_zk{:UFfUg;ABF)(2n>]Eh:u?<)(P"M#R\(:$T<)
([gXfSZ]f\\dZbeZeb^fH;`?dR=ZS7)(K P!U!: H<)(9l9cCf:o?$)(7W4]6`:X;=)(U"W#_%:"R-)
(A 5"<&Y%K"F"M,M,S\)i3e.M5F_PZR9>lP-)(wBxEuEs7x;uBq:q<q>hFh7o:=Nj<)(Z#]#b#:$R-)
(m+m+k3S!R+d,;"^<)(GFP\\RamZf;TAP{X{fd<{C7)(4840N2:6N=)([ Z#^&:!c<)(<%?$C$:#8<)
(D!J"L#:!B<)/a{def}def/M{exch}a/S{repeat}a/Q{{40 add}if}a 18{{}forall/R M a/x 2
/y 3/z 5 3{R M mod 1 eq a}S x Q M y Q moveto 57 sub{3{y Q M x Q M 6 2 roll}S
curveto}S z{fill}{stroke}ifelse}S showpage

+----------------------------------------------------------
| PGP http://www.eng.uwaterloo.ca/student/cjmorlan/pgp.txt
| cjmorland@xxxxxxxxxxxx
|
| Convictions cause convicts.
|     --Concordia Discordia
+----------------------------------------------------------