Re: [TUHS] Unix stories, Stephen Bourne and IF-FI in C code - TUHS

10 Jan 2017

...
 Date: Mon, 09 Jan 2017 08:45:47 -0700
From: arnold(a)skeeve.com
To: rochkind(a)basepath.com
Cc: tuhs(a)tuhs.org
Subject: Re: [TUHS] Unix stories, Stephen Bourne and IF-FI in C code
Message-ID: &lt;201701091545.v09FjlXE027448(a)freefriends.org&gt;
Content-Type: text/plain; charset=us-ascii
I remember the Bournegol well; I did some hacking on the BSD shell.
In general, it wasn't too unusual for people from Pascal backgrounds to
do similar things, e.g.
        #define repeat          do {
        #define until(cond)     } while (! (cond))
(I remember for me personally that do...while sure looked weird for.
my first few years of C programming. :-)
(Also, I would not recommend doing that; I'm just noting that
people often did do stuff like that.) 
When the Philips computer division worked on MPX (multi-processor
UNIX) in late 80tish they had an include file 'syntax.h' which did a
lot of that Pascal-like mapping.
Here part of it:
/* For a full explanation see the file syntax.help */
#define IF              if(
#define THEN            ){
#define ELSIF           }else if(
#define ELSE            }else{
#define ENDIF           }
#define NOT             !
#define AND             &&
#define OR              ||
#define CASE            switch(
#define OF              ){
#define ENDCASE         break;}
#define WHEN            break;case
#define CWHEN           case
#define IMPL            :
#define COR             :case
#define BREAK           break
#define WHENOTHERS      break;default
#define CWHENOTHERS     default
#define SELECT          do{{
#define SWHEN           }if(
#define SIMPL           ){
#define ENDSELECT       }}while(0)
#define SCOPE           {
#define ENDSCOPE        }
#define BLOCK           {
#define ENDBLOCK        }
#define FOREVER         for(;;
#define FOR             for(
#define SKIP
#define COND            ;
#define STEP            ;
#define LOOP            ){
#define ENDLOOP         }
#define NULLOOP         ){}
#define WHILE           while(
#define DO              do{
#define UNTIL           }while(!(
#define ENDDO           ))
#define EXITWHEN(e)     if(e)break
#define CONTINUE        continue
#define RETURN          return
#define GOTO            goto