⟦7f8b7f9b4⟧

E3 Source Code



WITH Interchange;
WITH Rpc;
WITH Transport_Defs;
PACKAGE Reel_Defs IS


   GENERIC
      TYPE Stream_Id IS LIMITED PRIVATE;
      WITH PROCEDURE Put (Into : Stream_Id; Data : Interchange.Integer) IS <>;
      WITH PROCEDURE Get (From :     Stream_Id;
                          Data : OUT Interchange.Integer)               IS <>;
   PACKAGE Interchange_Operations IS
      PROCEDURE Put (Into : Stream_Id; Data : Integer);
      PROCEDURE Get (From : Stream_Id; Data : OUT Integer);  
   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 := 44444444;
   Version : CONSTANT Rpc.Version_Number := 0;

   PACKAGE Proc_Number IS
      Plus  : CONSTANT Rpc.Procedure_Number := 1;
      Minus : CONSTANT Rpc.Procedure_Number := 2;
   END Proc_Number;

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

END Reel_Defs;
DataMuseum.dk

Rational R1000/400

⟦7f8b7f9b4⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
