|
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 - downloadIndex: ┃ B T ┃
Length: 1051 (0x41b)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
with Net_Info;
package body Complex_Defs is
package body Interchange_Operations is
procedure Put (Into : Stream_Id; Data : Number) is
begin
Put (Into, Interchange.Float (Data.Real));
Put (Into, Interchange.Float (Data.Imag));
end Put;
procedure Get (From : Stream_Id; Data : out Number) is
begin
Get (From, Interchange.Float (Data.Real));
Get (From, Interchange.Float (Data.Imag));
end Get;
end Interchange_Operations;
package body Proc_Number is
end Proc_Number;
package body Exception_Number is
end Exception_Number;
function Network return Transport_Defs.Network_Name is
begin
return Net_Info.Net_Name;
end Network;
function Sparc_Socket return Transport_Defs.Socket_Id is
begin
return Net_Info.Sparc_Socket;
end Sparc_Socket;
function R1000_Socket return Transport_Defs.Socket_Id is
begin
return Net_Info.R1000_Socket;
end R1000_Socket;
end Complex_Defs;