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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,CP1252 X-Google-Thread: 103376,715875e575230543 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2003-10-21 23:26:23 PST Path: archiver1.google.com!news2.google.com!news.maxwell.syr.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!news-stoc.telia.net!news-stoa.telia.net!telia.net!nntp.inet.fi!central.inet.fi!inet.fi!read3.inet.fi.POSTED!53ab2750!not-for-mail From: "Anders Wirzenius" Newsgroups: comp.lang.ada References: Subject: Re: Thought this was funny MIME-Version: 1.0 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: 8bit X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2800.1158 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165 Message-ID: Date: Wed, 22 Oct 2003 06:26:22 GMT NNTP-Posting-Host: 194.251.142.2 X-Complaints-To: abuse@inet.fi X-Trace: read3.inet.fi 1066803982 194.251.142.2 (Wed, 22 Oct 2003 09:26:22 EEST) NNTP-Posting-Date: Wed, 22 Oct 2003 09:26:22 EEST Organization: Sonera corp Internet services Xref: archiver1.google.com comp.lang.ada:1369 Date: 2003-10-22T06:26:22+00:00 List-Id: "Xenos" wrote in message news:bn42kf$ca3@cui1.lmms.lmco.com... > Reviewing some old code we are converting from Ada 83 to 95, I came across > this: > > case is > when true => > > > when false => > > > end case; > > > Kind of made me chuckle a little. The guy how wrote it is Canadian, so I > took to calling it the "Canadian If Statement" (not in a cruel way). > It could be a maintainer�s first (quick�ndirty) version of a design change in an old code. The further enhancement of the code was prohibited by his manager: "ifitaintbrokedonttouchit". Anders