|
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: 10240 (0x2800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Detail, seg_04634b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io, Detail, Order, The_Order, Identifier, Field_Identifier_Array,
Group_Array, Moving_String, Complement_Identifier_Array;
use Text_Io, Detail;
procedure Test_Detail is
O : Object;
Id : Identifier.Object;
Ia : Order.Index_Array;
Ok : Boolean;
begin
Complement_Identifier_Array.Put (Identifier.From_String ("courir"));
Complement_Identifier_Array.Put (Identifier.From_String ("chambre"));
Complement_Identifier_Array.Put (Identifier.From_String ("salon"));
Complement_Identifier_Array.Put (Identifier.From_String ("aller"));
Complement_Identifier_Array.Put (Identifier.From_String ("de"));
Complement_Identifier_Array.Put (Identifier.From_String ("cuisine"));
Complement_Identifier_Array.Put (Identifier.From_String ("nord"));
Complement_Identifier_Array.Put (Identifier.From_String ("est"));
Complement_Identifier_Array.Put (Identifier.From_String ("sud"));
Complement_Identifier_Array.Put (Identifier.From_String ("vie"));
Complement_Identifier_Array.Put (Identifier.From_String ("gaston"));
Field_Identifier_Array.Put (Identifier.From_String ("etat2"));
Field_Identifier_Array.Put (Identifier.From_String ("etat1"));
Field_Identifier_Array.Put (Identifier.From_String ("description"));
Field_Identifier_Array.Put (Identifier.From_String ("vie"));
Field_Identifier_Array.Put (Identifier.From_String ("nord"));
Field_Identifier_Array.Put (Identifier.From_String ("sud"));
Field_Identifier_Array.Put (Identifier.From_String ("est"));
Field_Identifier_Array.Show;
Identifier.Put (Id, "direction");
Group_Array.Put (Id, Complement_Identifier_Array.Index ("nord"), Ok);
Group_Array.Put (Id, Complement_Identifier_Array.Index ("sud"), Ok);
Group_Array.Put (Id, Complement_Identifier_Array.Index ("est"), Ok);
Group_Array.Show;
Complement_Identifier_Array.Show;
The_Order.Put_Complement (Moving_String.From_String ("cuisine"),
Moving_String.From_String ("aller"),
Moving_String.From_String ("nord"),
Moving_String.From_String ("cuisine"),
Moving_String.From_String (""));
Ia := (1, 2, 3, 3, 4);
The_Order.Put_Redirection (Ia);
The_Order.Show;
Put_Line ("show vide");
Show (O);
Put_Line ("test sur detail vide");
Put_Line ("is a real field : " & Boolean'Image (Is_A_Real_Field (O)));
Put_Line ("is a real complement : " &
Boolean'Image (Is_A_Real_Complement (O)));
Put_Line ("is a field group : " & Boolean'Image (Is_A_Field_Group (O)));
Put_Line ("is a complement group : " &
Boolean'Image (Is_A_Complement_Group (O)));
Put_Line ("index " & Natural'Image (Detail.Index (O)) & Image (O));
Put_Line ("exist : " & Boolean'Image (Detail.Exist (O)));
Put_Line ("create real field");
Create_Real_Field (O, Field_Identifier_Array.Index ("vie"));
Show (O);
Put_Line ("is a real field : " & Boolean'Image (Is_A_Real_Field (O)));
Put_Line ("is a real complement : " &
Boolean'Image (Is_A_Real_Complement (O)));
Put_Line ("is a field group : " & Boolean'Image (Is_A_Field_Group (O)));
Put_Line ("is a complement group : " &
Boolean'Image (Is_A_Complement_Group (O)));
Put_Line ("index " & Natural'Image (Detail.Index (O)) & Image (O));
Put_Line ("exist : " & Boolean'Image (Detail.Exist (O)));
Put_Line ("create real complement");
Create_Real_Complement (O, Complement_Identifier_Array.Index ("gaston"));
Show (O);
Put_Line ("is a real field : " & Boolean'Image (Is_A_Real_Field (O)));
Put_Line ("is a real complement : " &
Boolean'Image (Is_A_Real_Complement (O)));
Put_Line ("is a field group : " & Boolean'Image (Is_A_Field_Group (O)));
Put_Line ("is a complement group : " &
Boolean'Image (Is_A_Complement_Group (O)));
Put_Line ("index " & Natural'Image (Detail.Index (O)) & Image (O));
Put_Line ("exist : " & Boolean'Image (Detail.Exist (O)));
Put_Line ("create group cuisine");
Create_Complement_Group (O, 5);
Show (O);
Put_Line ("is a real field : " & Boolean'Image (Is_A_Real_Field (O)));
Put_Line ("is a real complement : " &
Boolean'Image (Is_A_Real_Complement (O)));
Put_Line ("is a field group : " & Boolean'Image (Is_A_Field_Group (O)));
Put_Line ("is a complement group : " &
Boolean'Image (Is_A_Complement_Group (O)));
Put_Line ("index " & Natural'Image (Detail.Index (O)) & Image (O));
Put_Line ("exist : " & Boolean'Image (Detail.Exist (O)));
Put_Line ("create group nord");
Create_Field_Group (O, 4);
Show (O);
Put_Line ("is a real field : " & Boolean'Image (Is_A_Real_Field (O)));
Put_Line ("is a real complement : " &
Boolean'Image (Is_A_Real_Complement (O)));
Put_Line ("is a field group : " & Boolean'Image (Is_A_Field_Group (O)));
Put_Line ("is a complement group : " &
Boolean'Image (Is_A_Complement_Group (O)));
Put_Line ("index " & Natural'Image (Detail.Index (O)) & Image (O));
Put_Line ("exist : " & Boolean'Image (Detail.Exist (O)));
end Test_Detail;
nblk1=9
nid=5
hdr6=c
[0x00] rec0=16 rec1=00 rec2=01 rec3=05e
[0x01] rec0=13 rec1=00 rec2=09 rec3=076
[0x02] rec0=16 rec1=00 rec2=04 rec3=014
[0x03] rec0=08 rec1=00 rec2=08 rec3=050
[0x04] rec0=14 rec1=00 rec2=07 rec3=070
[0x05] rec0=14 rec1=00 rec2=02 rec3=000
[0x06] rec0=15 rec1=00 rec2=08 rec3=05e
[0x07] rec0=16 rec1=00 rec2=02 rec3=01c
[0x08] rec0=04 rec1=00 rec2=03 rec3=001
tail 0x21748b882865046f45a23 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 06 01 94 80 44 74 5f 4c 69 6e 65 20 28 22 69 ┆ Dt_Line ("i┆
0x6: 0000 00 03 00 0a 80 07 74 20 28 4f 29 29 29 07 6f 6d ┆ t (O))) om┆
0x3: 0000 00 00 00 0d 80 0a 22 69 73 20 61 20 67 72 6f 75 ┆ "is a grou┆