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

⟦c06bfe334⟧ TextFile

    Length: 2893 (0xb4d)
    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 Les_Types;
with Arbre_Abstrait_Types;
package Table_Symbole is
    use Les_Types;

    type Object (D : Les_Enumere_Des_Types := Registre);
    type Pobject is access Object;

    type Table_Objects is array (1 .. 10) of Pobject;

    type Object (D : Les_Enumere_Des_Types := Registre) is
        record
            Nom : Ptr_String := null;

            Le_Type : Les_Enumere_Des_Types := D;
            L_Arbre_Abstrait : Arbre_Abstrait_Types.L_Arbre_Abstrait.Pnoeud;

            Addresse : Natural := 0;

            case D is

                when Registre =>
                    Valeur : Float := 0.0;

                when Binaire =>
                    Valeurb : Boolean := True;
                when Discret =>
                    Valeurd : Natural := 0;
                when Fugitif =>
                    Valeurf : Natural := 0;
                when Temporel =>
                    Valeurt : Natural := 0;

                when Structure .. Effet =>
                    Etiquette : Natural := 0;
                    Nombre_Parametre : Natural := 0;
                    Parametre : Table_Objects := (others => null);
                    Valeur_Retour : Pobject := null;

                when others =>
                    null;

            end case;

        end record;

    procedure Inserer (Nom : Ptr_String;
                       Element : Pobject;
                       Ok : in out Boolean);
    procedure Rechercher (Nom : Ptr_String;
                          Element : in out Pobject;
                          Ok : in out Boolean);
    procedure Recherche_Si_Parametre_De (Nom : Ptr_String;
                                         Nom_Param : Ptr_String;
                                         Valeur : in out Pobject;
                                         Ok : in out Boolean);
    procedure Modifier (Nom : Ptr_String;
                        Element : in out Pobject;
                        Ok : in out Boolean);
    procedure Lire_Parametre_De (Nom : Ptr_String;
                                 Nom_Param : Ptr_String;
                                 Valeur : in out Pobject;
                                 Ok : in out Boolean);
    procedure Lire_Parametre_De (Nom : Ptr_String;
                                 Num_Param : Natural;
                                 Valeur : in out Pobject;
                                 Ok : in out Boolean);
    procedure Modifier_Parametre_De (Nom : Ptr_String;
                                     Nom_Param : Ptr_String;
                                     Valeur : in out Pobject;
                                     Ok : in out Boolean);
    procedure Modifier_Parametre_De (Nom : Ptr_String;
                                     Num_Param : Natural;
                                     Valeur : in out Pobject;
                                     Ok : in out Boolean);


private



end Table_Symbole;