From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org X-Spam-Level: X-Spam-Status: No, score=-1.0 required=5.0 tests=HTML_MESSAGE, MAILING_LIST_MULTI autolearn=ham autolearn_force=no version=3.4.4 Received: (qmail 15055 invoked from network); 24 Nov 2021 20:47:13 -0000 Received: from minnie.tuhs.org (45.79.103.53) by inbox.vuxu.org with ESMTPUTF8; 24 Nov 2021 20:47:13 -0000 Received: by minnie.tuhs.org (Postfix, from userid 112) id 7B1D39C78B; Thu, 25 Nov 2021 06:47:11 +1000 (AEST) Received: from minnie.tuhs.org (localhost [127.0.0.1]) by minnie.tuhs.org (Postfix) with ESMTP id 9CB7393D29; Thu, 25 Nov 2021 06:45:03 +1000 (AEST) Received: by minnie.tuhs.org (Postfix, from userid 112) id 9F4A193D29; Thu, 25 Nov 2021 06:45:01 +1000 (AEST) X-Greylist: delayed 1411 seconds by postgrey-1.36 at minnie.tuhs.org; Thu, 25 Nov 2021 06:45:00 AEST Received: from smtp2.via.net (smtp2.via.net [157.22.3.6]) by minnie.tuhs.org (Postfix) with ESMTPS id F237793D1B for ; Thu, 25 Nov 2021 06:45:00 +1000 (AEST) Received: from mail.via.net (mail.via.net [157.22.3.34]) by smtp2.via.net (8.15.2/8.14.1-VIANET) with ESMTPS id 1AOKLSDQ019824 (version=TLSv1.2 cipher=ECDHE-RSA-AES256-GCM-SHA384 bits=256 verify=FAIL); Wed, 24 Nov 2021 12:21:28 -0800 (PST) X-Virus-Status: Clean X-Virus-Scanned: clamav-milter 0.103.1 at smtp2.via.net Received: from smtpclient.apple ([209.81.2.65]) by mail.via.net (8.15.2/8.14.1-VIANET) with ESMTP id 1AOKLRQw010464; Wed, 24 Nov 2021 12:21:27 -0800 (PST) X-Virus-Status: Clean X-Virus-Scanned: clamav-milter 0.102.2 at mail.via.net From: joe mcguckin Message-Id: <376D7B09-84A7-4DB3-AFED-97E8A279EEEB@via.net> Content-Type: multipart/alternative; boundary="Apple-Mail=_4E798D4A-2C3F-4E3E-AEE2-FF8FE48DAE0E" Mime-Version: 1.0 (Mac OS X Mail 14.0 \(3654.120.0.1.13\)) Date: Wed, 24 Nov 2021 12:21:17 -0800 In-Reply-To: To: Rob Pike References: X-Mailer: Apple Mail (2.3654.120.0.1.13) X-Greylist: Sender IP whitelisted, not delayed by milter-greylist-4.4.3 (smtp2.via.net [157.22.3.6]); Wed, 24 Nov 2021 12:21:28 -0800 (PST) Subject: Re: [TUHS] Book Recommendation X-BeenThere: tuhs@minnie.tuhs.org X-Mailman-Version: 2.1.26 Precedence: list List-Id: The Unix Heritage Society mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: TUHS main list Errors-To: tuhs-bounces@minnie.tuhs.org Sender: "TUHS" --Apple-Mail=_4E798D4A-2C3F-4E3E-AEE2-FF8FE48DAE0E Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=us-ascii In PL/I, language keywords are not reserved. Makes for interesting work = when writing the lex scanner. Joe McGuckin ViaNet Communications joe@via.net 650-207-0372 cell 650-213-1302 office 650-969-2124 fax > On Nov 24, 2021, at 12:15 PM, Rob Pike wrote: >=20 > I thought it was >=20 > TRY:PROC OPTIONS(MAIN); > DCL (IF,THEN,ELSE) FIXED BINARY (31); >=20 > IF =3D 1; > THEN =3D 2; > ELSE =3D 3; >=20 > IF IF =3D THEN THEN THEN =3D IF ; ELSE ELSE IF =3D THEN =3D ELSE; >=20 > END TRY; >=20 > But yeah. >=20 > Best to Barry. >=20 > -rob >=20 > On Thu, Nov 25, 2021 at 2:23 AM Richard Salz = wrote: >>=20 >> I asked my pal Barry Shein, who many of you know, if he had his PL/1 = syntax horror lying around, and he did. He said: "this was tested on = the Iron Spring Software PL/1 compiler running on openSuSe Linux = (http://www.iron-spring.com/)" >>=20 >> IBM still uses PL/1. Remember, the main definition of "legacy" is = "revenue-producing." >>=20 >> TRY:PROC OPTIONS(MAIN); >> DCL (IF,THEN,ELSE) FIXED BINARY (31); >>=20 >> IF =3D 1; >> THEN =3D 2; >> ELSE =3D 3; >>=20 >> IF IF =3D THEN THEN THEN =3D IF ; ELSE ELSE =3D THEN; >>=20 >> END TRY; >>=20 --Apple-Mail=_4E798D4A-2C3F-4E3E-AEE2-FF8FE48DAE0E Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset=us-ascii In = PL/I, language keywords are not reserved. Makes for interesting work = when writing the lex scanner.


Joe = McGuckin
ViaNet Communications

650-207-0372 cell
650-213-1302 = office
650-969-2124 fax



On Nov 24, 2021, at 12:15 PM, Rob Pike <robpike@gmail.com> = wrote:

I thought it was

TRY:PROC = OPTIONS(MAIN);
  DCL (IF,THEN,ELSE) FIXED = BINARY (31);

  IF =3D 1;
  THEN =3D 2;
  ELSE =3D = 3;

  IF IF =3D THEN THEN THEN =3D = IF ; ELSE ELSE IF =3D THEN =3D ELSE;

END = TRY;

But yeah.

Best to Barry.

-rob

On Thu, Nov 25, 2021 at 2:23 AM Richard Salz = <rich.salz@gmail.com> wrote:

I asked my pal Barry Shein, who = many of you know, if he had his PL/1 syntax horror lying around, and he = did.  He said: "this was tested on the Iron Spring Software PL/1 = compiler running on openSuSe Linux (http://www.iron-spring.com/)"

IBM still uses PL/1.  Remember, the main definition of = "legacy" is "revenue-producing."

TRY:PROC = OPTIONS(MAIN);
  DCL (IF,THEN,ELSE) FIXED = BINARY (31);

  IF =3D 1;
  THEN =3D 2;
  ELSE =3D = 3;

  IF IF =3D THEN THEN THEN =3D = IF ; ELSE ELSE =3D THEN;

END TRY;


= --Apple-Mail=_4E798D4A-2C3F-4E3E-AEE2-FF8FE48DAE0E--