Re: Ada function

[hdhil@aol.com (HDhil)]

Rees,

There is a case statement in Ada. It
takes the form

CASE <case expression> IS
        WHEN <choice1> => <statements>
        WHEN <choice2> => <statements>
               .
               .
        WHEN <choiceN> => <statements>
END CASE;

Note that <case expression> must be a discrete type, yielding an integer,
Boolean, character or user-defined enum type.

Also, every possible case value of the <case expression> must be covered in one
and only one WHEN clause. You can use
WHEN OTHERS as a final choice at the end of the CASE statement to cover
remaining values.

Hope this helps.

-Harry