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 - download
Index: ┃ B T ┃

⟦16699d1d5⟧ TextFile

    Length: 1541 (0x605)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Synt_Sem_Cal;
with Synt_Sem_Dds;
with Flot_Controle;
with Calcul;

with Text_Io;

with Pile_Lex;  
use Pile_Lex;


with Moteur;

procedure Test_Compilo_Spect is
    Temps_Debut_Spectacle : Duration := 0.0;

    Nom_Fichier : String (1 .. 256);  
    Long_Fichier : Natural;
    F : Text_Io.File_Type;  
    M : Text_Io.File_Mode := Text_Io.In_File;

    Ok : Boolean;

begin

    Text_Io.Put_Line (" Fichier ente : ");
    Text_Io.Get_Line (Nom_Fichier, Long_Fichier);
    Text_Io.Open (File => F,
                  Mode => M,
                  Name => Nom_Fichier (1 .. Long_Fichier),
                  Form => "");

    Text_Io.Reset (File => F, Mode => M);

    Pile_Lex.Lex_Open (F);
    Pile_Lex.Charge_Programme_Dans_Pile_Lex (F);

    Pile_Lex.Prg_Iterateur_A_Position (0);
    Lex_Next_Token (F);
    Text_Io.Put_Line (" synt_sem_dds debut ");

    Synt_Sem_Dds.Parse_Piece_Theatre (F);
    Text_Io.Put_Line (" fin analyse synt_sem_Dds");


    Flot_Controle.Reprendre_En_Arriere (F);
    Text_Io.Put_Line (" fin Reprise arriere ");
    Pile_Lex.Prg_Iterateur_A_Position (Synt_Sem_Dds.Le_Debut_Du_Spectacle - 2);

    Text_Io.Put_Line ("moteur debut ");

    Lex_Next_Token (F);
    Ok := Calcul.Parse_Inst (F, Temps_Debut_Spectacle);


    Text_Io.Put_Line ("   ");
    Text_Io.Put_Line ("moteur fin ");
    Text_Io.Put_Line ("   ");


    Text_Io.Close (F);


    Moteur.Go;
    Text_Io.Put_Line ("   ");
    Text_Io.Put_Line ("moteur fin ");
    Text_Io.Put_Line ("   ");


    -- Text_Io.Close (F);

end Test_Compilo_Spect;