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: ┃ T V ┃

⟦fed3c1100⟧ TextFile

    Length: 2012 (0x7dc)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Text_Io;

with Pile_Lex;  
use Pile_Lex;


with Pile;


with Table_Symbole;  
use Table_Symbole;

with Les_Types;
use Les_Types;


with Elementary_Functions;
use Elementary_Functions;


with Arbre_Abstrait_Types;
use Arbre_Abstrait_Types;


package Calcul is

    Arbre_Abstrait_Activer : Arbre_Abstrait_Types.L_Arbre_Abstrait.Pnoeud :=
       Arbre_Abstrait_Types.L_Arbre_Abstrait.Creer_Noeud
          (Effet, Arbre_Abstrait_Types.L_Arbre_Abstrait.Creer_Feuille
                     (Binaire, null),
           Arbre_Abstrait_Types.L_Arbre_Abstrait.Creer_Feuille (Vide, null));



    Object_Reg : Table_Symbole.Pobject;
    Object_Fonct : Table_Symbole.Pobject (Fonction);
    Object_Effet : Table_Symbole.Pobject (Effet);
    Object_Inconnu : Table_Symbole.Pobject;

    package Pile_Entiers is new Pile (Item => Natural);  
    Stack : Pile_Entiers.Object (1000);
    package Addresseur is new Pile (Item => Les_Types.Ptr_String);  
    Nom : Les_Types.Ptr_String;

    Stacka : Addresseur.Object (1000);


    package Float_Texte is new Text_Io.Float_Io (Float);



    procedure Parse_Error (Afile : Text_Io.File_Type);

    function Parse_Passage_Parametres
                (Afile : Text_Io.File_Type;
                 Atime : Duration;
                 Nom_Ssprg : Les_Types.Ptr_String) return Boolean;
    function Parse_Inst
                (Afile : Text_Io.File_Type; Atime : in Duration) return Boolean;


    procedure Parse_Fact (Ok : out Boolean;
                          Value : out Les_Types.Type_Value;
                          Afile : Text_Io.File_Type;
                          Atime : Duration);

    procedure Parse_Expr (Ok : out Boolean;
                          Value : out Les_Types.Type_Value;
                          Afile : Text_Io.File_Type;
                          Atime : Duration);

    procedure Parse_Expr_Bool (Val_Boolean : in out Boolean;
                               Afile : Text_Io.File_Type;
                               Atime : Duration);


end Calcul;