Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!news.swapon.de!eternal-september.org!feeder.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: Unknown <dog@gmail.com>
Newsgroups: comp.os.linux.misc,comp.sys.raspberry-pi
Subject: Re: wily 4 Haskell...
Date: Mon, 9 Feb 2015 18:01:45 +0000 (UTC)
Organization: A noiseless patient Spider
Lines: 115
Message-ID: <pan.2015.02.09.18.10.22@gmail.com>
References: <mavo96$1id$1@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Mon, 9 Feb 2015 18:01:45 +0000 (UTC)
Injection-Info: mx02.eternal-september.org; posting-host="8e834a5ec16add6795757a99ea81c19f"; logging-data="29106"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1880fJOzfNHCubrY8aHHC8+UuqM6wmvPI4="
User-Agent: Pan/0.133 (House of Butterflies)
Cancel-Lock: sha1:rsL3sFYWKJvZBtO8FcCwnhsJXYM=
Xref: csiph.com comp.os.linux.misc:13665

On Thu, 05 Feb 2015 12:39:04 +0000, not.socialnetwork wrote:

> Being able to read & 'hear' a new-language is much cheaper than
> <rearranging the neurons in your brain> to speak & write new-languages.
> --snip --

=== Here's the system & full description & test log ===
Using wily: [see below HOW2 use a mouse and CLI system]
Start  <-- copy START textFile to SIP
REPEAT
  wilyLoad SIP
  wilyExecute HotLink;
  wilyDelete SIP
UNTILdone .
---------------- Start gives me:
MODULE Mid;
 CONST <CLst>;
 VAR <VLst>;
 { ProcDcl }
 BEGIN StmLst
 END Mid.
---------------- ProcDcl gives me:
MODULE Mid;
 CONST <CLst>;
 VAR <VLst>;
 { PROC Pid;
 DecLst  BEGIN StmLst END Pid; }
 BEGIN StmLst
 END Mid.
---------------- StmLst gives me:
MODULE Mid;
 CONST <CLst>;
 VAR <VLst>;
 { PROC Pid;
 DecLst  BEGIN
 Asgn V:=X;
 While Bool Do;
 IfThenElse END Pid; }
 BEGIN
 Asgn V:=X;
 While Bool Do;
 IfThenElse
 END Mid.
---------------- DecLst gives me: <- In Proc.
MODULE Mid;
 CONST <CLst>;
 VAR <VLst>;
 { PROC Pid;
 CONST <CLst>;
 VAR <VLst>;
 { ProcDcl }  BEGIN
 Asgn V:=X;
 While Bool Do;
 IfThenElse END Pid; }
 BEGIN
 Asgn V:=X;
 While Bool Do;
 IfThenElse
 END Mid.
--------------- ..etc.
Yes, when there are multiple <identiacally ID-ed hot-links>
 they all get expanded. So delete some before [or later] the
expansion/S.

The above was generated by [slhdlhdlhd] 1+3*3=10 mouse-klux;
without looking away from the screen, to the keybrd.

Aviators call it: 'heads up flying '.

So you haven't got wily or plan9:acme or ETHOberon?
Then you can just eg. mouse-copy: StmLst
and paste it to the CLI to get:
./StmLst
which means you can do this without X11, too.
=========================
Here's the full system. So start writing a Haskell version,
unless you can rather write one *IN* Haskell !!

-rwxr-xr-x 1 root root    98 2015-02-09 17:53 DecLst
-rwxr-xr-x 1 root root    67 2015-02-09 17:53 ProcDcl
-rw-r--r-- 1 root root   211 2015-02-09 17:34 SIP
-rw-r--r-- 1 root root    77 2015-02-09 17:07 START
-rwxr-xr-x 1 root root    54 2015-02-09 17:04 Start
-rwxr-xr-x 1 root root   115 2015-02-09 17:53 StmLst

--- DecLst
sed -i 's/DecLst/CONST <CLst>;\n VAR <VLst>;\n { ProcDcl }/'  SIP

# ; <- belongs to Lower-blok
--- ProcDcl
sed -i 's/ProcDcl/PROC Pid;\n DecLst  BEGIN StmLst END Pid;/' SIP
--- START
MODULE Mid;
 CONST <CLst>;
 VAR <VLst>;
 { ProcDcl }
 BEGIN StmLst
 END Mid.
---  Start
cp START SIP

# Initialise File: SIP from File: START
--- StmLst
sed -i 's/StmLst/\n Asgn V:=X;\n While Bool Do;\n IfThenElse/'  SIP

# StmLstS in MAIN & all PROCs will be updated!
---

Next post will be my attempt to evolve a similar Haskell-helper/menu,
and I'll EXPECT some assistance.

== TIA