|
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: 11264 (0x2c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Tableau, seg_056924
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Trame;
with Byte_Defs;
with Bounded_String;
with Tab_Util;
with Text_Io;
with Tableur;
procedure Test_Tableau is
Chaine_Temp : Bounded_String.Variable_String (1024);
Trame_Temp : Byte_Defs.Byte_String (1 .. 1024);
Test : Boolean;
Position : Positive;
Erreur : Boolean;
Valeur : Integer;
T : Tableur.Tache_Tableur;
begin
T.Init;
Text_Io.Put ("Tableau vide ? ");
T.Teste_Vide (Valeur);
Text_Io.Put_Line (Integer'Image (Valeur));
Text_Io.Put ("Tableau plein ? ");
T.Teste_Plein (Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Ajoute
(Trame.Fait_Trame
(69, Trame.Fait_Host_String (193, 54, 146, 132),
Trame.Fait_Socket_String (10, 46), 124,
Bounded_String.Value ("date($20$Bonjour$)" & Ascii.Nul)), Test);
Text_Io.Put ("Erreur ajoute date($20$Bonjour$) ? ");
Text_Io.Put_Line (Boolean'Image (Test));
Text_Io.Put ("Tableau vide ? ");
T.Teste_Vide (Valeur);
Text_Io.Put_Line (Integer'Image (Valeur));
Text_Io.Put ("Tableau plein ? ");
T.Teste_Plein (Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Ajoute
(Trame.Fait_Trame (1001, Trame.Fait_Host_String (194, 55, 147, 134),
Trame.Fait_Socket_String (11, 47), 666,
Bounded_String.Value ("heure($20$)" & Ascii.Nul)),
Test);
Text_Io.Put ("Erreur ajoute heure($20$) ? ");
Text_Io.Put_Line (Boolean'Image (Test));
Text_Io.Put ("Tableau vide ? ");
T.Teste_Vide (Valeur);
Text_Io.Put_Line (Integer'Image (Valeur));
Text_Io.Put ("Tableau plein ? ");
T.Teste_Plein (Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Ajoute
(Trame.Fait_Trame
(1000, Trame.Fait_Host_String (194, 55, 147, 134),
Trame.Fait_Socket_String (11, 47), 321,
Bounded_String.Value ("heure($20$03$56$fin$)" & Ascii.Nul)), Test);
Text_Io.Put ("Erreur ajoute heure($20$03$56$fin$) ? ");
Text_Io.Put_Line (Boolean'Image (Test));
Text_Io.Put ("Tableau vide ? ");
T.Teste_Vide (Valeur);
Text_Io.Put_Line (Integer'Image (Valeur));
Text_Io.Put ("Tableau plein ? ");
T.Teste_Plein (Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Fait_Trame (1, Trame_Temp);
T.Ajoute (Trame_Temp, Test);
Text_Io.Put ("Erreur ajoute (meme chose que index1) ? ");
Text_Io.Put_Line (Boolean'Image (Test));
Text_Io.Put ("Tableau vide ? ");
T.Teste_Vide (Valeur);
Text_Io.Put_Line (Integer'Image (Valeur));
Text_Io.Put ("Tableau plein ? ");
T.Teste_Plein (Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Trouve_Index (219, Valeur, Erreur);
Text_Io.Put ("Erreur recherche Requete 219 ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Valeur de l'Index associe: ");
Text_Io.Put_Line (Integer'Image (Valeur));
T.Trouve_Index (666, Valeur, Erreur);
Text_Io.Put ("Erreur recherche Requete 666 ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Valeur de l'Index associe: ");
Text_Io.Put_Line (Integer'Image (Valeur));
T.Insere_Integer (Valeur, 5, 667);
Text_Io.Put_Line ("L index 666 a ete change en 667");
T.Trouve_Index (666, Valeur, Erreur);
Text_Io.Put ("Erreur recherche Requete 666 ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Trouve_Index (667, Valeur, Erreur);
Text_Io.Put ("Erreur recherche Requete 667 ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Contenu du champ Commande: ");
T.Donne_String (Valeur, 6, Chaine_Temp);
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Insere_String (Valeur, 6, Bounded_String.Value
("operation($11$12$Treize$)"));
Text_Io.Put_Line
("Remplacement du contenu de Commande par : operation($11$12$Treize$) ");
Text_Io.Put ("Contenu du champ Commande: ");
T.Donne_String (Valeur, 6, Chaine_Temp);
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne (321, 2, Chaine_Temp, Erreur);
Text_Io.Put ("Erreur donne terme1 heure($20$03$56$fin$) ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Terme2 : ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne (321, 1, Chaine_Temp, Erreur);
Text_Io.Put ("Erreur donne terme2 heure($20$03$56$fin$) ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Terme1 : ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne (321, 4, Chaine_Temp, Erreur);
Text_Io.Put ("Erreur donne terme1 heure($20$03$56$fin$) ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Terme4 : ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne (321, 3, Chaine_Temp, Erreur);
Text_Io.Put ("Erreur donne terme2 heure($20$03$56$fin$) ? ");
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Terme3 : ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
Text_Io.Put ("Tableau plein ? ");
T.Teste_Plein (Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Erreur efface ? ");
T.Efface (3, Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
Text_Io.Put ("Tableau plein ? ");
T.Teste_Plein (Erreur);
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Trouve (Position,
Trame.Fait_Trame
(66, Trame.Fait_Host_String (193, 54, 146, 132),
Trame.Fait_Socket_String (10, 46), 456,
Bounded_String.Value ("date($22$Salut$)" & Ascii.Nul)),
5, Erreur);
Text_Io.Put ("Erreur trouve date($22$Salut$) ? ");
Text_Io.Put (Integer'Image (Position));
Text_Io.Put (" ");
Text_Io.Put_Line (Boolean'Image (Erreur));
T.Donne_String (2, 2, Chaine_Temp);
Text_Io.Put ("Index 2: Host: ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne_String (2, 3, Chaine_Temp);
Text_Io.Put ("Index 2: Socket: ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne_String (2, 6, Chaine_Temp);
Text_Io.Put ("Index 2: Commande: ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne_Contrat (2, Chaine_Temp);
Text_Io.Put ("Index 2: Contrat: ");
Text_Io.Put_Line (Bounded_String.Image (Chaine_Temp));
T.Donne_Integer (2, 1, Valeur);
Text_Io.Put ("Index 2: Type_Msg: ");
Text_Io.Put_Line (Integer'Image (Valeur));
T.Donne_Integer (2, 4, Valeur);
Text_Io.Put ("Index 2: Etat: ");
Text_Io.Put_Line (Integer'Image (Valeur));
T.Donne_Integer (2, 5, Valeur);
Text_Io.Put ("Index 2: Requete: ");
Text_Io.Put_Line (Integer'Image (Valeur));
T.Taille_Max (Valeur);
Text_Io.Put ("Taille Max.: ");
Text_Io.Put_Line (Integer'Image (Valeur));
T.Termine;
end Test_Tableau;
nblk1=a
nid=2
hdr6=12
[0x00] rec0=24 rec1=00 rec2=01 rec3=01e
[0x01] rec0=1a rec1=00 rec2=0a rec3=032
[0x02] rec0=1a rec1=00 rec2=05 rec3=02e
[0x03] rec0=14 rec1=00 rec2=08 rec3=084
[0x04] rec0=16 rec1=00 rec2=06 rec3=03c
[0x05] rec0=01 rec1=00 rec2=04 rec3=022
[0x06] rec0=1a rec1=00 rec2=09 rec3=00c
[0x07] rec0=19 rec1=00 rec2=07 rec3=028
[0x08] rec0=07 rec1=00 rec2=03 rec3=000
[0x09] rec0=0d rec1=00 rec2=07 rec3=000
tail 0x21762d17a87c48b330b7b 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 01 c3 80 0b 20 31 34 36 2c 20 31 33 33 29 ┆ 146, 133)┆