|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1809 (0x711)
Types: TextFile
Names: »B«
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
└─⟦129cab021⟧ »DATA«
└─⟦this⟧
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
└─⟦d65440be7⟧ »DATA«
└─⟦this⟧
with Mac_Types;
with Communications;
with Interchange;
with Mac_Text;
package body Identity is
function Version return Mac_Types.Longint is
V : constant String := "2.1";
Index : Natural range V'Range;
I, J : Mac_Types.Longint;
begin
I := 0;
J := 0;
Index := V'First;
while V (Index) /= '.' loop
if V (Index) not in '0' .. '9' then
raise Constraint_Error;
end if;
I := I * 10 + Character'Pos (V (Index)) - Character'Pos ('0');
Index := Index + 1;
end loop;
Index := Index + 1;
loop
if V (Index) not in '0' .. '9' then
raise Constraint_Error;
end if;
J := J * 10 + Character'Pos (V (Index)) - Character'Pos ('0');
exit when Index = V'Last;
Index := Index + 1;
end loop;
return I * 256 + J;
exception
when others =>
return 0;
end Version;
procedure Check (A_Connection : in out Communications.Connection) is
Host_Name : Mac_Text.Text (256);
User_Name : Mac_Text.Text (256);
Password : Mac_Text.Text (256);
Trace_File : Mac_Text.Text (256);
Identity : Mac_Types.Longint;
Ibm_Platform : constant := 3;
begin
Interchange.Get_Text (A_Connection, Host_Name);
Interchange.Get_Text (A_Connection, User_Name);
Interchange.Get_Text (A_Connection, Password);
Identity := 0; -- Check user identity OK
Interchange.Get_Text (A_Connection, Trace_File);
Interchange.Put_Int (A_Connection, Ibm_Platform);
Interchange.Put_Int (A_Connection, Version);
Interchange.Put_Int (A_Connection, Identity);
end Check;
end Identity;