|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Build_Rpc_Servers, seg_020bdd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
--| @SUMMARY Generates the necessary packages to implement an RPC server
--| for the subprograms provided by a particular service.
--|
--| @DESCRIPTION
--| Given a package specification (e.g. Service_Package'Spec),
--| Build_Rpc_Servers will generate the following packages:
--| Service_Package'Body
--| Service_Package_Interchange'Spec
--| Service_Package_Interchange'Body
--| Service_Package_Rpc_Defs'Spec
--| Service_Package_Server'Spec
--| Service_Package_Server'Body
--|
--|
--|
--|
--|
--|
--|
--|
--|
--|
--|
--|
--|
--|
--|
--|
--| @INDICES (rpc, program_generation, communication)
--|
--| @PARAMETERS For_Package => RPC services will be provided for
--| subprograms in this package,
--| Promote => If true, attempt to install all of the
--| newly created packages,
--| In_Library => Destination library for the newly
--| created packages
--|
procedure Build_Rpc_Servers (For_Package : String := "<SELECTION>";
Promote : Boolean := True;
In_Library : String := "<REGION>";
Response : String := "<PROFILE>");
nblk1=2
nid=0
hdr6=4
[0x00] rec0=25 rec1=00 rec2=01 rec3=022
[0x01] rec0=06 rec1=00 rec2=02 rec3=000
tail 0x2171d3108838d4581f1c4 0x42a00088462061e03