public
anonymous / gist:4070104
Created

Linked Strings declaration

  • Download Gist
gistfile1.txt
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
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;

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.