⟦6163e6495⟧

E3 Source Code



WITH Interchange;
WITH Rpc;
WITH Transport_Defs;
WITH Time_Utilities;
PACKAGE Date_Defs IS


   GENERIC
      TYPE Stream_Id IS LIMITED PRIVATE;
      WITH PROCEDURE Put (Into : Stream_Id; Data : Interchange.Time) IS <>;
      WITH PROCEDURE Get (From : Stream_Id; Data : OUT Interchange.Time) IS <>;
      WITH PROCEDURE Put_String (Into : Stream_Id;
                                 Data : Standard.String) IS <>;
      WITH FUNCTION Get_String (From : Stream_Id) RETURN Standard.String IS <>;

   PACKAGE Interchange_Operations IS
      PROCEDURE Put (Into : Stream_Id; Data : Time_Utilities.Time);
      PROCEDURE Get (From : Stream_Id; Data : OUT Time_Utilities.Time);
      PROCEDURE Put (Into : Stream_Id; Data : String);
      PROCEDURE Get (From : Stream_Id; Data : OUT String);

   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 Rs6000_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
      Date : CONSTANT Rpc.Procedure_Number := 0;
   END Proc_Number;

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

END Date_Defs;
DataMuseum.dk

Rational R1000/400

⟦6163e6495⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
