DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦dbda6e3e0⟧ TextFile

    Length: 1916 (0x77c)
    Types: TextFile
    Names: »B«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

with Motor_File;
use Motor_File;
with Text_Io;
use Text_Io;
with Motor_Etape;
use Motor_Etape;

procedure Test_File is
    An_Actor : Actor;
    N : Integer;
    T : Time;
    A : Action;
    F : File_Type;
begin
    Open (F, In_File, "essai_file_1");

    An_Actor := Read_An_Actor (F);
    Put_Line (Integer'Image (An_Actor));
    N := Read_Nb_Of_Step (F);
    Put_Line (Integer'Image (N));
    T := Read_A_Time (F);
    Put_Line (Integer'Image (T));
    A := Read_An_Action (F);
    Put_Line (Integer'Image (A));

    An_Actor := Read_An_Actor (F);
    Put_Line (Integer'Image (An_Actor));
    N := Read_Nb_Of_Step (F);
    Put_Line (Integer'Image (N));
    T := Read_A_Time (F);
    Put_Line (Integer'Image (T));
    A := Read_An_Action (F);
    Put_Line (Integer'Image (A));

    Put_Line ("fin de lecture");
    Close (F);
    Open (F, Out_File, "essai_file_1");
    An_Actor := 10;
    Save_Actor (F, An_Actor);
    N := 11;
    Save_Nb_Action_Of_Role (F, N);
    T := 12;
    Save_Time (F, T);
    A := 13;
    Save_Action (F, A);
    Close (F);
    Open (F, In_File, "essai_file_1);");
    An_Actor := Read_An_Actor (F);
    Put_Line (Integer'Image (An_Actor));
    N := Read_Nb_Of_Step (F);
    Put_Line (Integer'Image (N));
    T := Read_A_Time (F);
    Put_Line (Integer'Image (T));
    A := Read_An_Action (F);
    Put_Line (Integer'Image (A));
    An_Actor := Read_An_Actor (F);
    Put_Line (Integer'Image (An_Actor));
    N := Read_Nb_Of_Step (F);
    Put_Line (Integer'Image (N));
    T := Read_A_Time (F);
    Put_Line (Integer'Image (T));
    A := Read_An_Action (F);
    Put_Line (Integer'Image (A));


    An_Actor := Read_An_Actor (F);
    Put_Line (Integer'Image (An_Actor));
    N := Read_Nb_Of_Step (F);
    Put_Line (Integer'Image (N));
    T := Read_A_Time (F);
    Put_Line (Integer'Image (T));
    A := Read_An_Action (F);
    Put_Line (Integer'Image (A));

    Close (F);
end Test_File;