|
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 Message, seg_055656
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Byte_Defs;
with Our_Constantes;
with Utils;
with Transport_Defs;
with Our_String;
package Message is
type Type_Of_Message is
record
The_Command : Our_Constantes.Type_Of_Command := Our_Constantes.None;
The_Host_Machine_Send :
Transport_Defs.Host_Id (1 .. 4) := (0, 0, 0, 0);
--Transport_Defs.Null_Host_Id (1 .. 4);
-- valeur fixee pour essais
-- adresse physique de la machine sur laquelle tourne la tache One_Id_User_Send
-- exemple : 193.54.146.132 -> ancolie
The_Id_User_Send : Natural := 0;
-- numero de la tache appelante (1, 2 ..)
The_Host_Machine_Receive : Transport_Defs.Host_Id (1 .. 4) :=
Our_Constantes.The_Orb.The_Host;
-- Transport_Defs.Null_Host_Id (1 .. 4);
-- adresse physique de la machine sur laquelle tourne la tache One_Id_User_Receive
-- elle est optionnelle ( = 193.54.146.132 -> ancolie )
-- (0,0,0,0) signifie indifferent
The_Id_User_Receive : Natural := 0; -- numero de la tache appelee
-- elle est optionnelle
-- 0 signifie indifferent
The_Host_Machine_To_Execute :
Transport_Defs.Host_Id (1 .. 4) := (0, 0, 0, 0);
--Transport_Defs.Null_Host_Id (1 .. 4);
-- valeur fixee pour essais
-- adresse physique de la machine sur laquelle tourne la tache One_Id_User_To_Execute
-- Sert dans le cas ou une tache specifie le destinataire de sa demande
Data : Our_String.Variable_String;
--Data : Byte_Defs.Byte_String (1 .. Our_Constantes.Length_Of_A_Line);
-- Utils.String_To_Byte_String ("data");
-- donnees reellement envoyees par la tache
Command_Is_Ok : Boolean := True;
-- indique si la commande envoyee a ete traitee et renvoyee correctement
Number_Of_The_Question : Natural := 0;
-- numero de la question envoyee par une tache
-- exemple : 5 eme question de la tache 1
The_Socket_Send : Transport_Defs.Socket_Id (1 .. 4) := (2, 6, 0, 4);
-- identite de la socket de la tache appelante
-- la valeur est fixe actuellement a 2604
-- elle pourra etre modifiee par la suite
The_Socket_Receive : Transport_Defs.Socket_Id (1 .. 4) :=
Our_Constantes.The_Orb.The_Socket;
-- identite de la socket de la tache a laquelle s'adresse le message
-- la valeur est fixe actuellement a 2604
-- elle pourra etre modifiee par la suite
The_Socket_To_Execute :
Transport_Defs.Socket_Id (1 .. 4) := (2, 6, 0, 4);
-- identite de la socket de la tache a laquelle la tache
--appelante veut faire executer sa demande
-- la valeur est fixe actuellement a 2604
-- elle pourra etre modifiee par la suite
end record;
end Message;
nblk1=6
nid=2
hdr6=8
[0x00] rec0=1b rec1=00 rec2=01 rec3=080
[0x01] rec0=12 rec1=00 rec2=03 rec3=05c
[0x02] rec0=16 rec1=00 rec2=06 rec3=00a
[0x03] rec0=08 rec1=00 rec2=04 rec3=000
[0x04] rec0=80 rec1=00 rec2=00 rec3=100
[0x05] rec0=43 rec1=ce rec2=bc rec3=167
tail 0x2154d50ac87bd4bc11442 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 05 00 24 80 0b 73 65 72 5f 52 65 63 65 69 76 ┆ $ ser_Receiv┆
0x5: 0000 00 00 00 17 80 14 69 6f 6e 20 3a 3d 20 28 32 2c ┆ ion := (2,┆