Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!csd4.milw.wisc.edu!cs.utexas.edu!uunet!kddlab!titcca!sragwa!wsgw!socslgw!diamond
From: diamond@csl.sony.co.jp (Norman Diamond)
Newsgroups: comp.lang.pascal
Subject: Re: file windows (was Re: Standard Pascal)
Message-ID: <10615@riks.csl.sony.co.jp>
Date: 27 Jul 89 02:04:35 GMT
References: <8616@pyr.gatech.EDU> <18965@paris.ics.uci.edu> <SCHWARTZ.89Jul12023301@shire.cs.psu.edu> <4623@freja.diku.dk> <SCHWARTZ.89Jul24202811@shire.cs.psu.edu>
Reply-To: diamond@riks. (Norman Diamond)
Organization: Sony Computer Science Laboratory Inc., Tokyo, Japan
Lines: 19

In article <SCHWARTZ.89Jul24202811@shire.cs.psu.edu> schwartz@shire.cs.psu.edu (Scott Schwartz) writes:

>Well, actually the above should have been written as
>	while (not eof (input)) and (input^ in [...]) do
>		get (input)

In ISO Extended Pascal,
	while (not eof (input)) and_then (input^ in [...]) do
		get (input)

I don't like the underscores in the new keywords and_then and or_else
but at least these operators are available.

--
-- 
Norman Diamond, Sony Computer Science Lab (diamond%csl.sony.jp@relay.cs.net)
  The above opinions are inherited by your machine's init process (pid 1),
  after being disowned and orphaned.  However, if you see this at Waterloo or
  Anterior, then their administrators must have approved of these opinions.