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

⟦fa30d8848⟧ Ada Source

    Length: 15360 (0x3c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Package_Wild_String, seg_026d07

Derivation

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

-------------------------------------------------------------------------------
with Wild_String;
with Text_Io;

package body Package_Wild_String is

    ---------------------------------------------------------------------------
    procedure Test_Equality (Left, Right : String; Right_Result : Boolean) is
        The_Same : Boolean;
        use Text_Io;

    begin  
        if (Right_Result) then
            Put ("<" & Left & "> = <" & Right & ">");
        else
            Put ("<" & Left & "> /= <" & Right & ">");
        end if;
        The_Same := Wild_String.Is_Equal (Left, Right);
        if (The_Same = Right_Result) then
            Put_Line ("");
        else
            Put_Line (" ************************************");
        end if;
    end Test_Equality;

    ---------------------------------------------------------------------------
    procedure Test is
    begin  
        Text_Io.Put_Line ("---> Test Package Wild_String");       Text_Io.Put_Line
           (">>>> IL NE DOIT PAS Y AVOIR DE LIGNES AVEC DES '*' <<<<");
        Test_Equality ("Hello", "Hello", True);
        Test_Equality ("", "", True);
        Test_Equality ("Hello", "Hellow", False);
        Test_Equality ("Hello world", "Hello wirld", False);

        Test_Equality ("Hello", "#ello", True);
        Test_Equality ("Hello", "H#llo", True);
        Test_Equality ("Hello", "He#lo", True);
        Test_Equality ("Hello", "Hel#o", True);
        Test_Equality ("Hello", "Hell#", True);
        Test_Equality ("Hello", "#e#lo", True);
        Test_Equality ("Hello", "#el#o", True);
        Test_Equality ("Hello", "#ell#", True);
        Test_Equality ("Hello", "H##lo", True);
        Test_Equality ("Hello", "H#l#o", True);
        Test_Equality ("Hello", "H#ll#", True);
        Test_Equality ("Hello", "He##o", True);
        Test_Equality ("Hello", "He#l#", True);
        Test_Equality ("Hello", "Hel##", True);
        Test_Equality ("Hello", "###lo", True);
        Test_Equality ("Hello", "##l#o", True);
        Test_Equality ("Hello", "##ll#", True);
        Test_Equality ("Hello", "####o", True);
        Test_Equality ("Hello", "###l#", True);
        Test_Equality ("Hello", "#####", True);
        Test_Equality ("Hello", "Hello#", False);

        Test_Equality ("Hello", "@Hello", True);
        Test_Equality ("Hello", "H@ello", True);
        Test_Equality ("Hello", "He@llo", True);
        Test_Equality ("Hello", "Hel@lo", True);
        Test_Equality ("Hello", "Hell@o", True);
        Test_Equality ("Hello", "Hello@", True);
        Test_Equality ("Hello", "@ello", True);
        Test_Equality ("Hello", "H@llo", True);
        Test_Equality ("Hello", "He@lo", True);
        Test_Equality ("Hello", "Hel@o", True);
        Test_Equality ("Hello", "Hell@", True);
        Test_Equality ("Hello", "@llo", True);
        Test_Equality ("Hello", "H@lo", True);
        Test_Equality ("Hello", "He@o", True);
        Test_Equality ("Hello", "Hel@", True);
        Test_Equality ("Hello", "@lo", True);
        Test_Equality ("Hello", "H@o", True);
        Test_Equality ("Hello", "He@", True);
        Test_Equality ("Hello", "@o", True);
        Test_Equality ("Hello", "H@", True);
        Test_Equality ("Hello", "@", True);

        Test_Equality ("Hello", "@@llo", True);
        Test_Equality ("Hello", "@e@lo", True);
        Test_Equality ("Hello", "@el@o", True);
        Test_Equality ("Hello", "@ell@", True);
        Test_Equality ("Hello", "H@@lo", True);
        Test_Equality ("Hello", "H@l@o", True);
        Test_Equality ("Hello", "H@ll@", True);
        Test_Equality ("Hello", "He@@o", True);
        Test_Equality ("Hello", "He@l@", True);
        Test_Equality ("Hello", "Hel@@", True);
        Test_Equality ("Hello", "@@@lo", True);
        Test_Equality ("Hello", "@@l@o", True);
        Test_Equality ("Hello", "@@ll@", True);
        Test_Equality ("Hello", "@e@@o", True);
        Test_Equality ("Hello", "@e@l@", True);
        Test_Equality ("Hello", "@el@@", True);
        Test_Equality ("Hello", "H@@@@", True);
        Test_Equality ("Hello", "@e@@@", True);
        Test_Equality ("Hello", "@@l@@", True);
        Test_Equality ("Hello", "@@@l@", True);
        Test_Equality ("Hello", "@@@@o", True);
        Test_Equality ("Hello", "@@@@@", True);
        Test_Equality ("Hello", "@@@@@@", True);

        Test_Equality ("Hello", "#@llo", True);
        Test_Equality ("Hello", "#e@lo", True);
        Test_Equality ("Hello", "#el@o", True);
        Test_Equality ("Hello", "#ell@", True);
        Test_Equality ("Hello", "#@@lo", True);
        Test_Equality ("Hello", "#@l@o", True);
        Test_Equality ("Hello", "#@ll@", True);
        Test_Equality ("Hello", "#e@@o", True);
        Test_Equality ("Hello", "#e@l@", True);
        Test_Equality ("Hello", "#el@@", True);
        Test_Equality ("Hello", "#@", True);
        Test_Equality ("Hello", "#e@", True);
        Test_Equality ("Hello", "#el@", True);
        Test_Equality ("Hello", "#@#", True);
        Test_Equality ("Hello", "##@lo", True);
        Test_Equality ("Hello", "##l@o", True);
        Test_Equality ("Hello", "##ll@", True);
        Test_Equality ("Hello", "##@@o", True);
        Test_Equality ("Hello", "##@l@", True);
        Test_Equality ("Hello", "##l@@", True);
        Test_Equality ("Hello", "#@#lo", True);
        Test_Equality ("Hello", "#e#@o", True);
        Test_Equality ("Hello", "#e#l@", True);
        Test_Equality ("Hello", "#@#@o", True);
        Test_Equality ("Hello", "#@#l@", True);
        Test_Equality ("Hello", "#e#@@", True);
        Test_Equality ("Hello", "#@#@@", True);
        Test_Equality ("Hello", "#@l#o", True);
        Test_Equality ("Hello", "#e@#o", True);
        Test_Equality ("Hello", "#el#@", True);
        Test_Equality ("Hello", "#@@#o", True);
        Test_Equality ("Hello", "#@l#@", True);
        Test_Equality ("Hello", "#e@#@", True);
        Test_Equality ("Hello", "#@@#@", True);
        Test_Equality ("Hello", "#e@#@", True);
        Test_Equality ("Hello", "#@ll#", True);
        Test_Equality ("Hello", "#e@l#", True);
        Test_Equality ("Hello", "#el@#", True);
        Test_Equality ("Hello", "#@@l#", True);
        Test_Equality ("Hello", "#@l@#", True);
        Test_Equality ("Hello", "#e@@#", True);
        Test_Equality ("Hello", "#@@@#", True);
        Test_Equality ("Hello", "###@o", True);
        Test_Equality ("Hello", "###l@", True);
        Test_Equality ("Hello", "###@@", True);
        Test_Equality ("Hello", "##@#o", True);
        Test_Equality ("Hello", "##l#@", True);
        Test_Equality ("Hello", "##@#@", True);
        Test_Equality ("Hello", "##@##", True);
        Test_Equality ("Hello", "#@###", True);
        Test_Equality ("Hello", "@####", True);

        Test_Equality ("Hello", "@#", True);
        Test_Equality ("Hello", "#@", True);
        Test_Equality ("Hello", "#@#", True);
        Test_Equality ("Hello", "@#@", True);
        Test_Equality ("Hello", "@#@#", True);
        Test_Equality ("Hello", "@#@", True);
        Test_Equality ("Hello", "@####", True);
        Test_Equality ("Hello", "##@###", True);

        Test_Equality ("Hello", "He#no", False);
        Test_Equality ("Hello", "He@no", False);
        Test_Equality ("Hello", "He@lo#", False);
        Test_Equality ("Hello", "@i@", False);
        Test_Equality ("Hello", "@o#@", False);
        Test_Equality ("Hello", "@o#", False);

        Test_Equality ("Hello", "?ello", True);  
        Test_Equality ("Hello", "H?llo", True);  
        Test_Equality ("Hello", "He?lo", True);  
        Test_Equality ("Hello", "Hel?o", True);  
        Test_Equality ("Hello", "Hell?", True);
        Test_Equality ("Hello", "??llo", True);  
        Test_Equality ("Hello", "?e?lo", True);  
        Test_Equality ("Hello", "?el?o", True);  
        Test_Equality ("Hello", "?ell?", True);  
        Test_Equality ("Hello", "H??lo", True);  
        Test_Equality ("Hello", "H?l?o", True);  
        Test_Equality ("Hello", "H?ll?", True);  
        Test_Equality ("Hello", "He??o", True);  
        Test_Equality ("Hello", "He?l?", True);  
        Test_Equality ("Hello", "???lo", True);  
        Test_Equality ("Hello", "??l?o", True);  
        Test_Equality ("Hello", "??ll?", True);  
        Test_Equality ("Hello", "?e??o", True);  
        Test_Equality ("Hello", "?e?l?", True);  
        Test_Equality ("Hello", "?el??", True);  
        Test_Equality ("Hello", "H???o", True);  
        Test_Equality ("Hello", "H??l?", True);  
        Test_Equality ("Hello", "H?l??", True);  
        Test_Equality ("Hello", "He???", True);
        Test_Equality ("Hello", "????o", True);  
        Test_Equality ("Hello", "???l?", True);  
        Test_Equality ("Hello", "??l??", True);  
        Test_Equality ("Hello", "?e???", True);  
        Test_Equality ("Hello", "H????", True);  
        Test_Equality ("Hello", "?????", True);

        Test_Equality ("Hello", "??????", False);
        Test_Equality ("Hello", "?Hello", False);  
        Test_Equality ("Hello", "H?ello", False);  
        Test_Equality ("Hello", "He?llo", False);  
        Test_Equality ("Hello", "Hel?lo", False);  
        Test_Equality ("Hello", "Hell?o", False);  
        Test_Equality ("Hello", "Hello?", False);

        Test_Equality ("Hello", "?H?e?l?l?o?", False);  
        Test_Equality ("Hello", "H?e?llo", False);  
        Test_Equality ("Hello", "Hel?lo?", False);  
        Test_Equality ("Hello", "Helo?", False);  
        Test_Equality ("Hello", "?Helo", False);  
        Test_Equality ("Hello", "?Sa?lut", False);

        Test_Equality ("Hello", "?llo", True);
        Test_Equality ("Hello", "H?lo", True);
        Test_Equality ("Hello", "He?o", True);
        Test_Equality ("Hello", "Hel?", True);
        Test_Equality ("Hello", "?lo", True);
        Test_Equality ("Hello", "H?o", True);
        Test_Equality ("Hello", "He?", True);
        Test_Equality ("Hello", "?o", True);
        Test_Equality ("Hello", "H?", True);
        Test_Equality ("Hello", "?", True);

        Test_Equality ("Hello", "?llo@", True);
        Test_Equality ("Hello", "He?@lo", True);
        Test_Equality ("Hello", "He@?o", True);
        Test_Equality ("Hello", "H#@?o", True);
        Test_Equality ("Hello", "H#?@o", True);
        Test_Equality ("Hello", "H?#@o", True);
        Test_Equality ("Hello", "H?@#o", True);
        Test_Equality ("Hello", "H@?#o", True);
        Test_Equality ("Hello", "H@#?o", True);

        Test_Equality ("Hello", "?@", True);
        Test_Equality ("Hello", "He?@", True);
        Test_Equality ("Hello", "@?o", True);
        Test_Equality ("Hello", "H#@?", True);
        Test_Equality ("Hello", "H#?@", True);
        Test_Equality ("Hello", "H?#@", True);
        Test_Equality ("Hello", "H?@#", True);
        Test_Equality ("Hello", "H@?#", True);
        Test_Equality ("Hello", "H@#?", True);

        Test_Equality ("He", "He?@", False);
        Test_Equality ("Hollo", "@?o", True);
        Test_Equality ("He", "H#@?", False);
        Test_Equality ("He", "H#?@", False);
        Test_Equality ("He", "H?#@", False);
        Test_Equality ("He", "H?@#", False);
        Test_Equality ("He", "H@?#", False);
        Test_Equality ("He", "H@#?", False);


        Test_Equality ("", "#", False);
        Test_Equality ("", "@", True);
        Test_Equality ("", "?", False);

        Text_Io.Put_Line ("-- Levee d'exception");
        Test_Equality ("Hell#", "H#llo", True);  
        Text_Io.Put_Line ("-- Exception non levee !!?!!");

    exception
        when Wild_String.Invalid_Argument_Error =>
            Text_Io.Put_Line ("-- Exception levee.");
    end Test;
end Package_Wild_String;
-------------------------------------------------------------------------------

    nblk1=e
    nid=0
    hdr6=1c
        [0x00] rec0=1f rec1=00 rec2=01 rec3=002
        [0x01] rec0=03 rec1=00 rec2=0e rec3=01e
        [0x02] rec0=15 rec1=00 rec2=0d rec3=030
        [0x03] rec0=15 rec1=00 rec2=0c rec3=048
        [0x04] rec0=16 rec1=00 rec2=0b rec3=01c
        [0x05] rec0=15 rec1=00 rec2=0a rec3=042
        [0x06] rec0=15 rec1=00 rec2=09 rec3=004
        [0x07] rec0=15 rec1=00 rec2=08 rec3=030
        [0x08] rec0=16 rec1=00 rec2=07 rec3=02a
        [0x09] rec0=13 rec1=00 rec2=06 rec3=062
        [0x0a] rec0=17 rec1=00 rec2=05 rec3=018
        [0x0b] rec0=16 rec1=00 rec2=04 rec3=05a
        [0x0c] rec0=1b rec1=00 rec2=03 rec3=080
        [0x0d] rec0=02 rec1=00 rec2=02 rec3=000
    tail 0x21520435483aa6781f8d3 0x42a00088462063c03