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

⟦127b86572⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Analyze_Template, seg_004532

Derivation

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

with Log;
with Profile;
with Common;
with Add_Object_Hyper_Table;  
with Create_Null_Document;
with Directory_Renames;
use Directory_Renames;
with Errors;
with Simple_Status;
package body Analyze_Template is

    procedure Add (Units       :        String := "";
                   To_Document : in out Abstract_Document.Handle;
                   Response    :        String := "<PROFILE>") is

        Units_Iter : Object.Iterator := Naming.Resolution (Units);

        type Columns is (A);

        function Is_Integer_Column (C : Columns) return Boolean is
        begin
            case C is
                when A =>
                    return False;
            end case;
        end Is_Integer_Column;

        function Is_Included (Obj : Object.Handle) return Boolean is
        begin
            [statement]
        end Is_Included;

        function Continue_Traversal (Obj : Object.Handle) return Boolean is
        begin
            [statement]
        end Continue_Traversal;

        function Column_Image
                    (C : Columns; Obj : Object.Handle) return String is
        begin
            case C is
                when A =>
                    [statement]
            end case;
        end Column_Image;

        function Explanation (C : Columns; Obj : Object.Handle) return String is
        begin
            case C is
                when A =>
                    [statement]
            end case;
        end Explanation;

        procedure Linkage (C               :     Columns;
                           Obj             :     Object.Handle;
                           Linkage_Object  : out Object.Handle;
                           Linkage_Objects : out Object.Iterator) is
        begin
            -- default values changed within the case statement as necessary
            Linkage_Object  := Object.Nil;
            Linkage_Objects := Object.Create;

            case C is
                when A =>
                    [statement]
            end case;
        end Linkage;

        procedure Add_Hyper_Table_To_Doc is
           new Add_Object_Hyper_Table (Is_Included,  
                                       Continue_Traversal,  
                                       Columns,  
                                       Is_Integer_Column,  
                                       Column_Image,  
                                       Explanation,  
                                       Linkage,  
                                       Table_Title => "[STRING-expression]");
    begin
        if Object.Is_Bad (Units_Iter) then
            Log.Put_Line (Units & " is not a valid pathname",
                          Profile.Error_Msg);
        else
            Add_Hyper_Table_To_Doc (Units_Iter, To_Document, Response);
        end if;
    end Add;

    procedure Display (Units             : String := "";                      To_Preview_Object : String := "";
                       Response          : String := "<PROFILE>") is
        Document  : Abstract_Document.Handle;
        Condition : Errors.Condition;
    begin
        Create_Null_Document (Named           => To_Preview_Object,
                              Error_Info      => Condition,
                              Document_Handle => Document);

        case Errors.Severity (Condition) is
            when Simple_Status.Problem | Simple_Status.Fatal =>
                Log.Put_Line ("Problem creating object " & To_Preview_Object &
                              ".  " & Errors.Info (Condition),
                              Profile.Error_Msg);
            when others =>


                Add (Units, Document, Response);

                Abstract_Document.Close (Document);

                Common.Definition (To_Preview_Object);
        end case;
    end Display;
end Analyze_Template;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=24 rec1=00 rec2=01 rec3=012
        [0x01] rec0=1c rec1=00 rec2=02 rec3=000
        [0x02] rec0=1a rec1=00 rec2=03 rec3=002
        [0x03] rec0=19 rec1=00 rec2=04 rec3=000
    tail 0x217001d06815c64b16312 0x42a00088462061e03