Re: New to Ada, noticing something strange.

mike.martelli@xxxxxxxxx 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
.

Relevant Pages

  • Re: FACTS SHOCKING BUT TRUE!
    ... genuine Messiah is 'YAO-HOO-SHUA.' ... 'YAOHÚSHUA' - Acts 4:12, Holy Scriptures. ... shall not perish but have eternal life! ... YAOHÚSHUA is the only Way, the Truth and the Life; ...
    (rec.arts.sf.written)
  • Reform "Rabbi" in London secretly follows Shabbetai Tzvi!!
    ... an article called "The Messiah Of Turkey" Revealing the life and ... "Turkish sabbateans are very active in public life. ... There is a sabbatean group called the donmeh, ... It was mentioned by Chamish.. ...
    (soc.culture.jewish)
  • Re: I just wrote a poem, anyone care to read? No offense intended, if found.
    ... being spiritual beings having a human experience and finally ... how The Messiah had delivered the answers to the ?'s in Life, ... Real Life, for all that was Real was revealed as forever. ... was trying to re-affirm the truth of "the message not the messenger". ...
    (alt.gathering.rainbow)
  • Re: OBAMA IS THE GREATEST!!!
    ... why hasn?t the messiah brought ... back to life? ... lol. ... much to repair our image that the Bushies ruined with our allies. ...
    (rec.gambling.poker)
  • Be Sure To Accept Messiah
    ... Whatever you do in this life, ... He fulfilled prophecy. ... He spoke as no other, ... Be sure you accept Messiah Yeshua, ...
    (soc.religion.christian)