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

⟦a6bc9292d⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Diana_Object_Editor, pragma Module_Name 4 2202, pragma Subsystem Object_Editor, seg_001c26

Derivation

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

E3 Source Code



with Diana;
package Diana_Object_Editor is

    ------------------------------------------
    -- type safe interfaces for diana types --
    ------------------------------------------
    procedure Edit (Tree : Diana.Tree);
    procedure Edit (Seq_Type : Diana.Seq_Type);
    procedure Edit (Sequence : Diana.Sequence);
    procedure Edit (Temp_Seq : Diana.Temp_Seq);

    ------------------------------------------------------------------------
    -- unsafe interfaces, segment and offset may not be of the right type --
    ------------------------------------------------------------------------
    procedure Edit_Tree     (Segment, Offset : Long_Integer);
    procedure Edit_Seq_Type (Segment, Offset : Long_Integer);
    procedure Edit_Sequence (Segment, Offset : Long_Integer);
    procedure Edit_Temp_Seq (Segment, Offset : Long_Integer);

    ----------------------------------------------------------
    -- image functions not provided by r1000 (native) diana --
    ----------------------------------------------------------
    function Image (Attr_Name : Diana.Attr_Name) return String;

    --------------------------------
    -- functions to read an image --
    --------------------------------
    function Current_Image     return Diana.Tree;
    function Current_Cursor    return Diana.Tree;
    function Current_Selection return Diana.Tree;

    pragma Subsystem (Object_Editor);
    pragma Module_Name (4, 2202);

end Diana_Object_Editor;

E3 Meta Data

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=16 rec1=00 rec2=01 rec3=07a
        [0x01] rec0=0f rec1=00 rec2=02 rec3=000
    tail 0x20100f4e67da18d84b542 0x42a00088462065003