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

⟦f913c18fc⟧ TextFile

    Length: 4746 (0x128a)
    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 Semantic_Characteristics;

with Telnet_Characteristics;
package Rci_Customization is

    procedure Create_Predefined_Library (Target_Key_Name : String);
    -- Build the predefined library structure for the Target_Key.
    -- The name of the predefined library root will be !Targets.Target_Key_Name,
    -- where Target_Key_Name is the string parameter above.
    --
    -- The predefined library structure contains the following directories:
    -- Io, Lrm, Reusable_Components and Target_Interface.  These directories
    -- will be empty when this routine has completed.
    --
    -- It is the customizer's responsibility to populate these directories
    -- with the specifications for the target compiler's predefined units.
    -- Minimally, the customizer must supply:  Package System,
    -- Package Machine_Code (optional), Unchecked_Conversion and
    -- Unchecked_Deallocation.  Valid specifications for these units must
    -- be supplied before Register is called.

    -- In addition, the customizer will want to include:  Package Calendar,
    -- Package Text_Io, etc... .  The customizer may provide the specification
    -- for any target unit that will be included, by default, during remote
    -- compilation.  Any of these units may be added to the predefined
    -- library after registration.

    --procedure Build_Model (Target_Key_Name : String);
    -- Given a Target_Key_Name for an existing predefined library structure,
    -- build a model for that library structure.  This should be called
    -- only after the predefined library strucuture has been populated.
    -- If units are added to the predefined library later, this procedure can
    -- be re-run.

    procedure Register
                 (Target : String;
                  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;
                  Allow_Standard_Rebuild : Boolean := False);

    -- This routine registers a new RCF Target.  A new target consists of:
    ---- A string target key name.
    ---- A predefined environment( Package Standard ....
    ---- An Rcf_Definitions record...
    -- If Allow_standard_rebuild is false but the standard version number
    -- is different than that of the existing package standard, then a
    -- warning will be printed and the operation abandoned.


    procedure Unregister (Target  : String;  
                          Destroy : Boolean := False);

    -- Unregister a target to the RCF.  In order to update a registered
    -- customization, set Destroy to false.   In order to permanantly
    -- unregister a customization, set Destroy to true.  When using
    -- updating, unregister the target, then execute all updates desired,
    -- and then call Reregister on the target.


    procedure Information
                 (Target                                         : String;
                  Display_Operational_Characteristics            : Boolean;
                  Display_Predefined_Environment_Characteristics : Boolean;
                  Display_Pragma_Characteristics                 : Boolean;
                  Display_Attribute_Characteristics              : Boolean;
                  Display_Rep_Spec_Characteristics               : Boolean;
                  Display_Telnet_Characteristics                 : Boolean);

    procedure Display_All_Registered_Targets;


    pragma Module_Name (4, 4135);

    pragma Bias_Key (32);

end Rci_Customization;