Re: C code to Ada

[sk <sk@noname.com>]

Hi,

 > Personally I think "dummies" should be doing bindings

I am trying to give up being clever, I always end up with
messes like my original post and, as noted by another
poster, the quick part takes longer than doing it the
dummy way :-)

However, at 2am in the morning, waiting for gcc to
compile, I cannot resist ...

For the entity with the usenetonym of "chris.danx" :

     Whoops    : exception;

     function "+"(A, B : Character) return Character is
         type Byte is mod 2**8;
     begin
         return Character'Val (
             Byte(Character'Pos(A)) +
             Byte(Character'Pos(B)) -
             Byte(Character'Pos(' '))
         );
     end "+";

     function "+"(S1, S2 : String) return String is
        Result  : String (1 .. S1'Length) := (Others => ' ');
     begin
         if S1'Length /= S2'Length then
             raise Whoops;
         end if;

         for C in Result'Range loop
             Result (C) := S1(C) + S2(C);
         end loop;

         return Result;
     end "+";

... and of course when I stumble across this code two
months from now, I will be totally lost wondering why
on earth I wanted to add two characters together and
subtract a space ? I dare not speculate at the results
other than for decoding my e-mail address :-)

(chris.danx : I e-mailed you, don't know if I got *your*
address correct).

-- 
--
-- Merge vertically for real address
--
------------------------------------
-- s n p @ t . o
--  k i e k c c m
------------------------------------