From: "Philippe LEMAIRE" <Philippe.Lemaire@centexbel.be>
Newsgroups: comp.sys.transputer
Subject: Re: ST450
Date: Thu, 11 Feb 1999 11:01:28 +0100
Organization: Belgacom Skynet SA/NV
Message-Id: <79u9u2$ffr$1@news1.skynet.be>
References: <36c03424.0@glitch.nildram.co.uk>
Xref: ukc comp.sys.transputer:9039


In the occam world here is INPUTOrFail...
OutputOrFail can easily be deduced :

--{{{  get line
CHAN OF BYTE com :
TIMER clock :
INT time :
BOOL fail :
SEQ
  clock ? time
  --{{{  Input Or Fail
  PAR
    BYTE done :
    SEQ
      in ? line1                    --SHOULD BECOME   in !
      com ! done
    BYTE done :
    ALT
      com ? done
        fail := FALSE
      clock ? AFTER time PLUS time.out
        SEQ
          CHAN OF ANY.type in.any RETYPES in :
          resume.process.waiting.on (in.any)
          com ? done
          fail := TRUE
  --}}}


GP wrote in message <36c03424.0@glitch.nildram.co.uk>...
>Does anyone know how the ChanOutTimeFail function works? Source code?!
>
>graemep@sundance.com
>
>