|
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 Ihm_Small_Orb, seg_054421
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
--with Communication;
with Com_Functions;
with Text_Io;
with Our_Constantes;
with Message;
with Utils;
with Our_String;
with Transport_Defs;
with Little_Orb;
package body Ihm_Small_Orb is
The_Connection_Data : Com_Functions.Connection_Data;
-- procedure de traitement de la commande
-- ======================================
function Treatment_Of_Command (Line : in String) return Boolean is
The_Message : Message.Type_Of_Message;
The_Host : Transport_Defs.Host_Id (1 .. 4) := (193, 54, 146, 132);
The_Socket : Transport_Defs.Socket_Id (1 .. 4) := (2, 6, 0, 4);
The_Id : Natural := 1;
begin
if Line = "Subs" then
Text_Io.Put_Line ("Subscription");
--The_Message.The_Command := Our_Constantes.Subscription;
--The_Message.The_Host_Machine_Receive := (193, 54, 146, 132);
--The_Message.The_Socket_Receive := (2, 6, 0, 4);
--The_Message.Data := Our_String.Value ("Date");
-- The_Message.Command_Is_Ok := True;
-- The_Message.Number_Of_The_Question := 0;
Text_Io.Put_Line ("Envoi du message de Subscription...");
Little_Orb.Subscription (Our_String.Value ("Date"), The_Socket,
The_Host, The_Id, The_Connection_Data);
Text_Io.Put_Line ("Envoi du message de Subscription effectue");
Text_Io.Put_Line ("");
Text_Io.Put_Line ("Essai de reception de la reponse");
--Communication.Receiver (The_Message, (2, 6, 0, 4));
Com_Functions.Receiver (The_Message, The_Connection_Data);
Com_Functions.Disconnection (The_Connection_Data);
Text_Io.Put_Line ("Reception de la reponse effectuee");
elsif Line = "quit" then
return True;
else
Text_Io.Put_Line ("Mot incorrect");
return False;
end if;
return True;
end Treatment_Of_Command;
-- procedure de lecture de commande
-- ================================
procedure Type_Of_Command is
Line : String (1 .. 4);
Counter : Natural := 1;
Test : Boolean := False;
begin
Text_Io.Put_Line ("Entrez une commande");
Text_Io.Get (Line);
Text_Io.New_Line;
Text_Io.Put (Line);
Text_Io.New_Line;
Test := Treatment_Of_Command (Line);
end Type_Of_Command;
begin
null;
end Ihm_Small_Orb;
nblk1=6
nid=2
hdr6=6
[0x00] rec0=1f rec1=00 rec2=01 rec3=02c
[0x01] rec0=16 rec1=00 rec2=03 rec3=014
[0x02] rec0=17 rec1=00 rec2=04 rec3=000
[0x03] rec0=0a rec1=00 rec2=02 rec3=000
[0x04] rec0=0c rec1=00 rec2=06 rec3=000
[0x05] rec0=0c rec1=00 rec2=06 rec3=000
tail 0x2154d024e87b669ce047c 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 06 02 48 00 14 20 20 20 20 20 20 20 20 72 65 ┆ H re┆
0x6: 0000 00 05 01 4e 80 0a 61 2c 20 43 6f 75 6e 74 29 3b ┆ N a, Count);┆
0x5: 0000 00 00 00 04 80 01 4c 01 02 20 20 20 20 20 65 6e ┆ L en┆