From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,5b18a5a233d3f64b
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII-7-bit
From: Jacob Sparre Andersen <sparre@nbi.dk>
Newsgroups: comp.lang.ada
Subject: Re: Ann: UnZip-Ada v.20
Date: Mon, 19 Mar 2007 13:56:04 +0100
Organization: Jacob's private Usenet server
Message-ID: <yge8xdt5r4r.fsf@hugsarin.dmusyd.edu>
References: <45fa9823$1_4@news.bluewin.ch>
	<45fabc52$0$192$edfadb0f@dread11.news.tele.dk>
	<45fad3af$1_6@news.bluewin.ch> <yge4pokswfa.fsf@hugsarin.dmusyd.edu>
	<45fb9e15$1_4@news.bluewin.ch>
	<1174303820.108064.43930@e1g2000hsg.googlegroups.com>
NNTP-Posting-Host: cpe.atm2-0-7389.0x535981ea.naenxx9.customer.tele.dk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: jacob-sparre.dk 1174308967 11672 83.89.129.234 (19 Mar 2007 12:56:07
 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Mon, 19 Mar 2007 12:56:07 +0000 (UTC)
User-Agent: Gnus/5.110006 (No Gnus v0.6) Emacs/21.4 (gnu/linux)
Cancel-Lock: sha1:V6vSZiFCvhflgeu0uUbDR8UAwWI=
Path: 
 g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!novia!newsfeed.icl.net!proxad.net!fdn.fr!feed.ac-versailles.fr!news.ecp.fr!news.jacob-sparre.dk!pnx.dk!not-for-mail
Xref: g2news1.google.com comp.lang.ada:14555
Date: 2007-03-19T13:56:04+01:00
List-Id: <comp.lang.ada>

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;

Looks like something I might write:

   type Method_Codes (Stored,
                      Shrunk,
                      reduced_1,
                      reduced_2,
                      reduced_3,
                      reduced_4,
                      imploded,
                      deflated);
   type Method_Support is array (Method_Codes) of Boolean;
   pragma Pack (Method_Support);

   Supported_Methods : constant Method_Support := (others => True);

Any reason not to do it like this?

Greetings,

Jacob
-- 
People in cars cause accidents. Accidents in cars cause people.