|
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_0499ba, seg_049a41, seg_049a6f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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, A_Verb : in Identifier.Object; 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 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);
function Exit_Exist (Place_Index : in Natural; Direction : in Positive)
return Boolean;
function Exits_Exist (Place_Index : in Natural) return Boolean;
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 Identifier.Object;
A_Group : in Identifier.Object;
Ok : out Boolean);
function Group (Complement_Name : in String) return String;
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_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_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 String) 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_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;
end Complement_Array;
nblk1=b
nid=2
hdr6=c
[0x00] rec0=15 rec1=00 rec2=01 rec3=064
[0x01] rec0=13 rec1=00 rec2=06 rec3=060
[0x02] rec0=15 rec1=00 rec2=05 rec3=032
[0x03] rec0=17 rec1=00 rec2=09 rec3=000
[0x04] rec0=14 rec1=00 rec2=03 rec3=006
[0x05] rec0=07 rec1=00 rec2=07 rec3=000
[0x06] rec0=12 rec1=00 rec2=03 rec3=062
[0x07] rec0=13 rec1=00 rec2=07 rec3=084
[0x08] rec0=03 rec1=00 rec2=02 rec3=000
[0x09] rec0=06 rec1=00 rec2=08 rec3=000
[0x0a] rec0=06 rec1=00 rec2=08 rec3=000
tail 0x2174dfc74865f812ec115 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 08 00 1e 00 00 00 00 15 65 6e 64 20 43 6f 6d ┆ end Com┆
0x8: 0000 00 0b 00 40 80 1d 75 6e 63 74 69 6f 6e 20 46 69 ┆ @ unction Fi┆
0xb: 0000 00 0a 00 12 80 0c 20 69 6e 20 53 74 72 69 6e 67 ┆ in String┆
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┆