⟦dcfba3199⟧

E3 Source Code



WITH Interchange;
WITH Rpc;
WITH Transport_Defs;
PACKAGE Complex_Defs IS


   TYPE Number IS
      RECORD
         Real, Imag : Float;
      END RECORD;

   GENERIC
      TYPE Stream_Id IS LIMITED PRIVATE;
      WITH PROCEDURE Put (Into : Stream_Id; Data : Interchange.Float) IS <>;
      WITH PROCEDURE Get (From :     Stream_Id;
                          Data : OUT Interchange.Float)               IS <>;
   PACKAGE Interchange_Operations IS
      PROCEDURE Put (Into : Stream_Id; Data : Number);
      PROCEDURE Get (From : Stream_Id; Data : OUT Number);  
   END Interchange_Operations;

   FUNCTION Network RETURN Transport_Defs.Network_Name;
   -- The constant Network was replaced with this function so that the actual
   -- network name value could be embedded in the body and reduce compilation
   -- dependencies...LP
   --


   -- The two functions below Sparc_Socket and R1000_Socket return the
   -- values to be used by the Server task when it is run from the Sparc
   -- station or R1000, respectively.
   --
   -- The client task will use the correct socket value to communicate with
   -- the Server.  For instance, if the Server is running on the R1000 then
   -- the client task would also use R1000_Socket.  If however, the Server
   -- is running on the Sparc_Station, it would use Sparc_Socket.
   --
   -- Function calls are used so that the actual socket values are embedded
   -- in the package body to minimize recompilation dependencies should the
   -- socket values require changing.

   FUNCTION Sparc_Socket RETURN Transport_Defs.Socket_Id;
   -- This function returns the socket value to be used by the Server when
   -- run on the workstation.


   FUNCTION R1000_Socket RETURN Transport_Defs.Socket_Id;
   -- This function returns the socket value to be used by the Server when
   -- run on the R1000.



   -- The constant Socket was replaced with this function so that the actual
   -- socket value could be embedded in the body and reduce compilation
   -- dependencies...LP
   --

   Program : CONSTANT Rpc.Program_Number := 45;
   Version : CONSTANT Rpc.Version_Number := 0;

   PACKAGE Proc_Number IS
      Make           : CONSTANT Rpc.Procedure_Number := 0;
      Real_Part      : CONSTANT Rpc.Procedure_Number := 1;
      Imaginary_Part : CONSTANT Rpc.Procedure_Number := 2;
      Plus           : CONSTANT Rpc.Procedure_Number := 3;
      Minus          : CONSTANT Rpc.Procedure_Number := 4;
      Image          : CONSTANT Rpc.Procedure_Number := 5;
      Value          : CONSTANT Rpc.Procedure_Number := 6;
   END Proc_Number;

   PACKAGE Exception_Number IS
      Overflow  : CONSTANT Rpc.Exception_Number := 1;
      Underflow : CONSTANT Rpc.Exception_Number := 2;
   END Exception_Number;

END Complex_Defs;
DataMuseum.dk

Rational R1000/400

⟦dcfba3199⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
