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

⟦70eb1fc0a⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_List_Order, seg_047d5d

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_List, Order, Identifier, Moving_String,
     Group_Identifier_Array, Complement_Identifier_Array;
use Text_Io, Order_List;
procedure Test_List_Order is

    O : Order.Object;
    Id : Identifier.Object;
    Ok : Boolean;

begin
    Group_Identifier_Array.Put (Identifier.From_String ("salle"), Ok);
    Put_Line ("G Put " & Boolean'Image (Ok));
    Group_Identifier_Array.Put (Identifier.From_String ("direction"), Ok);
    Put_Line ("G Put " & Boolean'Image (Ok));
    Group_Identifier_Array.Put (Identifier.From_String ("direction"), Ok);
    Put_Line ("G Put " & Boolean'Image (Ok));

    Group_Identifier_Array.Show;

    Put_Line ("show vide");
    Show;

    Order.Put_Place (O, Moving_String.From_String ("cuisine"));

    Order.Put_First_Complement (O, Moving_String.From_String ("aller"));

    Order.Put_Second_Complement (O, Moving_String.From_String ("direction"));

    Order.Put_Third_Complement (O, Moving_String.From_String ("de"));

    Order.Put_Fourth_Complement (O, Moving_String.From_String ("salle"));

    Put_Line ("order 1");
    Order.Show (O);
    Put (O, Ok);

    Put_Line ("put ok " & Boolean'Image (Ok));

    Put (O, Ok);

    Put_Line ("put ok " & Boolean'Image (Ok));



    Order.Put_Place (O, Moving_String.From_String ("cuisine"));

    Order.Put_First_Complement (O, Moving_String.From_String ("aller"));

    Order.Put_Second_Complement (O, Moving_String.From_String ("salle"));

    Order.Put_Third_Complement (O, Moving_String.From_String ("au"));

    Order.Put_Fourth_Complement (O, Moving_String.From_String ("direction"));

    Order.Show (O);
    Put_Line ("order 2");

    Put (O, Ok);
    Put_Line ("put ok " & Boolean'Image (Ok));


    Order.Put_Place (O, Moving_String.From_String ("cuisine"));

    Order.Put_First_Complement (O, Moving_String.From_String ("aller"));

    Order.Put_Second_Complement (O, Moving_String.From_String ("direction"));

    Order.Put_Third_Complement (O, Moving_String.From_String ("de"));

    Order.Put_Fourth_Complement (O, Moving_String.From_String ("salle"));

    Put_Line ("order 4");
    Order.Show (O);
    Put (O, Ok);
    Put_Line ("put ok " & Boolean'Image (Ok));

    Order.Put_Place (O, Moving_String.From_String ("cuisine"));

    Order.Put_First_Complement (O, Moving_String.From_String ("courir"));

    Order.Put_Second_Complement (O, Moving_String.From_String ("salle"));

    Order.Put_Third_Complement (O, Moving_String.From_String ("direction"));

    Order.Put_Fourth_Complement (O, Moving_String.From_String (""));

    Put_Line ("order 3");
    Order.Show (O);
    Put (O, Ok);
    Put_Line ("put ok " & Boolean'Image (Ok));



    Put_Line ("contain direction " & Boolean'Image
                                        (Contains_Complement ("direction")));
    Put_Line ("contain qller " & Boolean'Image (Contains_Complement ("qller")));
    Put_Line ("contain de " & Boolean'Image (Contains_Complement ("de")));
    Put_Line ("contain aller " & Boolean'Image (Contains_Complement ("aller")));
    Put_Line ("contain salle " & Boolean'Image (Contains_Complement ("salle")));


    Put_Line ("show avant redirection");
    Show;

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

    Put_Line ("show apres redirection");
    Show;

    Put_Line ("iteration");
    Init;
    while not Done loop
        O := Value;
        Order.Show (O);
        Next;
    end loop;

    Put_Line ("complement position salle : " &
              Natural'Image (Complement_Position ("salle")));
    Put_Line ("complement position sqlle : " &
              Natural'Image (Complement_Position ("sqlle")));


    Put_Line ("show apres free");
    Free;
    Show;

end Test_List_Order;

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=0e rec1=00 rec2=01 rec3=07e
        [0x01] rec0=24 rec1=00 rec2=06 rec3=012
        [0x02] rec0=20 rec1=00 rec2=02 rec3=012
        [0x03] rec0=0f rec1=00 rec2=03 rec3=026
        [0x04] rec0=1e rec1=00 rec2=04 rec3=00e
        [0x05] rec0=08 rec1=00 rec2=05 rec3=000
    tail 0x2174ba28c865759381711 0x42a00088462060003