DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦267824457⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Coded_Order_Array, seg_048bb4

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Text_Io, Order, View, View_List, Order_Array,
     Group_Identifier_Array, Instruction_List, Identifier, The_Order,
     Complement_Array, Complement, Coded_Order_Array, Order_List;
procedure Test_Coded_Order_Array is

    A_View : View.Object;
    L_V : View_List.Object;
    An_Order, F_Order : Order.Object;
    L_I : Instruction_List.Object;
    Ok : Boolean;

begin
    -- Group_Identifier_Array.Put (Identifier.From_String ("salle"), Ok);
    -- Group_Identifier_Array.Put (Identifier.From_String ("direction"), Ok);
    --
    -- Complement_Array.Put (Complement.Place_Object,
    --                       Identifier.From_String ("cuisine"), Ok);
    -- Complement_Array.Put_Group (Identifier.From_String ("cuisine"),
    --                             Identifier.From_String ("salle"), Ok);
    -- Complement_Array.Put_Word (Identifier.From_String ("de"), Ok);
    -- Complement_Array.Put_Word (Identifier.From_String ("nord"), Ok);
    -- Complement_Array.Put_Group (Identifier.From_String ("nord"),
    --                             Identifier.From_String ("direction"), Ok);
    -- Complement_Array.Put_Verb (Identifier.From_String ("courir"),
    --                            Identifier.From_String ("aller"), Ok);
    --
    --
    -- Group_Identifier_Array.Show;
    -- Complement_Array.Show;



    -- Order.Put_Place (An_Order, "cuisine");
    -- Order.Put_First_Complement (An_Order, "courir");
    -- Order.Put_Second_Complement (An_Order, "direction");
    -- Order.Put_Third_Complement (An_Order, "de");
    -- Order.Put_Fourth_Complement (An_Order, "salle");
    -- Order_List.Put (An_Order, Ok);
    --
    -- Order.Put_Place (An_Order, "cusisine");
    -- Order.Put_First_Complement (An_Order, "courir");
    -- Order.Put_Second_Complement (An_Order, "salle");
    -- Order.Put_Third_Complement (An_Order, "de");
    -- Order.Put_Fourth_Complement (An_Order, "direction");
    -- Order_List.Put (An_Order, Ok);
    --

    Order.Put_Place (An_Order, "chambre");
    Order.Put_Place (An_Order, "cuisine");
    Order.Put_First_Complement (An_Order, "aller");
    Order.Put_Second_Complement (An_Order, "nord");
    Order.Put_Third_Complement (An_Order, "");
    Order.Put_Fourth_Complement (An_Order, "");
    Order_List.Put (An_Order, Ok);

    -- Order.Put_Place (An_Order, "cuisine");
    -- Order.Put_First_Complement (An_Order, "courir");
    -- Order.Put_Second_Complement (An_Order, "direction");
    -- Order.Put_Third_Complement (An_Order, "de");
    -- Order.Put_Fourth_Complement (An_Order, "salle");
    -- Order_List.Put (An_Order, Ok);

    Order_List.Show;


    F_Order := Order_List.First_Order;

    for I in Order.Index'First .. Order.Index'Last loop
        Order_List.Make_Redirection (Order.Complement (F_Order, I), I, Ok);
    end loop;
    Text_Io.Put_Line ("make ok :" & Boolean'Image (Ok));

    Order_List.Show;

    -- View.Create_Sentence (A_View, Identifier.From_String ("phrase 1"));
    -- View_List.Put (L_V, A_View);
    -- Instruction_List.Insert_Display (L_I, L_V);
    -- Instruction_List.Insert_Next_Line (L_I);
    --
    -- Order_List.Init;
    -- while not Order_List.Done loop
    --     Coded_Order_Array.Put (Order_List.Value, L_I, Ok);
    --     Order_List.Next;
    -- end loop;
    --
    -- Coded_Order_Array.Show;
    --
    -- Order.Put_Place (An_Order, "cuisine");
    -- Order.Put_First_Complement (An_Order, "courir");
    -- Order.Put_Second_Complement (An_Order, "cuisine");
    -- Order.Put_Third_Complement (An_Order, "nord");
    -- Order.Put_Fourth_Complement (An_Order, "");
    -- The_Order.Put (An_Order);
    --
    -- Order_Array.Make (An_Order);
    --
    -- --Order_Array.Show;
    --
    -- The_Order.Show;
    --
    -- Order_Array.Init;
    -- Ok := False;
    -- while not Order_Array.Done and not Ok loop
    --     Coded_Order_Array.Run (Order_Array.Value, Ok);
    --     Order.Show (Order_Array.Value);
    --     Text_Io.Put_Line ("run ok : " & Boolean'Image (Ok));
    --     Order_Array.Next;
    -- end loop;
    --
    -- The_Order.Show;
    --
    -- Order.Put_Place (An_Order, "cuisine");
    -- Order.Put_First_Complement (An_Order, "courir");
    -- Order.Put_Second_Complement (An_Order, "cuisine");
    -- Order.Put_Third_Complement (An_Order, "nord");
    -- Order.Put_Fourth_Complement (An_Order, "");
    -- The_Order.Put (An_Order);
    -- The_Order.Show;
    --
    -- Order.Put_Place (An_Order, "cuisine");
    -- Order.Put_First_Complement (An_Order, "courir");
    -- Order.Put_Second_Complement (An_Order, "salle");
    -- Order.Put_Third_Complement (An_Order, "direction");
    -- Order.Put_Fourth_Complement (An_Order, "");
    --
    -- Coded_Order_Array.Run (An_Order, Ok);
    -- Text_Io.Put_Line ("run ok : " & Boolean'Image (Ok));
    --
    -- The_Order.Show;

end Test_Coded_Order_Array;

    nblk1=7
    nid=7
    hdr6=c
        [0x00] rec0=17 rec1=00 rec2=01 rec3=034
        [0x01] rec0=17 rec1=00 rec2=05 rec3=04a
        [0x02] rec0=1e rec1=00 rec2=02 rec3=040
        [0x03] rec0=01 rec1=00 rec2=04 rec3=00e
        [0x04] rec0=1d rec1=00 rec2=03 rec3=054
        [0x05] rec0=1c rec1=00 rec2=06 rec3=000
        [0x06] rec0=ec rec1=f8 rec2=00 rec3=031
    tail 0x2174d1806865a7e93441c 0x42a00088462060003
Free Block Chain:
  0x7: 0000  00 00 00 3e 80 14 5f 44 69 73 70 6c 61 79 20 28  ┆   >  _Display (┆