|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 12288 (0x3000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Complement_Array, seg_047b26
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Identifier, Complement;
package Complement_Array is
procedure Put (Old_Subject : in Complement.Object;
Name : in Identifier.Object;
Ok : out Boolean);
procedure Put_Word (Word : in Identifier.Object; Ok : out Boolean);
procedure Put_Verb
(A_Synonym, Verb : in Identifier.Object; Ok : out Boolean);
--procedure create_number_field(subject_index : in natural;field_name: in string; ok : out boolean);
--procedure create_sentence_field(subject_index : in natural;field_name: in string; ok : out boolean);
--procedure create_enumerate_field(subject_index : in natural;field_name: in string; ok : out boolean);
--procedure field_Put_number (subject_index : in natural;field_name: in string;number : in integer; ok : out boolean);
--procedure field_Put_sentence (subject_index : in natural;field_name: in string;sentence : in string; ok : out boolean);
--procedure field_Put_enumerate (subject_index : in natural;field_name: in string;enumeration,literal : in positive; ok : out boolean);
procedure Create_Number_Field (Subject_Index : in Natural;
Field_Index : in Positive;
Ok : out Boolean);
procedure Create_Sentence_Field (Subject_Index : in Natural;
Field_Index : in Positive;
Ok : out Boolean);
procedure Create_Enumerate_Field (Subject_Index : in Natural;
Field_Index : in Positive;
Ok : out Boolean);
procedure Field_Put_Number (Subject_Index : in Natural;
Field_Index : in Positive;
Number : in Integer;
Ok : out Boolean);
procedure Field_Put_Sentence (Subject_Index : in Natural;
Field_Index : in Positive;
Sentence : in Identifier.Object;
Ok : out Boolean);
procedure Field_Put_Enumerate (Subject_Index : in Natural;
Field_Index : in Positive;
Enumeration, Literal : in Positive;
Ok : out Boolean);
procedure Put_Movement
(Animate_Name : in Identifier.Object; Place : in Positive);
-- procedure Movement_Init (Animate_Index : in Natural);
procedure Move (Animate_Index : in Natural);
procedure Put_Exit (Place_Index : in Natural;
Name, Start_Place, Start_Direction,
Next_Place, Next_Direction : in Positive;
Ok : out Boolean);
--procedure put_exit(place_index : in natural;name,start_place,start_direction,
--next_place,next_direction: in positive;ok : out boolean);
--procedure exit_put_enumerate(place_index : in natural;direction:in string;enumeration,literal : in positive; ok : out boolean);
function Exit_Exist (Place_Index : in Natural; Direction : in Positive)
return Boolean;
function Exits_Exist (Place_Index : in Natural) return Boolean;
--function exit_enumeration(place_index: in natural;direction : in positive) return natural;
--function exit_literal(place_index: in natural;direction : in positive) return natural;
function Exit_Name (Place_Index : in Natural; Direction : in Positive)
return String;
function Next_Place (Place_Index : in Natural; Direction : in Positive)
return Natural;
procedure Put_Place (Subject_Index : in Natural;
Place : in Natural;
Ok : out Boolean);
procedure Show;
procedure Show (Subject_Name : in String);
procedure List_Exits_Init (Place_Index : in Natural);
procedure List_Exits_Next (Place_Index : in Natural);
function List_Exits_Direction (Place_Index : in Natural) return String;
function List_Exits_Done (Place_Index : in Natural) return Boolean;
procedure Put_Group (Complement_Name : in String;
An_Index : in Positive;
Ok : out Boolean);
procedure List_Group_Init (Complement_Name : in String);
procedure List_Group_Next (Complement_Name : in String);
function List_Group_Name (Complement_Name : in String) return String;
function List_Group_Done (Complement_Name : in String) return Boolean;
procedure List_Complement_Init;
procedure List_Complement_Next;
function List_Complement_Place return Natural;
function List_Complement_Name return String;
function List_Complement_Done return Boolean;
--function field_is_a_number (subject_index : in natural;field_name : in string) return boolean;
--function field_is_a_sentence (subject_index : in natural;field_name : in string) return boolean;
--function field_is_an_enumerate (subject_index : in natural;field_name : in string) return boolean;
--function field_belong (subject_name,field_name : in string) return boolean;
--function field_exist (subject_index:in natural;field_name : in string) return boolean;
function Field_Is_A_Number
(Subject_Index : in Natural; Field_Index : in Positive)
return Boolean;
function Field_Is_A_Sentence
(Subject_Index : in Natural; Field_Index : in Positive)
return Boolean;
function Field_Is_An_Enumerate
(Subject_Index : in Natural; Field_Index : in Positive)
return Boolean;
-- function Field_Exist
-- (Subject_Name, Field_Index : in Positive) return Boolean;
function Field_Belong
(Subject_Index : in Natural; Field_Index : in Positive)
return Boolean;
function Is_A_Subject (Complement_Name : in String) return Boolean;
function Is_An_Animate (Complement_Name : in String) return Boolean;
function Is_A_Place (Complement_Name : in String) return Boolean;
function Is_An_Entity (Complement_Name : in String) return Boolean;
function Is_A_Word (Complement_Name : in String) return Boolean;
function Is_A_Verb (Complement_Name : in String) return Boolean;
function Belong (Complement_Name : in Identifier.Object) return Boolean;
function Name (Subject_Index : in Natural) return String;
function Index (Complement_Name : in String) return Natural;
function Place (Subject_Index : in Natural) return Natural;
--function field_number (subject_index : in natural;field_name:in string) return Integer;
--function field_sentence (subject_index : in natural;field_name:in string) return String;
--function field_Enumeration (subject_index : in natural;field_name:in string) return Natural;
--function field_Literal (subject_index : in natural;field_name:in string) return Natural;
function Field_Number
(Subject_Index : in Natural; Field_Index : in Positive)
return Integer;
function Field_Sentence
(Subject_Index : in Natural; Field_Index : in Positive)
return String;
function Field_Enumeration
(Subject_Index : in Natural; Field_Index : in Positive)
return Natural;
function Field_Literal
(Subject_Index : in Natural; Field_Index : in Positive)
return Natural;
-- function Synonym (Verb_Index : in Natural) return Natural;
end Complement_Array;
nblk1=b
nid=a
hdr6=12
[0x00] rec0=12 rec1=00 rec2=01 rec3=078
[0x01] rec0=0f rec1=00 rec2=06 rec3=05a
[0x02] rec0=13 rec1=00 rec2=05 rec3=01e
[0x03] rec0=11 rec1=00 rec2=0b rec3=000
[0x04] rec0=14 rec1=00 rec2=09 rec3=090
[0x05] rec0=07 rec1=00 rec2=08 rec3=004
[0x06] rec0=13 rec1=00 rec2=03 rec3=00e
[0x07] rec0=11 rec1=00 rec2=02 rec3=02e
[0x08] rec0=0a rec1=00 rec2=07 rec3=000
[0x09] rec0=06 rec1=00 rec2=08 rec3=000
[0x0a] rec0=06 rec1=00 rec2=08 rec3=000
tail 0x2174b5d90865497c0e770 0x42a00088462060003
Free Block Chain:
0xa: 0000 00 04 00 16 80 0b 75 72 6e 20 53 74 72 69 6e 67 ┆ urn String┆
0x4: 0000 00 00 00 06 80 03 20 69 6e 03 04 69 74 20 28 50 ┆ in it (P┆