From: ats@offog.org (Adam Sampson)
Subject: [TUHS] Unix stories, Stephen Bourne and IF-FI in C code
Date: Sun, 08 Jan 2017 23:14:17 +0000 [thread overview]
Message-ID: <y2algul16wm.fsf@offog.org> (raw)
In-Reply-To: <22ec379e-4985-2ab5-9fa5-f932fa4de653@retro11.de> (Walter F. J. Mueller's message of "Sun, 8 Jan 2017 21:37:41 +0100")
"Walter F.J. Mueller" <w.f.j.mueller at retro11.de> writes:
> [...] to enjoy C with an Algol-look.
For those who enjoy Bournegol, can I also recommend the source code to
David Turner's KRC, which was ported from (EMAS) BCPL to C using a
similar approach. A sample from main.c:
STATIC VOID
DISPLAYCOM()
{ TEST HAVEID()
THEN TEST HAVE(EOL)
THEN DISPLAY(THE_ID,TRUE,FALSE); OR
TEST HAVE((TOKEN)DOTDOT_SY)
THEN { ATOM A = THE_ID; LIST X=NIL;
ATOM B = HAVE(EOL) ? (ATOM)EOL :> // BUG?
HAVEID() && HAVE(EOL) ? THE_ID :
0;
TEST B==0 THEN SYNTAX();
OR X=EXTRACT(A,B);
UNTIL X==NIL
DO { DISPLAY((ATOM)HD(X),FALSE,FALSE);
X=TL(X); } } //could insert extra line here between groups
OR SYNTAX();
OR SYNTAX();
}
http://krc-lang.org/
--
Adam Sampson <ats at offog.org> <http://offog.org/>
next prev parent reply other threads:[~2017-01-08 23:14 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-01-08 20:37 Walter F.J. Mueller
2017-01-08 21:12 ` Larry McVoy
2017-01-08 21:26 ` Dave Horsfall
2017-01-08 21:54 ` Kay Parker
2017-01-08 23:14 ` Adam Sampson [this message]
2017-01-09 1:06 Doug McIlroy
2017-01-09 2:18 ` Random832
2017-01-09 2:30 Norman Wilson
2017-01-09 3:31 ` Steve Johnson
2017-01-09 15:30 ` Marc Rochkind
2017-01-09 15:45 ` arnold
2017-01-09 15:59 ` ron minnich
2017-01-09 16:03 ` Clem Cole
2017-01-10 18:44 ` Lawrence Stewart
2017-01-09 18:48 ` Derek Fawcus
2017-01-09 20:35 ` Steve Johnson
2017-01-10 12:24 ` Tony Finch
2017-01-11 6:00 ` Brantley Coile
[not found] <mailman.1.1484013601.5032.tuhs@minnie.tuhs.org>
2017-01-10 3:11 ` Paul McJones
2017-01-10 4:40 Rudi Blom
2017-01-10 13:50 Noel Chiappa
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=y2algul16wm.fsf@offog.org \
--to=ats@offog.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).