Re: Newbie question

[Jacob Sparre Andersen <sparre@nbi.dk>]

stefan-lucks@see-the.signature wrote:

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

Solution 2b: With defaults and a common name for pieces:

   type Square_Colour is (Black, White, None);

   type Square (Colour : Square_Colour := None) is
      record
         when Black | White =>
            Piece : Piece_Type_T; -- "Piece_Type_T" is (IMO) an ugly identifier
         when None =>
            null;
      end record;

Greetings,

Jacob
-- 
"This page inadvertently left blank."