-
Notifications
You must be signed in to change notification settings - Fork 1
/
show_commandline_3.adb
60 lines (48 loc) · 1.51 KB
/
show_commandline_3.adb
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
-- {{Ada/Sourceforge|show_commandline_3.adb}}
with Ada.Text_IO;
with Ada.Command_Line;
with Ada.Strings.Bounded;
procedure Show_Commandline_3 is
package T_IO renames Ada.Text_IO;
package CL renames Ada.Command_Line;
function Max_Lenght
(Value_1 : Integer;
Value_2 : Integer)
return Integer;
function Max_Lenght
(Value_1 : Integer;
Value_2 : Integer)
return Integer
is
Retval : Integer;
begin
if Value_1 > Value_2 then
Retval := Value_1;
else
Retval := Value_2;
end if;
return Retval;
end Max_Lenght;
pragma Inline (Max_Lenght);
package SB is new Ada.Strings.Bounded.Generic_Bounded_Length (
Max => Max_Lenght
(Value_1 => CL.Argument (1)'Length,
Value_2 => CL.Argument (2)'Length));
X : SB.Bounded_String :=
SB.To_Bounded_String (CL.Argument (1));
begin
T_IO.Put ("Argument 1 = ");
T_IO.Put_Line (SB.To_String (X));
X := SB.To_Bounded_String (CL.Argument (2));
T_IO.Put ("Argument 2 = ");
T_IO.Put_Line (SB.To_String (X));
end Show_Commandline_3;
-----------------------------------------------------------------
-- $Log: show_commandline_3.adb,v $
-- Revision 2.2 2005/09/15 17:34:47 krischik
-- paranoia checkin
--
-----------------------------------------------------------------
-- vim: textwidth=0 nowrap :
-- vim: tabstop=8 shiftwidth=3 softtabstop=3 expandtab :
-- vim: filetype=ada encoding=latin1 fileformat=unix :