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-Thread: 103376,49ddd117f54c2d X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news1.google.com!news3.google.com!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!newsread2.news.pas.earthlink.net.POSTED!a6202946!not-for-mail From: "Jeffrey R. Carter" Organization: jrcarter at acm dot org User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.12) Gecko/20050915 X-Accept-Language: en-us, en MIME-Version: 1.0 Newsgroups: comp.lang.ada Subject: Re: New to Ada, noticing something strange. References: <1128014442.343461.185800@g49g2000cwa.googlegroups.com> <_xW_e.4596$zQ3.2632@newsread1.news.pas.earthlink.net> <1128020747.226853.325750@z14g2000cwz.googlegroups.com> <1128038313.717692.268490@z14g2000cwz.googlegroups.com> In-Reply-To: <1128038313.717692.268490@z14g2000cwz.googlegroups.com> Content-Type: text/plain; charset=us-ascii; format=flowed Content-Transfer-Encoding: 7bit Message-ID: <2W4%e.5303$oc.103@newsread2.news.pas.earthlink.net> Date: Fri, 30 Sep 2005 06:28:14 GMT NNTP-Posting-Host: 67.3.213.152 X-Complaints-To: abuse@earthlink.net X-Trace: newsread2.news.pas.earthlink.net 1128061694 67.3.213.152 (Thu, 29 Sep 2005 23:28:14 PDT) NNTP-Posting-Date: Thu, 29 Sep 2005 23:28:14 PDT Xref: g2news1.google.com comp.lang.ada:5299 Date: 2005-09-30T06:28:14+00:00 List-Id: mike.martelli@gmail.com wrote: > if not (Integer'Value(To_String(base)) > 1) or not > (Integer'Value(To_String(base)) < 16) then You might find "in" and "not in" (subtype membership operations) useful. The general form is Value [not] in Subtype "in" returns True if Value is a member of Subtype; "not in" if Value is not a member. This is defined for all types: task type T (D : Integer); subtype T1 is T (D => 1); X : T (D => 7); if X in T1 then -- True if X.D = 1 For a discrete type, the subtype may be given by a range: if Integer'Value (To_String (Base) ) not in 1 .. 16 then -- Jeff Carter "There's no messiah here. There's a mess all right, but no messiah." Monty Python's Life of Brian 84