|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 1832 (0x728)
Types: TextFile
Names: »V«
└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
└─⟦77aa8350c⟧ »DATA«
└─⟦f794ecd1d⟧
└─⟦this⟧
--
-- 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;