|
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: 13312 (0x3400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test, seg_04e565
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Site_68;
with Zone_68;
with Groupe_68;
with Carte_68;
with Parametre_68;
with Lecteur_68;
with Horaire_68;
with Semaine_68;
with Ss_Zone_68;
with Plage_68;
with Acces_68;
with Lecteur_Zone_68;
with Carte_Groupe_68;
with Jj_Hh_Mm_68;
with Evenement_68;
with Text_Io;
use Text_Io;
procedure Test is
Num : Natural;
procedure Test_Site_68 (N : Natural) is
O1, O2 : Site_68.Object;
begin
Site_68.Create (O => O1, N => N);
declare
S : constant String := Site_68.Image (O => O1);
begin
Put_Line (S);
O2 := Site_68.Value (S => S);
Put_Line (Site_68.Image (O => O2));
end;
end Test_Site_68;
procedure Test_Zone_68 (S : String; N : Natural) is
O1, O2 : Zone_68.Object;
begin
Zone_68.Create (O => O1, Nom => S, Numero => N);
declare
S2 : constant String := Zone_68.Image (O => O1);
begin
Put_Line (S2);
O2 := Zone_68.Value (S => S2);
Put_Line (Zone_68.Image (O => O2));
end;
end Test_Zone_68;
procedure Test_Groupe_68 (S : String; N : Natural) is
O1, O2 : Groupe_68.Object;
begin
Groupe_68.Create (O => O1, Nom => S, Numero => N);
declare
S2 : constant String := Groupe_68.Image (O => O1);
begin
Put_Line (S2);
O2 := Groupe_68.Value (S => S2);
Put_Line (Groupe_68.Image (O => O2));
end;
end Test_Groupe_68;
procedure Test_Carte_68 (N : Natural) is
O1, O2 : Carte_68.Object;
begin
Carte_68.Create (O => O1, Numero => N);
declare
S : constant String := Carte_68.Image (O => O1);
begin
Put_Line (S);
O2 := Carte_68.Value (S => S);
Put_Line (Carte_68.Image (O => O2));
end;
end Test_Carte_68;
procedure Test_Parametre_68 is
Tempo : Parametre_68.T_Tempo := 25;
Apb : Parametre_68.T_Apb := Parametre_68.Actif;
Veille : Parametre_68.T_Veille := Parametre_68.En_Veille;
Entree_Tor : Parametre_68.T_Entree_Tor := Parametre_68.Contact;
Evenement : Parametre_68.T_Evenement := Parametre_68.Tous;
O1, O2 : Parametre_68.Object;
begin
Parametre_68.Create (O => O1,
Tempo => Tempo,
Apb => Apb,
Veille => Veille,
Entree_Tor => Entree_Tor,
Evenement => Evenement);
declare
S : constant String := Parametre_68.Image (O => O1);
begin
Put_Line (S);
O2 := Parametre_68.Value (S => S);
Put_Line (Parametre_68.Image (O => O2));
end;
end Test_Parametre_68;
procedure Test_Lecteur_68 (N : Natural) is
Site : Site_68.Object;
Parametre : Parametre_68.Object;
O1, O2 : Lecteur_68.Object;
Tempo : Parametre_68.T_Tempo := 25;
Apb : Parametre_68.T_Apb := Parametre_68.Actif;
Veille : Parametre_68.T_Veille := Parametre_68.En_Veille;
Entree_Tor : Parametre_68.T_Entree_Tor := Parametre_68.Contact;
Evenement : Parametre_68.T_Evenement := Parametre_68.Tous;
begin
Parametre_68.Create (O => Parametre,
Tempo => Tempo,
Apb => Apb,
Veille => Veille,
Entree_Tor => Entree_Tor,
Evenement => Evenement);
Site_68.Create (O => Site, N => 23);
Lecteur_68.Create
(O => O1, Numero => N, Site => Site, Parametre => Parametre);
declare
S : constant String := Lecteur_68.Image (O => O1);
begin
Put_Line (S); O2 := Lecteur_68.Value (S => S);
Put_Line (Lecteur_68.Image (O => O2));
end;
end Test_Lecteur_68;
procedure Test_Horaire_68 is
O1, O2 : Horaire_68.Object;
begin
Horaire_68.Create (O => O1, Heure => 10, Minute => 24);
declare
S : constant String := Horaire_68.Image (O => O1);
begin
Put_Line (S);
O2 := Horaire_68.Value (S => S);
Put_Line (Horaire_68.Image (O => O2));
end;
end Test_Horaire_68;
procedure Test_Semaine_68 is
O1, O2 : Semaine_68.Object;
begin
Semaine_68.Create_Semaine_Vide (O => O1);
Semaine_68.Ajout_Jour (O => O1, Jour => Semaine_68.Lundi);
Put_Line (Semaine_68.Image (O => O1));
Semaine_68.Create_Semaine_Pleine (O => O1);
Semaine_68.Suppr_Jour (O => O1, Jour => Semaine_68.Lundi);
Put_Line (Semaine_68.Image (O => O1));
declare
S2 : constant String := Semaine_68.Image (O => O1);
begin
Put_Line (S2);
O2 := Semaine_68.Value (S => S2);
Put_Line (Semaine_68.Image (O => O2));
end;
end Test_Semaine_68;
procedure Test_Ss_Zone_68 is
O1, O2 : Ss_Zone_68.Object;
Deb1, Fin1, Deb2, Fin2 : Horaire_68.Object;
Sem : Semaine_68.Object;
begin
Horaire_68.Create (O => Deb1, Heure => 1, Minute => 1);
Horaire_68.Create (O => Fin1, Heure => 2, Minute => 2);
Horaire_68.Create (O => Deb2, Heure => 3, Minute => 3);
Horaire_68.Create (O => Fin2, Heure => 4, Minute => 4);
Semaine_68.Create_Semaine_Vide (O => Sem);
Semaine_68.Ajout_Jour (O => Sem, Jour => Semaine_68.Lundi);
Ss_Zone_68.Create (O => O1,
Deb_1 => Deb1,
Fin_1 => Fin1,
Deb_2 => Deb2,
Fin_2 => Fin2,
Jour_Sem => Sem);
declare
S : constant String := Ss_Zone_68.Image (O => O1);
begin
Put_Line (S);
O2 := Ss_Zone_68.Value (S => S);
Put_Line (Ss_Zone_68.Image (O => O2));
end;
end Test_Ss_Zone_68;
procedure Test_Plage_68 is
O1, O2 : Plage_68.Object;
S1, S2 : Ss_Zone_68.Object;
Deb1, Fin1, Deb2, Fin2 : Horaire_68.Object;
Sem : Semaine_68.Object;
begin
Horaire_68.Create (O => Deb1, Heure => 1, Minute => 1);
Horaire_68.Create (O => Fin1, Heure => 2, Minute => 2);
Horaire_68.Create (O => Deb2, Heure => 3, Minute => 3);
Horaire_68.Create (O => Fin2, Heure => 4, Minute => 4);
Semaine_68.Create_Semaine_Vide (O => Sem);
Semaine_68.Ajout_Jour (O => Sem, Jour => Semaine_68.Mercredi);
Ss_Zone_68.Create (O => S1,
Deb_1 => Deb1,
Fin_1 => Fin1,
Deb_2 => Deb2,
Fin_2 => Fin2,
Jour_Sem => Sem);
Ss_Zone_68.Initialise (O => S2);
Plage_68.Create (O => O1,
Numero => 2,
Zone => 5,
Per_1 => S1,
Per_2 => S2,
Per_3 => S2);
declare
S : constant String := Plage_68.Image (O => O1);
begin
Put_Line (S);
O2 := Plage_68.Value (S => S);
Put_Line (Plage_68.Image (O => O2));
end;
end Test_Plage_68;
procedure Test_Acces_68 is
O1, O2 : Acces_68.Object;
begin
Acces_68.Create (O => O1, Zone => 12, Plage => 8, Groupe => 14);
declare
S : constant String := Acces_68.Image (O => O1);
begin
Put_Line (S);
O2 := Acces_68.Value (S => S);
Put_Line (Acces_68.Image (O => O2));
end;
end Test_Acces_68;
procedure Test_Lecteur_Zone_68 is
O1, O2 : Lecteur_Zone_68.Object;
begin
Lecteur_Zone_68.Create (O => O1, Lecteur => 12, Zone => 5);
declare
S : constant String := Lecteur_Zone_68.Image (O => O1);
begin
Put_Line (S);
O2 := Lecteur_Zone_68.Value (S => S);
Put_Line (Lecteur_Zone_68.Image (O => O2));
end;
end Test_Lecteur_Zone_68;
procedure Test_Carte_Groupe_68 is
O1, O2 : Carte_Groupe_68.Object;
begin
Carte_Groupe_68.Create (O => O1, Carte => 23, Groupe => 67);
declare
S : constant String := Carte_Groupe_68.Image (O => O1);
begin
Put_Line (S);
O2 := Carte_Groupe_68.Value (S => S);
Put_Line (Carte_Groupe_68.Image (O => O2));
end;
end Test_Carte_Groupe_68;
procedure Test_Evenement_68 is
O1, O2 : Evenement_68.Object;
H : Horaire_68.Object;
J : Jj_Hh_Mm_68.Object;
begin
Horaire_68.Create (O => H, Heure => 10, Minute => 34);
Jj_Hh_Mm_68.Create (O => J, Jour => Jj_Hh_Mm_68.Jeudi, Horaire => H);
Evenement_68.Create (O => O1,
Lecteur => 12,
Carte => 3456,
Statut => Evenement_68.Coupure_Secteur,
Jjhhmm => J,
Tete => Evenement_68.Tete_Principale);
declare
S : constant String := Evenement_68.Image (O1);
begin
Put_Line (S);
O2 := Evenement_68.Value (S);
Put_Line (Evenement_68.Image (O2));
end;
end Test_Evenement_68;
begin
Num := 10;
declare
Nom : constant String := "Bidule";
begin
Test_Site_68 (N => Num);
Test_Zone_68 (S => Nom, N => Num);
Test_Groupe_68 (S => Nom, N => Num);
Test_Carte_68 (N => Num);
end;
Num := 25;
declare
Nom : constant String :=
"long libelle de plus de 30 caracteres ..........";
begin
Test_Site_68 (N => Num);
Test_Zone_68 (S => Nom, N => Num);
Test_Groupe_68 (S => Nom, N => Num);
Test_Carte_68 (N => Num);
end;
Test_Parametre_68;
Test_Lecteur_68 (N => 34);
Test_Horaire_68;
Test_Semaine_68;
Test_Ss_Zone_68;
Test_Plage_68;
Test_Acces_68;
Test_Lecteur_Zone_68;
Test_Carte_Groupe_68;
Test_Evenement_68;
end Test;
nblk1=c
nid=0
hdr6=18
[0x00] rec0=29 rec1=00 rec2=01 rec3=004
[0x01] rec0=01 rec1=00 rec2=0c rec3=008
[0x02] rec0=1d rec1=00 rec2=0a rec3=018
[0x03] rec0=17 rec1=00 rec2=08 rec3=00e
[0x04] rec0=18 rec1=00 rec2=05 rec3=002
[0x05] rec0=1a rec1=00 rec2=09 rec3=00e
[0x06] rec0=17 rec1=00 rec2=06 rec3=044
[0x07] rec0=18 rec1=00 rec2=04 rec3=012
[0x08] rec0=1b rec1=00 rec2=03 rec3=02a
[0x09] rec0=1b rec1=00 rec2=02 rec3=02e
[0x0a] rec0=1b rec1=00 rec2=07 rec3=03c
[0x0b] rec0=1b rec1=00 rec2=0b rec3=000
tail 0x21755d8d2876b8f8c5387 0x42a00088462060003