|
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: 13312 (0x3400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, seg_00d4f8
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
WITH Rpc;
WITH Rpc_Server;
WITH Transport_Stream;
WITH Transport_Interchange;
WITH Complex_Number_Interchange;
WITH Interchange;
WITH Complex_Number;
WITH Complex_Number;
WITH Complex_Number;
PACKAGE BODY Complex_Number_Server IS
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 Complex_Number_Rpc_Defs.Procedure_Number.Make =>
DECLARE
Real : Float;
Imag : Float;
Return_Number : Complex_Number.Number;
BEGIN
Transport_Interchange.Get (From => Stream,
Data => Interchange.Float (Real));
Transport_Interchange.Get (From => Stream,
Data => Interchange.Float (Imag));
Return_Number := Complex_Number.Make
(Real => Real, Imag => Imag);
Rpc_Server.Begin_Response (Stream, Id);
Complex_Number_Interchange.Put
(Into => Stream, Data => Return_Number);
END;
WHEN Complex_Number_Rpc_Defs.Procedure_Number.Real_Part =>
DECLARE
X : Complex_Number.Number;
Return_Float : Float;
BEGIN
Complex_Number_Interchange.Get (From => Stream, Data => X);
Return_Float := Complex_Number.Real_Part (X => X);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Interchange.Put
(Into => Stream, Data => Interchange.Float (Return_Float));
END;
WHEN Complex_Number_Rpc_Defs.Procedure_Number.Imaginary_Part =>
DECLARE
X : Complex_Number.Number;
Return_Float : Float;
BEGIN
Complex_Number_Interchange.Get (From => Stream, Data => X);
Return_Float := Complex_Number.Imaginary_Part (X => X);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Interchange.Put
(Into => Stream, Data => Interchange.Float (Return_Float));
END;
WHEN Complex_Number_Rpc_Defs.Procedure_Number.Plus =>
DECLARE
Left : Complex_Number.Number;
Right : Complex_Number.Number;
Return_Number : Complex_Number.Number;
BEGIN
Complex_Number_Interchange.Get (From => Stream, Data => Left);
Complex_Number_Interchange.Get (From => Stream, Data => Right);
Return_Number := Complex_Number.Plus
(Left => Left, Right => Right);
Rpc_Server.Begin_Response (Stream, Id);
Complex_Number_Interchange.Put
(Into => Stream, Data => Return_Number);
END;
WHEN Complex_Number_Rpc_Defs.Procedure_Number.Minus =>
DECLARE
Left : Complex_Number.Number;
Right : Complex_Number.Number;
Return_Number : Complex_Number.Number;
BEGIN
Complex_Number_Interchange.Get (From => Stream, Data => Left);
Complex_Number_Interchange.Get (From => Stream, Data => Right);
Return_Number := Complex_Number.Minus
(Left => Left, Right => Right);
Rpc_Server.Begin_Response (Stream, Id);
Complex_Number_Interchange.Put
(Into => Stream, Data => Return_Number);
END;
WHEN Complex_Number_Rpc_Defs.Procedure_Number.Image =>
DECLARE
X : Complex_Number.Number;
BEGIN Complex_Number_Interchange.Get (From => Stream, Data => X);
DECLARE
Return_String : CONSTANT String :=
Complex_Number.Image (X => X);
BEGIN
Rpc_Server.Begin_Response (Stream, Id);
Transport_Interchange.Put_String
(Into => Stream, Data => Return_String);
END;
END;
WHEN Complex_Number_Rpc_Defs.Procedure_Number.Value =>
DECLARE
S : CONSTANT String :=
Transport_Interchange.Get_String (From => Stream);
Return_Number : Complex_Number.Number;
BEGIN
Return_Number := Complex_Number.Value (S => S);
Rpc_Server.Begin_Response (Stream, Id);
Complex_Number_Interchange.Put
(Into => Stream, Data => Return_Number);
END;
WHEN OTHERS =>
RAISE Rpc.No_Such_Procedure;
END CASE;
EXCEPTION
WHEN Constraint_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Number_Rpc_Defs.
Exception_Number.Constraint_Error);
WHEN Numeric_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Number_Rpc_Defs.
Exception_Number.Numeric_Error);
WHEN Program_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Number_Rpc_Defs.
Exception_Number.Program_Error);
WHEN Storage_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Number_Rpc_Defs.
Exception_Number.Storage_Error);
WHEN Tasking_Error =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Number_Rpc_Defs.
Exception_Number.Tasking_Error);
WHEN Complex_Number.Overflow =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Number_Rpc_Defs.Exception_Number.Overflow);
WHEN Complex_Number.Underflow =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Number_Rpc_Defs.Exception_Number.Underflow);
END Process_Call;
PROCEDURE Serve_Guts IS NEW Rpc_Server.Serve
(Program => Complex_Number_Rpc_Defs.Program,
Process_Call => Process_Call);
PROCEDURE Serve (Connection : Transport.Connection_Id) IS
BEGIN
Serve_Guts (Connection);
END Serve;
END Complex_Number_Server;
nblk1=c
nid=0
hdr6=18
[0x00] rec0=1d rec1=00 rec2=01 rec3=03a
[0x01] rec0=00 rec1=00 rec2=0c rec3=024
[0x02] rec0=14 rec1=00 rec2=02 rec3=040
[0x03] rec0=00 rec1=00 rec2=0b rec3=028
[0x04] rec0=13 rec1=00 rec2=03 rec3=064
[0x05] rec0=01 rec1=00 rec2=0a rec3=014
[0x06] rec0=15 rec1=00 rec2=04 rec3=002
[0x07] rec0=00 rec1=00 rec2=09 rec3=022
[0x08] rec0=16 rec1=00 rec2=05 rec3=028
[0x09] rec0=00 rec1=00 rec2=08 rec3=018
[0x0a] rec0=1c rec1=00 rec2=06 rec3=040
[0x0b] rec0=14 rec1=00 rec2=07 rec3=000
tail 0x215096bde82164893b9b1 0x489e0066482863c01