Re: how to create a record

["jimmaureenrogers@worldnet.att.net" <jimmaureenrogers@worldnet.att.net>]

markww wrote:
> Hi,
>
> How can I define a record or a class to this source file and create an
> instance of it?
>
> with Ada.Text_IO;
>
>     type struct_device is
>         record
>            major_number : Integer          := 0;
>            minor_number : Integer          := 0;
>         end record;
>
> procedure Ada_LinkedList is
> begin
>    Ada.Text_IO.Put_Line("Hello, world!");
>    Ada.Text_IO.Put_Line("just terrible!");
> end Ada_LinkedList;
>

The error message is correct. You are attempting to create a type
outside any compilation unit. You need to either move the record
definition within the procedure, or create a package containing the
record.

If you move the record definition within the procedure it will look
like this:

with Ada.Text_IO;

procedure Ada_Linked_List is
   type Struct_Device is record
      Major_Number : Integer := 0;
      Minor_Number : Integer := 0;
   end record;
begin
   Ada.Text_IO.Put_Line("Hello World!");
   Ada.Text_IO.Put_Line("just terrible!");
end Ada_Linked_List;

Jim Rogers