Re: Help on record to a Newbie

[Shark8 <onewingedshark@gmail.com>]

Partitioning the code given into a package, called terminal, compiled quite easily. I cleaned up the names, a bit, too.

   -- Declare a package for defining types and operations on a terminal.
   Package Terminal is

      type terminal_type is (black_n_white, black_n_yellow,
                             black_n_green, color);
      type terminal_color is (red, green, blue, yellow, black, white, grey);
      type terminal_configuration is
         record
            terminal   : terminal_type;
            foreground,
            background : terminal_color;
         end record;

      -- Declare a variable for the configuration; use of this package implies
      -- usage of a terminal.
      t_config : terminal_configuration;
   End Terminal;

   Package Body Terminal is
      
   -- Here we set the defaults for the configuration. Alternatively, in the
   -- package specification we could have used named association to set the
   -- default: 
   -- t_config : terminal_configuration := 
   --    (Terminal => black_n_white, background => black, foreground => white);
   Begin
      t_config.terminal   := black_n_white;
      t_config.background := black;
      t_config.foreground := white; 
   End Terminal;