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 ┃

⟦d2da075fd⟧ TextFile

    Length: 1832 (0x728)
    Types: TextFile
    Names: »V«

Derivation

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦this⟧

TextFile

--
-- Install this release of the cross development facility.
--   Target_Key specifies the target that is to be installed.
--   Replace_Standard_If_Obsolete allows the package Standard for
--     the target to be replaced if it is obsolete.  If Standard is
--     replaced, then all Ada units for the target will be demoted
--     to source.  If Replace_Standard_If_Obsolete is False and the
--     Standard is found to be obsolete, then installation will fail.
--   Uncode_All_Units will cause all Ada units for the target to be
--     uncoded.
--   Source_All_Units will cause all Ada units for the target to be
--     demoted to source.
--   Reinstall(Recode)_Customer_Units controls whether those units that
--     are demoted as a result of changing Standard or replacing units
--     from archive should be reinstalled and/or recoded.
--   Replace_From_Archive is a naming expression for those units that
--     must be replaced while installing this release; a null string
--     indicates that no units are to be replaced.
--   Delete_From_Predefined is a naming expression for those units
--     which should be deleted from the predefined directories for
--     the target.
--

procedure Install_Product (Target_Key : String := "Mc68020_Os2000";
                           Replace_Standard_If_Obsolete : Boolean := True;
                           Uncode_All_Units : Boolean := True;
                           Source_All_Units : Boolean := False;
                           Reinstall_Customer_Units : Boolean := False;
                           Recode_Customer_Units : Boolean := False;
                           Replace_From_Archive : String := "<DEFAULT>";
                           Delete_From_Predefined : String := "<DEFAULT>";
                           Log_File : String := "Install_Log");

pragma Loaded_Main;