DataMuseum.dk

top - download

    Length: 1006 (0x3ee)
    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⟧ 

TextFile

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;