|
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 Chargeur_Bdd, seg_050bcd
└─⟦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 Ss_Zone_68;
with Zone_68;
with Evenement_68;
with Jj_Hh_Mm_68;
with Heure;
package body Chargeur_Bdd is
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;
end Chargeur_Bdd;
nblk1=12
nid=e
hdr6=8
[0x00] rec0=25 rec1=00 rec2=01 rec3=062
[0x01] rec0=17 rec1=00 rec2=07 rec3=00e
[0x02] rec0=13 rec1=00 rec2=0b rec3=02a
[0x03] rec0=15 rec1=00 rec2=0a rec3=000
[0x04] rec0=11 rec1=00 rec2=0e rec3=062
[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 0x2154afc22878f7dbada01 0x42a00088462060003
Free Block Chain:
0xe: 0000 00 0d 00 37 00 00 00 00 31 20 20 20 20 70 72 6f ┆ 7 1 pro┆
0xd: 0000 00 12 03 ca 80 19 2e 49 73 5f 45 6d 70 74 79 20 ┆ .Is_Empty ┆
0x12: 0000 00 11 03 fc 00 23 20 20 20 20 20 20 20 20 4c 65 ┆ # Le┆
0x11: 0000 00 03 00 1a 80 17 20 20 20 20 20 75 73 65 20 4f ┆ use O┆
0x3: 0000 00 05 02 83 80 01 3b 01 00 39 20 20 20 20 20 20 ┆ ; 9 ┆
0x5: 0000 00 06 02 02 80 33 20 20 20 20 20 20 20 20 20 20 ┆ 3 ┆
0x6: 0000 00 08 03 fc 80 0b 4c 65 63 74 65 75 72 29 3b 20 ┆ Lecteur); ┆
0x8: 0000 00 0c 02 3a 80 07 4f 62 6a 65 63 74 3b 07 00 1e ┆ : Object; ┆
0xc: 0000 00 02 03 fc 80 30 33 35 2e 45 63 72 69 74 75 72 ┆ 035.Ecritur┆
0x2: 0000 00 10 03 fc 80 28 20 20 20 20 20 20 20 43 61 72 ┆ ( Car┆
0x10: 0000 00 04 00 34 80 2d 76 61 6c 69 64 65 5f 43 61 72 ┆ 4 -valide_Car┆
0x4: 0000 00 09 03 fc 80 1c 20 20 20 20 20 20 20 43 72 65 ┆ Cre┆
0x9: 0000 00 0f 01 5e 80 02 3d 3e 02 00 33 20 20 20 20 20 ┆ ^ => 3 ┆
0xf: 0000 00 00 00 05 00 02 20 20 02 20 70 72 6f 63 65 64 ┆ proced┆