From: Rudi Blom <rudi.j.blom@gmail.com>
To: tuhs <tuhs@minnie.tuhs.org>
Subject: Re: [TUHS] v7 source code for sh
Date: Sun, 20 Feb 2022 14:24:23 +0700 [thread overview]
Message-ID: <CAMYpm84WybTsR-g16TkN1y-mVh3zg0EwxugXFnDGgmn++P5inA@mail.gmail.com> (raw)
[-- Attachment #1.1: Type: text/plain, Size: 388 bytes --]
Second half of the 1980-tish when the computer division of Philips
Electronics started on their own Motorola M68010 / UNIX System V.3 (don't
remember for sure I'm afraid) they used a syntax.h with macros similar to
mac.h. Only I understand it's more Pascal like. Appended the 1987 version I
found in my archive.
Cheers,
rubl
--
The more I learn the better I understand I know nothing.
[-- Attachment #1.2: Type: text/html, Size: 585 bytes --]
[-- Attachment #2: syntax.h --]
[-- Type: text/plain, Size: 1754 bytes --]
/* SCCSID(" @(#)syntax.h 87/08/01 )" */
#ifndef SYNTAX_H
#define SYNTAX_H
/* 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
#define STRUCT struct
#define UNION union
#define TYPE typedef
#define IS
#define SIZEOF sizeof
#define UNSIGNED unsigned
#define CHAR char
#define UCHAR unsigned char
#define BYTE char
#define UBYTE unsigned char
#define SHORT short
#define USHORT unsigned short
#define INT int
#define UINT unsigned int
#define VOID void
#define LONG long
#define ULONG unsigned long
#define FLOAT float
#define DOUBLE double
#define ENUM enum
#define PRIVATE static
#define IMPORT extern
#define EXPORT
#define AUTO auto
#define FAST register
#define FALSE 0
#define TRUE 1
#define MODULE(m,id) static char __mod__[]="m";\
static char __file__[]=__FILE__;static char __filid__[]="id"
#define PROC
#define ENDMODULE
#define SHOULD_NOT
#endif /* SYNTAX_H */
next reply other threads:[~2022-02-20 7:26 UTC|newest]
Thread overview: 30+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-02-20 7:24 Rudi Blom [this message]
-- strict thread matches above, loose matches on Subject: below --
2022-02-22 3:07 Brian Walden
2022-02-22 14:28 ` Chet Ramey
2022-02-22 14:47 ` Clem Cole
2022-02-21 17:58 Norman Wilson
2022-02-21 18:10 ` Rob Pike
2022-02-19 17:44 Bakul Shah
2022-02-19 18:44 ` Rob Pike
2022-02-19 19:29 ` Clem Cole
2022-02-19 22:39 ` John Cowan
2022-02-19 23:11 ` Sven Mascheck
2022-02-19 23:34 ` Rob Pike
2022-02-19 23:36 ` silas poulson
2022-02-20 20:54 ` Chet Ramey
2022-02-20 21:02 ` Larry McVoy
2022-02-20 21:19 ` Chet Ramey
2022-02-20 21:19 ` Lyndon Nerenberg (VE7TFX/VE6BBM)
2022-02-20 22:39 ` Chet Ramey
2022-02-21 1:01 ` Dan Cross
2022-02-22 4:54 ` Dan Stromberg
2022-02-22 5:39 ` Rob Pike
2022-02-22 5:54 ` George Michaelson
2022-02-19 15:43 Will Senn
2022-02-19 16:03 ` Steve Nickolas
2022-02-19 16:07 ` Clem Cole
2022-02-19 16:43 ` Steve Nickolas
2022-02-19 17:24 ` Ron Natalie
2022-02-19 16:04 ` Clem Cole
2022-02-19 16:06 ` Bakul Shah
2022-02-19 16:57 ` Will Senn
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=CAMYpm84WybTsR-g16TkN1y-mVh3zg0EwxugXFnDGgmn++P5inA@mail.gmail.com \
--to=rudi.j.blom@gmail.com \
--cc=tuhs@minnie.tuhs.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).