From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fac41,2c6139ce13be9980 X-Google-Attributes: gidfac41,public X-Google-Thread: f43e6,2c6139ce13be9980 X-Google-Attributes: gidf43e6,public X-Google-Thread: 103376,3d3f20d31be1c33a X-Google-Attributes: gid103376,public X-Google-Thread: 1108a1,2c6139ce13be9980 X-Google-Attributes: gid1108a1,public From: donh@syd.csa.com.au (Don Harrison) Subject: Re: Safety-critical development in Ada and Eiffel Date: 1997/07/23 Message-ID: #1/1 X-Deja-AN: 258281737 Sender: news@syd.csa.com.au X-Nntp-Posting-Host: dev50 References: <33CE5507.71A0@XYZZYcalfp.com> Organization: CSC Australia, Sydney Reply-To: donh@syd.csa.com.au Newsgroups: comp.object,comp.software-eng,comp.lang.ada,comp.lang.eiffel Date: 1997-07-23T00:00:00+00:00 List-Id: Richie Bielak wrote: :Samuel Tardieu wrote: : :[...] :> :> Well, I find the corresponding Ada code readable enough: :> :> select :> delay 0.010; -- The 10ms you were talking about :> raise Timeout_Failure; -- Raise an exception, or do anything else :> -- you need (use a fast version of :> -- your computation for example). :> then abort :> [...your code here...] -- This piece of code will be :> -- aborted if it is not terminated within :> -- the 10ms you required above. :> end select; :> : :That's neat. Except that a postcondition will be part of the contract :(i.e. specification) for the routine, so the caller will know what to :expect. Your code is part of the implementation. I agree - it's belongs in a contract. Don. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Don Harrison donh@syd.csa.com.au