|
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, package body Statistic, seg_036102, seg_0361aa, seg_03639a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Text_Io;
with Counter;
with Tiny_Talk;
with Object;
package body Statistic is
The_File : Text_Io.File_Type;
In_Write : Text_Io.File_Mode := Text_Io.Out_File;
type Infrench is (Vide, Entier, Booleen, Chaine, Tortue, Stylo, Bloc, Date);
procedure Create (Fichier_Name : String) is
begin
Text_Io.Create (File => The_File, Name => Fichier_Name);
end Create;
procedure Close is
begin
Text_Io.Close (The_File);
end Close;
procedure Write is
To_French : Infrench := Infrench'First;
begin
Create (Tiny_Talk.Get_Program & "_stat");
Text_Io.Set_Output (The_File);
Text_Io.Put_Line ("#Axes.");
for I in Object.Class'Succ (Object.Class'First) ..
Object.Class'Last loop
Text_Io.Put ("barre position: ");
Text_Io.Put (Integer'Image (Object.Class'Pos (I)));
Text_Io.Put (" hauteur: ");
Text_Io.Put (Integer'Image (Counter.Get_Messages (I)));
Text_Io.Put (" hauteurMax: ");
Text_Io.Put (Integer'Image (Counter.Get_Max_Message));
Text_Io.Put (" temps: ");
Text_Io.Put (Integer'Image (Counter.Get_Time (I)));
Text_Io.Put (" classe: ");
Text_Io.Put (Ascii.Quotation);
To_French := Infrench'Succ (To_French);
Text_Io.Put (Infrench'Image (To_French));
Text_Io.Put (Ascii.Quotation);
Text_Io.Put_Line (".");
end loop;
Text_Io.Put ("pour duree prendre ");
Text_Io.Put (Integer'Image (Counter.Get_Real_Time));
Text_Io.Put_Line (".");
Text_Io.Put ("pour nbMessages prendre ");
Text_Io.Put (Integer'Image (Counter.Get_Total_Messages));
Text_Io.Put_Line (".");
Text_Io.Put_Line ("Stylo TonY:600 TonX:20. ");
Text_Io.Put_Line ("pour txt prendre duree Image.");
Text_Io.Put ("Stylo Ecris: ");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put ("Duree reelle d'execution: ");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put ("&(txt)&");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put (" Seconde(s).");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put_Line (".");
Text_Io.Put_Line ("Stylo TonY:630. ");
Text_Io.Put_Line ("pour txt prendre nbMessages Image. ");
Text_Io.Put ("Stylo Ecris: ");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put ("Nombre total de message(s):");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put_Line ("&txt.");
Text_Io.Put_Line ("Stylo TonY: 660.");
Text_Io.Put_Line ("pour moyenne prendre (nbMessages/duree).");
Text_Io.Put_Line ("pour txt prendre moyenne Image. ");
Text_Io.Put (" Stylo Ecris:");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put ("Moyenne messages/secondes:");
Text_Io.Put (Ascii.Quotation);
Text_Io.Put ("&txt.");
Close;
end Write;
end Statistic;
nblk1=c
nid=2
hdr6=8
[0x00] rec0=1e rec1=00 rec2=01 rec3=03c
[0x01] rec0=15 rec1=00 rec2=06 rec3=05e
[0x02] rec0=17 rec1=00 rec2=0b rec3=048
[0x03] rec0=0a rec1=00 rec2=04 rec3=000
[0x04] rec0=0a rec1=00 rec2=04 rec3=000
[0x05] rec0=0d rec1=00 rec2=09 rec3=096
[0x06] rec0=19 rec1=00 rec2=07 rec3=052
[0x07] rec0=04 rec1=00 rec2=08 rec3=036
[0x08] rec0=15 rec1=00 rec2=0b rec3=03a
[0x09] rec0=17 rec1=00 rec2=04 rec3=01a
[0x0a] rec0=05 rec1=00 rec2=02 rec3=000
[0x0b] rec0=03 rec1=00 rec2=04 rec3=000
tail 0x21732fd1484dd85747c82 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 08 00 09 80 06 43 6c 61 73 73 27 06 28 41 73 ┆ Class' (As┆
0x8: 0000 00 07 00 05 80 02 49 6e 02 2e 50 75 74 20 28 22 ┆ In .Put ("┆
0x7: 0000 00 09 03 fc 80 01 3b 01 00 4c 2d 2d 20 20 20 20 ┆ ; L-- ┆
0x9: 0000 00 03 00 0e 80 0b 20 20 20 20 20 20 20 20 20 22 ┆ "┆
0x3: 0000 00 0a 00 1e 80 1b 72 20 73 20 70 72 65 6e 64 72 ┆ r s prendr┆
0xa: 0000 00 0c 00 25 80 22 50 75 74 5f 4c 69 6e 65 20 28 ┆ % "Put_Line (┆
0xc: 0000 00 05 00 15 80 12 20 20 20 20 20 20 20 20 54 65 ┆ Te┆
0x5: 0000 00 00 00 08 80 05 74 20 28 49 6e 05 00 0e 65 6e ┆ t (In en┆