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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
-- example program for the use of package X_Auth (part of Adabindx)
--
with Ada.Text_Io,
Interfaces.C,
X_Connection,
X_Auth;
procedure Xau_Test is
package Int_Io is new Ada.Text_Io.Integer_Io (Integer);
type String_Access is access all String;
Auth_File_Name : String_Access;
procedure Put_Adr (Data : in X_Connection.Net_Address;
Spacer : in String) is
begin
if Data'Length > 1 then
Int_Io.Put (Integer (Data (Data'First)), Width => 1);
for J in Natural'Succ (Data'First) .. Data'Last loop
Ada.Text_Io.Put (Spacer);
Int_Io.Put (Integer (Data (J)), Width => 1);
end loop;
Ada.Text_Io.New_Line;
else
Int_Io.Put (Integer (Data (Data'First)), Width => 1);
Ada.Text_Io.New_Line;
end if;
end Put_Adr;
procedure Put_Bytes (Data : in X_Auth.Byte_Data;
Spacer : in String) is
procedure Put (Data : in Interfaces.C.Unsigned_Char) is
use Interfaces.C;
Number : Interfaces.C.Unsigned_Char := Data;
Table : array (Interfaces.C.Unsigned_Char range 0 .. 15) of Character
:=('0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
'A', 'B', 'C', 'D', 'E', 'F');
begin
Ada.Text_Io.Put (Table (Number/16) & Table (Number mod 16));
end Put;
begin
if Data'Length > 1 then
Put (Data (Data'First));
for J in Natural'Succ (Data'First) .. Data'Last loop
Ada.Text_Io.Put (Spacer);
Put (Data (J));
end loop;
Ada.Text_Io.New_Line;
else
Put (Data (Data'First));
Ada.Text_Io.New_Line;
end if;
end Put_Bytes;
begin
Auth_File_Name := new String'(X_Auth.Xau_File_Name);
Ada.Text_Io.Put_Line ("...reading authorization information from file """ &
Auth_File_Name.all & """");
Ada.Text_Io.New_Line;
declare
List : constant X_Auth.Xauth_List
:= X_Auth.Xau_Read_Auth (Auth_File_Name.all);
begin
for I in List'Range loop
Ada.Text_Io.Put_Line ("Entry " & Integer'Image (I) & ":");
Ada.Text_Io.Put (" Family: ");
case List (I).Family is
when X_Connection.Family_Internet =>
Ada.Text_Io.Put_Line ("Internet");
Ada.Text_Io.Put (" Address: ");
Put_Adr (List (I).Address, ".");
when X_Connection.Family_DEC_Net =>
Ada.Text_Io.Put_Line ("DEC-Net");
Ada.Text_Io.Put (" Address: ");
Put_Adr (List (I).Address, ":");
when X_Connection.Family_Chaos =>
Ada.Text_Io.Put_Line ("Chaos-Net");
Ada.Text_Io.Put (" Address: ");
Put_Adr (List (I).Address, " ");
when X_Auth.Family_Local =>
Ada.Text_Io.Put_Line ("Local-Connection");
Ada.Text_Io.Put (" Address: ");
Put_Adr (List (I).Address, " ");
when others =>
Ada.Text_Io.Put_Line ("other connection (" &
Integer'Image (Integer (List (I).Family)) & ")");
Ada.Text_Io.Put (" Address: ");
Put_Adr (List (I).Address, " ");
end case;
Ada.Text_Io.Put_Line (" Display number: """ &
List (I).Display_Number & """");
Ada.Text_Io.Put_Line (" Authorization name: """ &
List (I).Auth_Name & """");
Ada.Text_Io.Put (" Authorization data: ");
Put_Bytes (List (I).Auth_Data, " ");
end loop;
end;
end Xau_Test;
|
