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

⟦cefb2740a⟧ TextFile

    Length: 2093 (0x82d)
    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;
use Les_Types;
with Table_Symbole;
use Table_Symbole;
generic
package Pile_Controle_Generic is
    procedure Recherche_Si_Parametre_De (Nom : Les_Types.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 Lire_Etiquette_De (Nom : Ptr_String; Etiquette : out Natural);
    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);
    procedure Lire_Valeur_Retour_De (Nom : Ptr_String;
                                     Valeur : in out Pobject;
                                     Ok : in out Boolean);
    procedure Modifier_Valeur_Retour_De (Nom : Ptr_String;
                                         Valeur : in out Pobject;
                                         Ok : in out Boolean);
    procedure Empiler (Nom : Les_Types.Ptr_String; Ok : in out Boolean);
    procedure Empiler (Element : Table_Symbole.Pobject);
    function Depiler return Table_Symbole.Pobject;
    procedure Depiler;
end Pile_Controle_Generic;