DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦f46965717⟧ TextFile

    Length: 11838 (0x2e3e)
    Types: TextFile
    Names: »B«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

-------------------------------------------------------------------------------
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;
-------------------------------------------------------------------------------