Re: Ann: UnZip-Ada v.20

[Georg Bauhaus <bauhaus@futureapps.de>]

On Mon, 2007-03-19 at 14:19 +0100, Martin Krischik wrote:
> Jacob Sparre Andersen schrieb:
> > Harald Korneliussen found the code:
> > 
> >>   -- Codes for methods
> >>
> >>   stored:    constant:= 0;
> >>   shrunk:    constant:= 1;
> >>   reduced_1: constant:= 2;
> >>   reduced_2: constant:= 3;
> >>   reduced_3: constant:= 4;
> >>   reduced_4: constant:= 5;
> >>   imploded:  constant:= 6;
> >>   deflated:  constant:= 8;
> >>
> >>   SupportedMethods: constant:=
> >>     2 ** stored    + 2 ** shrunk    +
> >>     2 ** reduced_1 + 2 ** reduced_2 +
> >>     2 ** reduced_3 + 2 ** reduced_4 +
> >>     2 ** imploded  +
> >>     2 ** deflated;

> for Method_Codes use (
>      Stored:    => 0,
>      Shrunk:    => 1,
>      Reduced_1: => 2,
>      Reduced_2: => 3,
>      Reduced_3: => 4,
>      Reduced_4: => 5,
>      Imploded:  => 6,
>      Deflated:  => 8);

I'd use the original codes, if only for keeping the bit
positions. I.e. 2#0#, 2#10#, 2#100#, ...
Which might happen automatically when there is no rep spec
other than packing  :-)