|
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 - metrics - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Widget_Ipi, seg_0581f0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with System;
with Unchecked_Conversion;
with Widget_Status;
with Widget_Types;
package Widget_Ipi is
--
-- Interprogram interface between WIDGET clients and WIDGET server
-- program
--
-- Name bound to the WIDGET_SERVER's DISPATCH procedure
Service_Name : constant String := "widget";
-- WIDGET service id
type Svc_Id_T is (Svc_Create, Svc_Delete, Svc_Do_It);
-- variant record with the WIDGET service ID as the discriminant
-- for passing parameters to the DISPATCH procedure in the WIDGET_SERVER
type Params_T (Svc_Id : Svc_Id_T) is
record
W : Widget_Types.Widget_Id; -- in parameter
Status : Widget_Status.Status_T; -- out parameter
case Svc_Id is
when Svc_Create =>
null;
when Svc_Delete =>
null;
when Svc_Do_It =>
In_Arg : Integer; -- in parameter
Out_Arg : Integer; -- out parameter
end case;
end record;
type A_Params_T is access Params_T;
function To_A_Params_T is new Unchecked_Conversion
(System.Address, A_Params_T);
end Widget_Ipi;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1f rec1=00 rec2=01 rec3=062
[0x01] rec0=0a rec1=00 rec2=02 rec3=001
tail 0x217657b8887e16bf8dc48 0x42a00088462060003