Re: Char type verification

["KE" <koray.erkan@yahoo.com>]

Thanks Adam.

First of all, I'm grateful that you've gone to all that length to
explain to me that this is not the most efficient way to do this, etc.
etc. I am familiar with how the actual "isupper" standard function is
implemented, but I didn't want to clutter up the example with a huge
256-item array with 1s and 0s in it, making it even more obscure.
(Actually, the standard C library uses bit masking to signal different
character types, but I guess had I asked for that, I'd get the first
fascicule of the Ada standard from my valuable coder friends here :-D)

In other words, I wanted to keep things simple.

Still, I should be grateful since you're my first colleague in this
thread to show me:

> ... To convert to and from integers, use the 'Pos
> and 'Val attributes.  If C is a Character and N is an Integer,
>    N := Character'Pos(C);
>    C := Character'Val(N);
> will do the conversions you want.

and also to code the Ada counterpart of the function like so:

>
>    function IsUpper (C : Character) return Boolean is
>       UCASE : constant String := "ABCDEFGHIJKLMNOPQRSTUVWXYZ";
>    begin
>       return C = UCASE (UCASE'First + (Character'Pos(C) mod
> Character'Pos('A')) mod 26);
>    end IsUpper;
>
> Note that arrays do not automatically begin at offset 0 (and String
> types cannot begin at offset 0), which is why UCASE'First is added to
> the index.

I am aware of these.

>
> Note also that this function returns a Boolean, not an
> Integer---Boolean is another enumeration type with values (FALSE,
> TRUE).

I am also aware of these, but I wanted to ignore those details as well.

>
> This isn't a complete translation of your program---I haven't gone into
> how to get at the command-line arguments---but hopefully it will get
> you started.
>

That wasn't the important part.

I guess since yours is the only example, I'll have to settle for it.

Many thanks. Appreciated.


-- KE