String comparison: Difference between revisions

procedure Print_Comparison (A, B : String) is

Ada.Text_IO.Put_Line

('"' & A & """ and """ & B & """: " &

(if A = B then

"equal, "

elsif Ada.Strings.Equal_Case_Insensitive (A, B) then

"case-insensitive-equal, "

else "not equal at all, ") &

(if A /= B then "/=, " else "") &

(if A < B then "before, " else "") &

(if A > B then "after, " else "") &

(if A <= B then "<=, " else "(not <=), ") &

(if A >= B then ">=. " else "(not >=)."));

Print_Comparison ("this", "that");

Print_Comparison ("that", "this");

Print_Comparison ("THAT", "That");

Print_Comparison ("this", "This");

Print_Comparison ("this", "this");

Print_Comparison ("the", "there");

Print_Comparison ("there", "the");