Re: Newbie question

[stefan-lucks@see-the.signature]

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!  ------