|
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: 1463 (0x5b7)
Types: TextFile
Names: »V«
└─⟦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⟧
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;