|
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 Choix_Trt, seg_050733
└─⟦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 Lecteur_Zone_68;
with Acces_68;
with Plage_68;
with Carte_Groupe_68;
with Carte_68;
with General_Defs;
with Config_Cl35;
with Conversion;
with Com_Cl35;
with Ss_Zone_68;
with Zone_68;
with Evenement_68;
with Com_Ihm;
with Jj_Hh_Mm_68;
with Buffer;
with Heure;
package body Choix_Trt 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;
type T_Action_En_Cours is (Debut, Phase_De_Config, Fonctionnement_Normal);
Action_En_Cours : T_Action_En_Cours := Debut;
function Trame_Ihm_To_Objet_Generic
(Trame : Trame_Ihm_68.Object) return Objet_Generic.Object;
procedure Creation_Bdd (Trame : Trame_Ihm_68.Object);
procedure Modification_Bdd (Trame : Trame_Ihm_68.Object);
procedure Suppression_Bdd (Trame : Trame_Ihm_68.Object);
procedure Programmation_Config;
procedure Rapport_Cl35;
procedure Aiguillage_Error is
Trame : Trame_Ihm_68.Object;
begin
Trame_Ihm_68.Create (O => Trame, Action => Trame_Ihm_68.Nack);
Com_Ihm.Ecriture (Trame_Ihm_68.Image (Trame));
end Aiguillage_Error;
procedure Aiguillage (S : String) is
use Trame_Ihm_68;
Trame : Trame_Ihm_68.Object;
begin
Trame := Trame_Ihm_68.Value (S);
case Action_En_Cours is
when Debut =>
if Get_Action (Trame) = Config then
Action_En_Cours := Phase_De_Config;
else
Aiguillage_Error;
end if;
when Phase_De_Config =>
case Get_Action (Trame) is
when Creation =>
Creation_Bdd (Trame);
when Suppression =>
Suppression_Bdd (Trame);
when Modification =>
Modification_Bdd (Trame);
when Fin_Config =>
Programmation_Config;
Action_En_Cours := Fonctionnement_Normal;
when others =>
Aiguillage_Error;
end case;
when Fonctionnement_Normal =>
case Get_Action (Trame) is
when Config =>
Action_En_Cours := Phase_De_Config;
when Rapport =>
Rapport_Cl35;
when others =>
Aiguillage_Error;
end case;
end case;
end Aiguillage;
function Trame_Ihm_To_Objet_Generic
(Trame : Trame_Ihm_68.Object) return Objet_Generic.Object is
O : Objet_Generic.Object;
begin
Objet_Generic.Create
(O => O,
Type_Objet =>
Objet_Generic.T_Type_Objet (Trame_Ihm_68.Get_Type_Objet (Trame)),
S => Trame_Ihm_68.Get_Chaine (Trame));
return O;
end Trame_Ihm_To_Objet_Generic;
procedure Creation_Bdd (Trame : Trame_Ihm_68.Object) is
begin
Bdd.Add_Item (Trame_Ihm_To_Objet_Generic (Trame));
end Creation_Bdd;
procedure Modification_Bdd (Trame : Trame_Ihm_68.Object) is
use Trame_Ihm_68;
Trame_Mod_Error : exception;
P : Natural;
Og1, Og2 : Objet_Generic.Object;
S : constant String := Get_Chaine (Trame);
Lecteur1, Lecteur2 : Lecteur_68.Object;
Carte1, Carte2 : Carte_68.Object;
Plage1, Plage2 : Plage_68.Object;
Acces1, Acces2 : Acces_68.Object;
L_Z1, L_Z2 : Lecteur_Zone_68.Object;
C_G1, C_G2 : Carte_Groupe_68.Object;
begin
case Get_Type_Objet (Trame) is
when Lecteur =>
Lecteur_68.Value (S, Lecteur1, P);
Lecteur_68.Value (S (P + 1 .. S'Last), Lecteur2, P);
Objet_Generic.Create (Og1, Lecteur1);
Objet_Generic.Create (Og2, Lecteur2);
Bdd.Mod_Item (Item => Og1, Par => Og2);
when Plage =>
Plage_68.Value (S, Plage1, P);
Plage_68.Value (S (P + 1 .. S'Last), Plage2, P);
Objet_Generic.Create (Og1, Plage1);
Objet_Generic.Create (Og2, Plage2);
Bdd.Mod_Item (Item => Og1, Par => Og2);
when Acces =>
Acces_68.Value (S, Acces1, P);
Acces_68.Value (S (P + 1 .. S'Last), Acces2, P);
Objet_Generic.Create (Og1, Acces1);
Objet_Generic.Create (Og2, Acces2);
Bdd.Mod_Item (Item => Og1, Par => Og2);
when Carte =>
Carte_68.Value (S, Carte1, P);
Carte_68.Value (S (P + 1 .. S'Last), Carte2, P);
Objet_Generic.Create (Og1, Carte1);
Objet_Generic.Create (Og2, Carte2);
Bdd.Mod_Item (Item => Og1, Par => Og2);
when Lecteur_Zone =>
Lecteur_Zone_68.Value (S, L_Z1, P);
Lecteur_Zone_68.Value (S (P + 1 .. S'Last), L_Z2, P);
Objet_Generic.Create (Og1, L_Z1);
Objet_Generic.Create (Og2, L_Z2);
Bdd.Mod_Item (Item => Og1, Par => Og2);
when Carte_Groupe =>
Carte_Groupe_68.Value (S, C_G1, P);
Carte_Groupe_68.Value (S (P + 1 .. S'Last), C_G2, P);
Objet_Generic.Create (Og1, C_G1);
Objet_Generic.Create (Og2, C_G2);
Bdd.Mod_Item (Item => Og1, Par => Og2);
when Horaire =>
Heure.Set (Jj_Hh_Mm_68.Value (S));
when others =>
raise Trame_Mod_Error;
end case;
end Modification_Bdd;
procedure Suppression_Bdd (Trame : Trame_Ihm_68.Object) is
begin
Bdd.Rem_Item (Trame_Ihm_To_Objet_Generic (Trame));
end Suppression_Bdd;
procedure Lecture_Cl35 is
Bs : constant General_Defs.Byte_String := Com_Cl35.Lecture;
begin
null;
--Text_Io.Put_Line (Conversion.Image_Hex (Bs));
end Lecture_Cl35;
procedure Invalide_Carte (Lecteur : Lecteur_68.Object) is Carte1, Carte2 : Carte_68.Object;
Plage : Plage_68.Object;
Ss_Zone : Ss_Zone_68.Object;
begin
Carte_68.Create (O => Carte1, Numero => Carte_68.T_Carte'First);
Carte_68.Create (O => Carte2, Numero => Carte_68.T_Carte'Last);
Ss_Zone_68.Initialise (Ss_Zone);
Plage_68.Create (O => Plage,
Numero => Plage_68.T_Plage'First,
Zone => Zone_68.T_Zone'First,
Per_1 => Ss_Zone,
Per_2 => Ss_Zone,
Per_3 => Ss_Zone);
for I in Plage_68.T_Plage'First .. Plage_68.T_Plage'Last loop
Plage_68.Set_Numero (Plage, I);
Com_Cl35.Ecriture
(Config_Cl35.Cl35_Invalide_Groupe_Carte (De_La_Carte => Carte1,
A_La_Carte => Carte2,
Plage => Plage,
Lecteur => Lecteur));
Lecture_Cl35;
end loop;
end Invalide_Carte;
procedure Programmation_Lecteur (Lecteur : Objet_Generic.Object) is
Lect : Lecteur_68.Object;
begin
Lect := Objet_Generic.Get_Lecteur (Lecteur);
Invalide_Carte (Lect);
Com_Cl35.Ecriture (Config_Cl35.Cl35_Parametre (Lect));
Lecture_Cl35;
Com_Cl35.Ecriture (Config_Cl35.Cl35_Site (Lect));
Lecture_Cl35;
Com_Cl35.Ecriture (Config_Cl35.Cl35_Jjhhmm (Lect, Heure.Get));
Lecture_Cl35;
Com_Cl35.Ecriture (Config_Cl35.Cl35_Beep (Lect));
Lecture_Cl35;
end Programmation_Lecteur;
procedure Programmation_Plage (Lecteur : Objet_Generic.Object;
Plage : Objet_Generic.Object) is
Lec : Lecteur_68.Object;
Pla : Plage_68.Object;
begin
Lec := Objet_Generic.Get_Lecteur (Lecteur);
Pla := Objet_Generic.Get_Plage (Plage);
Com_Cl35.Ecriture (Config_Cl35.Cl35_Plage (Lec, Pla));
Lecture_Cl35;
end Programmation_Plage;
procedure Programmation_Carte (Lecteur : Objet_Generic.Object;
Carte : Objet_Generic.Object;
Plage : Objet_Generic.Object) is
Lec : Lecteur_68.Object;
Car : Carte_68.Object;
Pla : Plage_68.Object;
begin
Lec := Objet_Generic.Get_Lecteur (Lecteur);
Car := Objet_Generic.Get_Carte (Carte);
Pla := Objet_Generic.Get_Plage (Plage);
Com_Cl35.Ecriture (Config_Cl35.Cl35_Valide_Carte (Car, Pla, Lec));
Lecture_Cl35;
end Programmation_Carte;
procedure Programmation_Config is
use Objet_Generic;
use Bdd;
Lec, L_Z, Pla, Acc, C_G, Car : Objet_Generic.Object;
begin
First_Item (Lecteur);
while not End_Iter (Lecteur) loop
Lec := Current_Item (Lecteur);
Programmation_Lecteur (Lec);
Next_Item (Lecteur);
end loop;
First_Item (Acces);
while not End_Iter (Acces) loop
Acc := Current_Item (Acces);
First_Item (Lecteur_Zone, Acces_68.Get_Zone (Get_Acces (Acc)));
while not End_Iter (Lecteur_Zone) loop
L_Z := Current_Item (Lecteur_Zone);
First_Item (Plage, Lecteur_Zone_68.Get_Zone
(Get_Lecteur_Zone (L_Z)));
while not End_Iter (Plage) loop
Pla := Current_Item (Plage);
First_Item (Lecteur, Lecteur_Zone_68.Get_Lecteur
(Get_Lecteur_Zone (L_Z)));
if not End_Iter (Lecteur) then
Lec := Current_Item (Lecteur);
Programmation_Plage (Lecteur => Lec, Plage => Pla);
First_Item (Carte_Groupe,
Acces_68.Get_Groupe (Get_Acces (Acc)));
while not End_Iter (Carte_Groupe) loop
C_G := Current_Item (Carte_Groupe);
First_Item (Carte, Carte_Groupe_68.Get_Carte
(Get_Carte_Groupe (C_G)));
if not End_Iter (Carte) then
Car := Current_Item (Carte);
Programmation_Carte
(Lecteur => Lec, Carte => Car, Plage => Pla);
end if;
Next_Item (Carte_Groupe);
end loop;
end if;
Next_Item (Plage);
end loop;
Next_Item (Lecteur_Zone);
end loop;
Next_Item (Acces);
end loop;
end Programmation_Config;
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 Choix_Trt;
nblk1=12
nid=f
hdr6=22
[0x00] rec0=26 rec1=00 rec2=01 rec3=004
[0x01] rec0=1b rec1=00 rec2=09 rec3=022
[0x02] rec0=18 rec1=00 rec2=04 rec3=080
[0x03] rec0=11 rec1=00 rec2=0e rec3=062
[0x04] rec0=17 rec1=00 rec2=07 rec3=00e
[0x05] rec0=13 rec1=00 rec2=0b rec3=02a
[0x06] rec0=1b rec1=00 rec2=0a rec3=020
[0x07] rec0=01 rec1=00 rec2=10 rec3=002
[0x08] rec0=13 rec1=00 rec2=02 rec3=020
[0x09] rec0=19 rec1=00 rec2=08 rec3=062
[0x0a] rec0=1a rec1=00 rec2=0c rec3=028
[0x0b] rec0=1b rec1=00 rec2=06 rec3=00e
[0x0c] rec0=1a rec1=00 rec2=05 rec3=020
[0x0d] rec0=1e rec1=00 rec2=03 rec3=016
[0x0e] rec0=1a rec1=00 rec2=11 rec3=034
[0x0f] rec0=20 rec1=00 rec2=12 rec3=006
[0x10] rec0=0e rec1=00 rec2=0d rec3=000
[0x11] rec0=00 rec1=00 rec2=00 rec3=000
tail 0x2154ae600878d570df8d6 0x42a00088462060003
Free Block Chain:
0xf: 0000 00 00 01 96 00 1d 20 20 20 20 70 72 6f 63 65 64 ┆ proced┆