Path: csiph.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: Rainer Weikusat <rweikusat@talktalk.net>
Newsgroups: de.comp.os.unix.shell,de.comp.lang.c
Subject: Re: Source code =?utf-8?Q?f=C3=BCr?= Original sh
Date: Sun, 07 May 2017 22:49:25 +0100
Lines: 23
Message-ID: <877f1spcbe.fsf@doppelsaurus.mobileactivedefense.com>
References: <oeo14a$hkn$1@newsreader4.netcologne.de>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
X-Trace: individual.net C07Wd/mL+h1yTGtfUvASaw0H9cAPZQaVbaiiqyEMlQFly7njM=
Cancel-Lock: sha1:wTKU6ghZvoFHFNpUs4+8LADWRKQ= sha1:3A1ijc8zFojlfwrbj4D+a+UfDQ4=
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux)
Xref: csiph.com de.comp.os.unix.shell:9483 de.comp.lang.c:5676

Thomas Koenig <tkoenig@netcologne.de> writes:
> Ich habe mir mal ein bisschen den Quellcode für die V7 Bourne Shell
> angeschaut.  "Interessanter" Stil, würde ich sagen.
>
> Ausschnitt aus expand.c:
>
> /* check for meta chars */
> 	BEGIN
> 	   REG BOOL slash; slash=0;
> 	   WHILE !fngchar(*cs)
> 	   DO	IF *cs++==0
> 		THEN	IF rflg ANDF slash THEN break; ELSE return(0) FI
> 		ELIF *cs=='/'
> 		THEN	slash++;
> 		FI
> 	   OD
> 	END
>
> Wäre mir nicht unbedingt aufgefallen, dass das C ist.  Aber
> dafür gibt es ja den Präprozessor :-)

Vermutlich das einzige tatsaechlich benutzte Programm, das jemals in
Agol 68 gescrhieben wurde :->.