|
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: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Complex_Server, seg_00b1fb
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Transport_Complex;
with Text_Io;
with Complex_Service;
with Interchange;
with Transport_Interchange;
package body Complex_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_Defs.Proc_Number.Make =>
declare
Real, Imag : Float;
Answer : Complex_Defs.Number;
begin
Transport_Interchange.Get (Stream,
Interchange.Float (Real));
Transport_Interchange.Get (Stream,
Interchange.Float (Imag));
Answer := Complex_Service.Make (Real, Imag);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Complex.Put (Stream, Answer);
end;
when Complex_Defs.Proc_Number.Real_Part =>
declare
X : Complex_Defs.Number;
Answer : Float;
begin
Transport_Complex.Get (Stream, X);
Answer := Complex_Service.Real_Part (X);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Interchange.Put (Stream,
Interchange.Float (Answer));
end;
when Complex_Defs.Proc_Number.Imaginary_Part =>
declare
X : Complex_Defs.Number;
Answer : Float;
begin
Transport_Complex.Get (Stream, X);
Answer := Complex_Service.Imaginary_Part (X);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Interchange.Put (Stream,
Interchange.Float (Answer));
end;
when Complex_Defs.Proc_Number.Plus =>
declare
Left, Right : Complex_Defs.Number;
Answer : Complex_Defs.Number;
begin
Transport_Complex.Get (Stream, Left);
Transport_Complex.Get (Stream, Right);
Answer := Complex_Service.Plus (Left, Right);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Complex.Put (Stream, Answer);
end;
when Complex_Defs.Proc_Number.Minus =>
declare
Left, Right : Complex_Defs.Number;
Answer : Complex_Defs.Number;
begin
Transport_Complex.Get (Stream, Left);
Transport_Complex.Get (Stream, Right);
Answer := Complex_Service.Minus (Left, Right);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Complex.Put (Stream, (Answer));
end;
when Complex_Defs.Proc_Number.Image =>
declare
X : Complex_Defs.Number;
begin
Transport_Complex.Get (Stream, X);
declare
Answer : constant String := Complex_Service.Image (X);
begin
Rpc_Server.Begin_Response (Stream, Id);
Transport_Interchange.Put_String (Stream, Answer);
end;
end;
when Complex_Defs.Proc_Number.Value =>
declare
X : constant String :=
Transport_Interchange.Get_String (Stream);
Answer : Complex_Defs.Number;
begin
Answer := Complex_Service.Value (X);
Rpc_Server.Begin_Response (Stream, Id);
Transport_Complex.Put (Stream, Answer);
end;
when others =>
raise Rpc.No_Such_Procedure;
end case;
exception
when Complex_Service.Overflow =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Defs.Exception_Number.Overflow);
when Complex_Service.Underflow =>
Rpc_Server.Return_Exception
(Stream, Id, Complex_Defs.Exception_Number.Underflow);
end Process_Call;
procedure Serve_Gets is new Rpc_Server.Serve
(Program => Complex_Defs.Program,
Supported => (0, Rpc.Version_Number'Last),
Process_Call => Process_Call);
procedure Serve (Connection : Transport.Connection_Id) is
begin
Serve_Gets (Connection);
end Serve;
end Complex_Server;
nblk1=6
nid=0
hdr6=c
[0x00] rec0=19 rec1=00 rec2=01 rec3=06c
[0x01] rec0=16 rec1=00 rec2=02 rec3=010
[0x02] rec0=15 rec1=00 rec2=03 rec3=05a
[0x03] rec0=16 rec1=00 rec2=04 rec3=062
[0x04] rec0=16 rec1=00 rec2=05 rec3=07a
[0x05] rec0=05 rec1=00 rec2=06 rec3=000
tail 0x21507648881fa629eda1d 0x42a00088462060003