|
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: 19456 (0x4c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Gest_Buffer, seg_050bde
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Trame_Ihm_68;
with Objet_Generic;
with Bdd;
with Lecteur_68;
with General_Defs;
with Config_Cl35;
with Com_Cl35;
with Evenement_68;
with Com_Ihm;
with Buffer;
package body Gest_Buffer is
Max_Taille_Buff_Evt : constant Natural := 200;
Max_Evt_Lecteur : constant := 100;
package Pack_Buffer is new Buffer (Item => Evenement_68.Object,
Taille => Max_Taille_Buff_Evt);
Buff_Evt : Pack_Buffer.Object;
procedure Rapport_Lecteur_Cl35 (Lecteur : Objet_Generic.Object) is
use Config_Cl35;
Lec : Lecteur_68.Object;
Fin : Boolean := False;
begin
Lec := Objet_Generic.Get_Lecteur (Lecteur);
Com_Cl35.Ecriture (Cl35_Demande_Evenement (Lec));
while not Fin loop
declare
Rapport : constant General_Defs.Byte_String := Com_Cl35.Lecture;
begin
declare
Data : constant General_Defs.Byte_String :=
Get_Data_Rapport (Rapport);
Sum : Natural := Get_Size_Rapport (Bs => Rapport);
Evt : Evenement_68.Object;
P : Natural;
begin
if Sum = 1 then
Fin := True;
else
P := Data'First;
while P < Data'Last loop
Get_Evenement
(Data => Data (P .. Data'Last),
Lecteur => Lecteur_68.Get_Numero (Lec),
Evenement => Evt,
Indice_Fin => P);
Pack_Buffer.Add (Buff_Evt, Evt);
P := P + 1;
end loop;
if Sum /= Pas_La_Fin_Rapport_Evenement then
Fin := True;
end if;
end if;
end;
end;
if not Fin then
Com_Cl35.Ecriture (Config_Cl35.Cl35_Ack (Lec));
end if;
end loop;
end Rapport_Lecteur_Cl35;
procedure Charge_Buff_Evt is
use Bdd;
use Objet_Generic;
Lec : Objet_Generic.Object;
begin
First_Item (Lecteur);
while not End_Iter (Lecteur) loop
Lec := Current_Item (Lecteur);
Rapport_Lecteur_Cl35 (Lec);
Next_Item (Lecteur);
if Pack_Buffer.Empty_Places (Buff_Evt) < Max_Evt_Lecteur then
exit;
end if;
end loop;
end Charge_Buff_Evt;
procedure Rapport_Cl35 is
Evt : Evenement_68.Object;
Trame : Trame_Ihm_68.Object;
begin
if Pack_Buffer.Is_Empty (Buff_Evt) then
Charge_Buff_Evt;
if Pack_Buffer.Is_Empty (Buff_Evt) then
Trame_Ihm_68.Create (O => Trame,
Action => Trame_Ihm_68.Fin_Rapport);
else
Pack_Buffer.Get (Buff_Evt, Evt);
Trame_Ihm_68.Create (O => Trame,
Action => Trame_Ihm_68.Creation,
Type_Objet => Trame_Ihm_68.Evenement,
S => Evenement_68.Image (O => Evt));
end if;
else
Pack_Buffer.Get (Buff_Evt, Evt);
Trame_Ihm_68.Create (O => Trame,
Action => Trame_Ihm_68.Creation,
Type_Objet => Trame_Ihm_68.Evenement,
S => Evenement_68.Image (O => Evt));
end if;
Com_Ihm.Ecriture (Trame_Ihm_68.Image (Trame));
end Rapport_Cl35;
end Gest_Buffer;
nblk1=12
nid=5
hdr6=a
[0x00] rec0=23 rec1=00 rec2=01 rec3=044
[0x01] rec0=09 rec1=00 rec2=03 rec3=016
[0x02] rec0=1a rec1=00 rec2=11 rec3=034
[0x03] rec0=20 rec1=00 rec2=12 rec3=006
[0x04] rec0=0e rec1=00 rec2=0d rec3=000
[0x05] rec0=17 rec1=00 rec2=07 rec3=00e
[0x06] rec0=13 rec1=00 rec2=0b rec3=02a
[0x07] rec0=1b rec1=00 rec2=0a rec3=020
[0x08] rec0=01 rec1=00 rec2=10 rec3=002
[0x09] rec0=13 rec1=00 rec2=02 rec3=020
[0x0a] rec0=19 rec1=00 rec2=08 rec3=062
[0x0b] rec0=1a rec1=00 rec2=0c rec3=028
[0x0c] rec0=1b rec1=00 rec2=06 rec3=00e
[0x0d] rec0=1a rec1=00 rec2=05 rec3=020
[0x0e] rec0=1e rec1=00 rec2=03 rec3=016
[0x0f] rec0=1a rec1=00 rec2=11 rec3=034
[0x10] rec0=20 rec1=00 rec2=12 rec3=006
[0x11] rec0=0e rec1=00 rec2=0d rec3=000
tail 0x2154afd08878f7fd290f6 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 06 00 70 80 12 20 20 20 20 20 20 20 20 20 20 ┆ p ┆
0x6: 0000 00 08 03 fc 80 0b 4c 65 63 74 65 75 72 29 3b 20 ┆ Lecteur); ┆
0x8: 0000 00 0c 00 58 80 2f 4c 5f 5a 2c 20 50 6c 61 2c 20 ┆ X /L_Z, Pla, ┆
0xc: 0000 00 02 03 fc 80 07 4f 62 6a 65 63 74 3b 07 00 0b ┆ Object; ┆
0x2: 0000 00 10 03 fc 80 28 20 20 20 20 20 20 20 43 61 72 ┆ ( Car┆
0x10: 0000 00 0a 00 34 80 2d 76 61 6c 69 64 65 5f 43 61 72 ┆ 4 -valide_Car┆
0xa: 0000 00 0b 03 fc 80 1c 5f 47 65 6e 65 72 69 63 2e 43 ┆ _Generic.C┆
0xb: 0000 00 07 03 fc 80 2c 20 20 20 20 20 20 20 20 20 4f ┆ , O┆
0x7: 0000 00 0e 03 fc 80 0e 5f 36 38 2e 4f 62 6a 65 63 74 ┆ _68.Object┆
0xe: 0000 00 04 01 5f 80 0f 4f 62 6a 65 74 20 28 54 72 61 ┆ _ Objet (Tra┆
0x4: 0000 00 09 03 fc 80 1c 20 20 20 20 20 20 20 43 72 65 ┆ Cre┆
0x9: 0000 00 0f 00 fe 80 12 3d 20 50 68 61 73 65 5f 44 65 ┆ = Phase_De┆
0xf: 0000 00 00 00 05 00 02 20 20 02 20 70 72 6f 63 65 64 ┆ proced┆