|
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: 8287 (0x205f)
Types: TextFile
Names: »V«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
-- This package contains all of the special commands needed to maintain
-- software catalogs.
--
with Subtypes;
use Subtypes;
package Catalog is
procedure Set_Defaults
(Catalog : in Simple_Name := ">> CATALOG NAME <<";
Version : in Simple_Name := ">> VERSION IDENTIFIER <<";
User : in User_Name := "<CURRENT_USER>";
Response : in String := "<PROFILE>");
--
-- Maps the specified user to a default catalog and version.
procedure Display_Defaults (For_User : in User_Name := "<CURRENT_USER>";
Response : in String := "<PROFILE>");
--
-- Displays the defaults for the specified user.
procedure Sections (For_Catalog : in Simple_Name := "<DEFAULT>";
Response : in String := "<PROFILE>");
--
-- Takes the user to the context enclosing the sections of the
-- specified catalog.
procedure Version (For_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Response : in String := "<PROFILE>");
--
-- Takes the user to the context enclosing the version-specific
-- configuration files of the specified version of the specified
-- catalog.
procedure Generate_Booklet (For_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Response : in String := "<PROFILE>");
--
-- Generates a formatter markup language booklet for the specified
-- version of the specified catalog.
procedure Format_Booklet (For_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Regenerate : in Boolean := True;
Response : in String := "<PROFILE>");
--
-- Generates a PostScript language representation of the booklet
-- for the specified version of the specified catalog.
--
-- If "Regenerate" is True, calls "Generate_Booklet" before formatting
-- the booklet. If there is no preexisting version of the booklet,
-- calls "Generate_Booklet" regardless of the value of "Regenerate".
procedure Print_Booklet (For_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Regenerate : in Boolean := True;
Reformat : in Boolean := True;
Response : in String := "<PROFILE>");
--
-- Prints the booklet for the specified version of the specified
-- catalog on the default laser printer for the current machine.
--
-- If "Reformat" is True, calls "Format_Booklet" before printing
-- the booklet. If there is no preexisting formatted version of the
-- booklet, calls "Format_Booklet" regardless of the value of "Reformat".
--
-- If "Regenerate" is True, calls "Generate_Booklet", and then calls
-- "Reformat_Booklet" (regardless of the value of "Reformat"). If
-- there is no preexisting version of the booklet, calls "Generate_
-- Booklet" regardless of the value of "Regenerate".
procedure Format_Release_Notice
(For_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Response : in String := "<PROFILE>");
--
-- Generates a PostScript version of the release notice for the
-- specified version of the specified catalog.
procedure Print_Release_Notice
(For_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Reformat : in Boolean := True;
Response : in String := "<PROFILE>");
--
-- Prints a formatted version of the release notice for the specified
-- version of the specified catalog on the default laser printer for
-- the current machine.
--
-- If "Reformat" is True, calls "Format_Release_Notice" before printing
-- the release notice. If there is no preexisting formatted version of the
-- release notice, calls "Format_Release_Notice" regardless of the value
-- of "Reformat".
procedure Initialize_View
(This_View : in String := "<SELECTION>";
Is_Proprietary : in Boolean;
Response : in String := "<PROFILE>");
--
-- Creates a boilerplate file appropriate for the value of "Is_Proprietary"
-- and adds it to the exports file (any pre-existing boilerplate files and
-- entries for boilerplate files in the exports file are deleted).
--
-- Should not be used on free-form items: for free-form items use
-- "Initialize_Free_Form".
procedure Initialize_Free_Form
(This_Item : in String := "<SELECTION>";
Is_Proprietary : in Boolean;
Response : in String := "<PROFILE>");
--
-- Creates a boilerplate file appropriate for the value of "Is_Proprietary"
-- Should only be used on free-form items: use "Initialize_View" for all
-- other kinds of items.
procedure Check_Consistency (This_Structure : in String := "<SELECTION>";
This_Version : in Simple_Name := "<DEFAULT>";
Response : in String := "<PROFILE>");
--
-- Attempts to resolve the specified structure to a catalog, a section
-- of a catalog, or an item in a section of a catalog. If successful,
-- verifies the consistency of the catalog, section, or item against
-- its description in the data file for the specified version of the
-- catalog to which the structure belongs.
procedure Build_Release (Of_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Check_Consistency : in Boolean := True;
Make_Tape : in Boolean := True;
Response : in String := "<PROFILE>");
--
-- Performs a series of steps culminating in a release of the specified
-- version of the specified catalog.
--
-- If "Check_Consistency" is True, runs the consistency checker before
-- making the release (and fails if the specified version is not
-- consistent).
--
-- If "Make_Tape" is True, archives the release to tape once it has
-- been generated.
procedure Make_Tape (For_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Response : in String := "<PROFILE>");
--
-- Archives the appropriate objects from the specified version to
-- the tape drive.
procedure Build_Version
(Of_Catalog : in Simple_Name := "<DEFAULT>";
From_Version : in Simple_Name := "<DEFAULT>";
New_Version : in Simple_Name := ">> VERSION IDENTIFIER <<";
Make_Default : in Boolean := True;
Response : in String := "<PROFILE>");
--
-- Builds a new version of the specified catalog, using the specified
-- version as a template.
--
-- If "Make_Default" is True, the new version becomes the default
-- version for the specified catalog.
procedure Build_Catalog
(Named : in Simple_Name := ">> CATALOG NAME<<";
Initial_Version : in Simple_Name :=
">> VERSION IDENTIFIER <<";
Make_Default : in Boolean := True;
Response : in String := "<PROFILE>");
--
-- Builds a new catalog with the specified name and baseline version.
--
-- If "Make_Default" is True, the new catalog and version become
-- the defaults.
procedure Browse (This_Catalog : in Simple_Name := "<DEFAULT>";
This_Version : in Simple_Name := "<DEFAULT>";
Response : in String := "<PROFILE>");
--
-- Parses the Data File for the specified version of the specified
-- catalog, then brings up the browser.
end Catalog;