DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦61262086c⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Subsystem_Audit, seg_0044c4

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

--|
--| @SUMMARY
--|     Hypertext table of unit status such as cmvc and compilation state.
--|
--| @DESCRIPTION
--|     This package creates a abstract document report showing
--|     information about the status of all units within a view.
--|     The description of each table column follows :
--|
--| Unit  =>  Simple name of the unit
--| Dir   =>  directory name within the view
--|           (prefixed with "+" means in units directory
--|            prefixed with "-" means NOT in units directory
--|            no prefix means spec view unit)
--| Exp   =>  unit is exported (visible in spec view)
--|           (E means Exported in the spec view,
--|            S means a spec unit that is not exported,
--|            B means a body unit)
--| Usd   =>  unit is used (spec unit has an Ada dependency)
--| CTR   =>  unit is controlled
--| CIn   =>  unit is checked in (or is not controlled)
--| Lat   =>  unit is latest generation (up to date) (or is not controlled)
--| Ins   =>  unit is installed (or coded)
--| Cod   =>  unit is coded
--| Cmp   =>  spec view and load view unit are compatible
--| Jnd   =>  unit is joined to the spec view
--| ACL   =>  the ACL for the unit
--|
--| For each column, "+" means "yes" or "true",
--| "-" means "no" or "false", and
--| " " means "no" or not applicable.
--|
--| If the unit exists in both the spec view and the load view, then the
--| status of both is shown, spec view first.
--| {For example : "+/+", "+/-", "-/+", and "-/-")
--|
--| @INDICES (Command_Interface)
--|
with Abstract_Document;
package Subsystem_Audit is

    procedure Report (For_Activity      : String := "<SELECTION>";
                      To_Preview_Object : String := "subsystem_audit";
                      Response          : String := "<PROFILE>");

    procedure Add_Report (For_Activity :        String := "<SELECTION>";
                          To_Document  : in out Abstract_Document.Handle;
                          Response     :        String := "<PROFILE>");

    procedure Report_Problems_Only
                 (For_Activity : String := "<SELECTION>";
                  To_Preview_Object : String := "subsystem_audit";
                  Units_Not_Coded : Boolean := False;
                  Units_Not_Installed : Boolean := True;
                  Units_Not_Controlled : Boolean := True;
                  Units_Out_Of_Date : Boolean := True;
                  Units_Checked_Out : Boolean := True;
                  Spec_Not_In_Spec_View : Boolean := True;
                  Units_Not_Compatible : Boolean := True;
                  Units_Not_In_Units_Directory : Boolean := True;
                  Response : String := "<PROFILE>");

    procedure Add_Problem_Report
                 (For_Activity : String := "<SELECTION>";
                  To_Document : in out Abstract_Document.Handle;
                  Units_Not_Coded : Boolean := False;
                  Units_Not_Installed : Boolean := True;
                  Units_Not_Controlled : Boolean := True;
                  Units_Out_Of_Date : Boolean := True;
                  Units_Checked_Out : Boolean := True;
                  Spec_Not_In_Spec_View : Boolean := True;
                  Units_Not_Compatible : Boolean := True;
                  Units_Not_In_Units_Directory : Boolean := True;
                  Response : String := "<PROFILE>");
end Subsystem_Audit;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=17 rec1=00 rec2=01 rec3=094
        [0x01] rec0=1a rec1=00 rec2=02 rec3=012
        [0x02] rec0=13 rec1=00 rec2=03 rec3=03a
        [0x03] rec0=09 rec1=00 rec2=04 rec3=001
    tail 0x217001a42815c6462f2bb 0x42a00088462061e03