blob: 22734140ebfdd391c7f421bba686f0cc53b1e383 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
-- Programmed by Jedidiah Barber
-- Released into the public domain
with
Ada.Text_IO,
FLTK.Filenames;
procedure Compare is
package TIO renames Ada.Text_IO;
package FFN renames FLTK.Filenames;
Aardvark : String := "aardvark";
Zebra : String := "Zebra";
Two : String := "item_2";
Ten : String := "item_10";
Cap_Ten : String := "Item_10";
begin
TIO.Put_Line ("Alphabetic comparison of " & Aardvark & " and " & Zebra & ": " &
FFN.Comparison'Image (FFN.Alpha_Sort (Aardvark, Zebra)));
TIO.Put_Line ("Case insensitive comparison of " & Aardvark & " and " & Zebra & ": " &
FFN.Comparison'Image (FFN.Case_Alpha_Sort (Aardvark, Zebra)));
TIO.New_Line;
TIO.Put_Line ("Alphabetic comparison of " & Two & " and " & Ten & ": " &
FFN.Comparison'Image (FFN.Alpha_Sort (Two, Ten)));
TIO.Put_Line ("Numeric comparison of " & Two & " and " & Ten & ": " &
FFN.Comparison'Image (FFN.Numeric_Sort (Two, Ten)));
TIO.New_Line;
TIO.Put_Line ("Numeric comparison of " & Two & " and " & Cap_Ten & ": " &
FFN.Comparison'Image (FFN.Numeric_Sort (Two, Cap_Ten)));
TIO.Put_Line ("Case insensitive comparison of " & Two & " and " & Cap_Ten & ": " &
FFN.Comparison'Image (FFN.Case_Numeric_Sort (Two, Cap_Ten)));
end Compare;
|
