Linked Strings declaration

gistfile1.txt

type header;
type string_node;

type Lstring is access header;
type str_link is access string_node;

type header is record
length : natural;
list : str_link;
end record;

string_size : constant := 6;
subtype stringlet is string(1 .. string_size);

type string_node is record
data : stringlet;
next: str_link;
end record;