|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Behavior_Server, seg_021d0d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Rpc;
with Rpc_Server;
with Transport_Stream;
with Transport_Interchange;
with Behavior_Interchange;
with Interchange;
with Behavior;
with Behavior;
package body Behavior_Server is
procedure Do_Nothing is
begin
null;
end Do_Nothing;
procedure Process_Call (Stream : Transport_Stream.Stream_Id;
Id : Rpc.Transaction_Id;
Version : Rpc.Version_Number;
Proc : Rpc.Procedure_Number) is
begin
case Proc is
when Behavior_Rpc_Defs.Procedure_Number.Manger =>
declare
S : constant String :=
Transport_Interchange.Get_String (From => Stream);
begin
Behavior.Manger (S => S);
Rpc_Server.Begin_Response (Stream, Id);
end;
when Behavior_Rpc_Defs.Procedure_Number.Boire =>
declare
I : Integer;
begin
Transport_Interchange.Get (From => Stream,
Data => Interchange.Integer (I));
Behavior.Boire (I => I);
Rpc_Server.Begin_Response (Stream, Id);
end;
when others =>
raise Rpc.No_Such_Procedure;
end case;
exception
when Constraint_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Behavior_Rpc_Defs.Exception_Number.
Constraint_Error);
when Numeric_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Behavior_Rpc_Defs.Exception_Number.Numeric_Error);
when Program_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Behavior_Rpc_Defs.Exception_Number.Program_Error);
when Storage_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Behavior_Rpc_Defs.Exception_Number.Storage_Error);
when Tasking_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Behavior_Rpc_Defs.Exception_Number.Tasking_Error);
end Process_Call;
procedure Serve_Guts is new Rpc_Server.Serve
(Program => Behavior_Rpc_Defs.Program,
Supported => (0, Rpc.Version_Number'Last),
Process_Call => Process_Call,
Initialize => Do_Nothing,
Main_Loop_Preprocess => Do_Nothing,
Main_Loop_Postprocess => Do_Nothing);
procedure Serve (Connection : Transport.Connection_Id) is
begin
Serve_Guts (Connection, False);
end Serve;
end Behavior_Server;
nblk1=4
nid=3
hdr6=6
[0x00] rec0=21 rec1=00 rec2=01 rec3=078
[0x01] rec0=1b rec1=00 rec2=04 rec3=02e
[0x02] rec0=18 rec1=00 rec2=02 rec3=001
[0x03] rec0=94 rec1=00 rec2=00 rec3=000
tail 0x2171da96e838f73ec8c86 0x42a00088462060003
Free Block Chain:
0x3: 0000 00 00 02 4e 80 2b 72 5f 52 70 63 5f 44 65 66 73 ┆ N +r_Rpc_Defs┆