⟦cfd1b574f⟧

E3 Source Code



with Operational_Characteristics;
with Semantic_Characteristics;

with Telnet_Characteristics;
package Rcf_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);

    -- 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...


    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 Rcf_Customization;
DataMuseum.dk

Rational R1000/400

⟦cfd1b574f⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
