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 ┃

⟦b0a42ff71⟧ TextFile

    Length: 4944 (0x1350)
    Types: TextFile
    Names: »V«

Derivation

└─⟦5829e5ed5⟧ Bits:30000534 8mm tape, Rational 1000, RCI 2_0_5
    └─ ⟦c9a165082⟧ »DATA« 
        └─⟦c3895f76e⟧ 
            └─⟦this⟧

TextFile

with Operational_Characteristics;
with Directory;
with Semantic_Characteristics;
with Simple_Status;
with Telnet_Characteristics;
with String_Map_Generic;
package Rci_Customization_Interface is

    pragma Module_Name (4, 4136);
    pragma Bias_Key (32);

    procedure Initialize (Target : String;
                          Status : in out Simple_Status.Condition);
    procedure Register
                 (Target : String;
                  The_Operational_Characteristics :
                     Operational_Characteristics.Object;
                  The_Predefined_Environment_Characteristics :
                     Semantic_Characteristics.
                        Predefined_Environment_Characteristics.Object;
                  The_Pragma_Characteristics :
                     Semantic_Characteristics.Pragma_Characteristics.Object :=
                     Semantic_Characteristics.
                        Pragma_Characteristics.Null_Object;
                  The_Attribute_Characteristics :
                     Semantic_Characteristics.
                        Attribute_Characteristics.Object :=
                     Semantic_Characteristics.
                        Attribute_Characteristics.Null_Object;
                  The_Rep_Spec_Characteristics :
                     Semantic_Characteristics.Rep_Spec_Characteristics.Object :=
                     Semantic_Characteristics.
                        Rep_Spec_Characteristics.Null_Object;
                  The_Telnet_Characteristics : Telnet_Characteristics.Object :=
                     Telnet_Characteristics.Null_Object;
                  Status : in out Simple_Status.Condition);


    -- Operational characteristics and predefined environment characteristics
    -- are required parameters and must not be null.  Pragma, Attribute, and
    -- Rep-Spec characteristics are optional.  If null values are supplied,
    -- no target-dependent checks will be made on pragmas, attributes, or
    -- rep specs.  (Thus all such entities will be accepted unless they
    -- violate rules to which all ada compilers must adhere).

    function Is_Registered (Target : String) return Boolean;


    procedure Unregister (Target : String;
                          Destroy : Boolean := False;
                          Status : in out Simple_Status.Condition);

    function Get (Target : Directory.Target_Key)
                 return Operational_Characteristics.Object;

    function Get (Target : Directory.Target_Key)
                 return Semantic_Characteristics.
                        Predefined_Environment_Characteristics.Object;
    function Get (Target : Directory.Target_Key)
                 return Semantic_Characteristics.Pragma_Characteristics.Object;
    function Get (Target : Directory.Target_Key)
                 return Semantic_Characteristics.
                        Attribute_Characteristics.Object;
    function Get (Target : Directory.Target_Key)
                 return Semantic_Characteristics.
                        Rep_Spec_Characteristics.Object;

    function Get (Target : Directory.Target_Key)
                 return Telnet_Characteristics.Object;

    Target_Not_Registered : exception;

    type Registered_Targets_Iterator is private;
    procedure Init (Iter : out Registered_Targets_Iterator);
    procedure Next (Iter : in out Registered_Targets_Iterator);
    function Done (Iter : Registered_Targets_Iterator) return Boolean;
    function Value (Iter : Registered_Targets_Iterator) return String;

private
    type Target_Info is
        record
            The_Operational_Characteristics :
               Operational_Characteristics.Object :=
               Operational_Characteristics.Null_Object;
            The_Predefined_Environment_Characteristics :
               Semantic_Characteristics.
                  Predefined_Environment_Characteristics.Object :=
               Semantic_Characteristics.
                  Predefined_Environment_Characteristics.Null_Object;
            The_Pragma_Characteristics : Semantic_Characteristics.
                                            Pragma_Characteristics.Object :=
               Semantic_Characteristics.Pragma_Characteristics.Null_Object;
            The_Attribute_Characteristics :
               Semantic_Characteristics.Attribute_Characteristics.Object :=
               Semantic_Characteristics.Attribute_Characteristics.Null_Object;
            The_Rep_Spec_Characteristics : Semantic_Characteristics.
                                              Rep_Spec_Characteristics.Object :=
               Semantic_Characteristics.Rep_Spec_Characteristics.Null_Object;
            The_Telnet_Characteristics : Telnet_Characteristics.Object :=
               Telnet_Characteristics.Null_Object;
        end record;

    package Target_Map is new String_Map_Generic (64, Target_Info);

    type Registered_Targets_Iterator is new Target_Map.Iterator;
end Rci_Customization_Interface;