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=-0.3 required=5.0 tests=BAYES_00, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Thread: 103376,e4042699db4db63b X-Google-Attributes: gid103376,domainid0,public,usenet X-Google-Language: ENGLISH,ASCII-7-bit Path: g2news2.google.com!news2.google.com!news.glorb.com!news2.glorb.com!feeder.erje.net!news.swapon.de!fu-berlin.de!news1.uni-leipzig.de!news.uni-jena.de!news.uni-weimar.de!not-for-mail From: stefan-lucks@see-the.signature Newsgroups: comp.lang.ada Subject: Re: Newbie question Date: Thu, 12 Mar 2009 15:32:03 +0100 Organization: Bauhaus-Universitaet Weimar Message-ID: References: <49b90e2d$0$2847$ba620e4c@news.skynet.be> <0ff2f139-06cf-4fa5-8c0d-f97c43a33186@s20g2000yqh.googlegroups.com> <49b9193a$0$2854$ba620e4c@news.skynet.be> Reply-To: stefan-lucks@see-the.signature NNTP-Posting-Host: medsec1.medien.uni-weimar.de Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII X-Trace: tigger.scc.uni-weimar.de 1236868011 6773 141.54.178.228 (12 Mar 2009 14:26:51 GMT) X-Complaints-To: news@tigger.scc.uni-weimar.de NNTP-Posting-Date: Thu, 12 Mar 2009 14:26:51 +0000 (UTC) X-X-Sender: lucks@medsec1.medien.uni-weimar.de In-Reply-To: <49b9193a$0$2854$ba620e4c@news.skynet.be> Xref: g2news2.google.com comp.lang.ada:5045 Date: 2009-03-12T15:32:03+01:00 List-Id: On Thu, 12 Mar 2009, Olivier Scalbert wrote: > Ludovic Brenta wrote: > > > Solution 2: merge the Boolean directly into Piece_T: > > > > type Piece_T (Present : Boolean) is record > > case Present is > > when True => > > Color : Color_T; > > Piece_Type : Piece_Type_T; > > when False => > > null; > > end case; > > end record; Solution 2a: Use an enumeration: type Color_T is (Black, White, None); type Piece_T(Color: Color_T) is record case Color is when White => White_Piece: Piece_Type_T; when Black => Black_Piece: Piece_Type_T; when None => null; end case; end record; So long Stefan -- ------ Stefan Lucks -- Bauhaus-University Weimar -- Germany ------ Stefan dot Lucks at uni minus weimar dot de ------ I love the taste of Cryptanalysis in the morning! ------