Re: First time Ada has let me down

[tmoran@bix.com]

>the length is just len = (*p)&0xf;
>the TCP header length occupies the 4 MSB. the length in this case
>is then  ((*p)&0xf0)>>4;
>Things just have to be easy in C, don't they. No wonder 99.99% of the
  If you really insist on avoiding the tools the language supplies,
a rep clause in this case, and
  "len := buffer(i) mod 16; header_len := buffer(i)/16;"
is insufficiently easy, then how about
   len := len_part(buffer(i)); header_len := Header_len_part(buffer(i));
where
  len_part : constant array(byte) of integer
    := (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
        0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
        ...
        0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,
        0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
and similarly for header_len_part.  This is quick to write, quick to
execute, puts the definitions in a single place where they can be
changed without finding all the "and 16#0F"s in the program, and
they could even become functions if that became necessary.