Re: Character/Integer Conversion

[David C. Hoos, Sr. <david.c.hoos.sr@ada95.com>]

In article <8c3a6e$q5p$1@nnrp1.deja.com>,
ebresie@usa.net wrote:
> I am sure this is a simple thing, but I am doing the following...
>
> I need to create a string of character which will be sent to a scsi
> interface.
>
> I need to convert from a character into a integer so that I can make a
> checksum.
>
> I am giving a basic code version...not verbatum
>
> msg : string(1..length);
>
> msg(1) := '~'; -- how do I get the asci value for this character?
> msg(2) := 33;
> msg(3) : msg(1)'value + msg(2)'value;
>
> this should more or less add the ascii value of the first character
with
> the value of the second.
>
I do this all the time, in the following way:
Msg : String (1 .. Length);
type Msg_Bytes is array (Msg'Range)of Interfaces.C.Unsigned_Char;
use type Interfaces.C.Unsigned_Char;
Msg_Overlay : Msg_Bytes;
for Msg_Overlay'Address use Msg'Address;
Now, you have Msg_Overlay, an array of numeric objects that can be
maniplulated both mathematically and logically (since Unsigned_Char
is a modular type), and any results written to any components
of that array will show up as the appropriate Character values in Msg.


Sent via Deja.com http://www.deja.com/
Before you buy.