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.5 required=5.0 tests=AC_FROM_MANY_DOTS,BAYES_20,
	XPRIO autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,715875e575230543,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-10-21 13:05:03 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newshub.sdsu.edu!logbridge.uoregon.edu!swen.emba.uvm.edu!att541!att542!ip.att.net!newsfeed3.global.lmco.com!svlnews.lmms.lmco.com!not-for-mail
From: "Xenos" <dont.spam.me@spamhate.com>
Newsgroups: comp.lang.ada
Subject: Thought this was funny
Date: Tue, 21 Oct 2003 15:49:13 -0400
Organization: Lockheed Martin Corporation
Message-ID: <bn42kf$ca3@cui1.lmms.lmco.com>
NNTP-Posting-Host: 158.187.68.119
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4807.1700
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
Xref: archiver1.google.com comp.lang.ada:1315
Date: 2003-10-21T15:49:13-04:00
List-Id: <comp.lang.ada>

Reviewing some old code we are converting from Ada 83 to 95, I came across
this:

case <boolean expression> is
  when true =>
       <do something>

  when false =>
       <do something else>

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).


DrX