DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦9975a6865⟧ TextFile

    Length: 1463 (0x5b7)
    Types: TextFile
    Names: »V«

Derivation

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦9b46a407a⟧ 
            └─⟦12c68c704⟧ 
                └─⟦this⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦458657fb6⟧ 
            └─⟦220843204⟧ 
                └─⟦this⟧

TextFile

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;