|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Traversal_Utilities, pragma Module_Name 4 3588, pragma Subsystem Design_Facility, seg_001c6f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Ada_Text;
with Directory_Tools;
with Object_Editor;
with Mapping;
with Ada_Program;
with Document;
package Traversal_Utilities is
----------------------------------------------------------------------------
-- Bring up a window on an object, Highlight a particular element
-- in that object (unless the element IS the object, as in the last call)
-- If the definition fails, and the FAIL_MESSAGE /= NO_MESSAGE the the
-- Message will be put into the message window (with a beep) with a
-- diagnosis for failure appended (in parens).
----------------------------------------------------------------------------
Default_Message : constant String := "Definition Failed ";
No_Message : constant String := "";
procedure Def (On_Element : Ada_Program.Element;
In_Place : Boolean := False;
Edit : Boolean := False;
Success : out Boolean;
Fail_Message : String := Default_Message);
procedure Def (On_Element_List : Ada_Program.Element_List;
In_Place : Boolean := False;
Edit : Boolean := False;
Success : out Boolean;
Fail_Message : String := Default_Message);
procedure Def (On_Document : Document.Element;
In_Place : Boolean := False;
Edit : Boolean := False;
Success : out Boolean;
Fail_Message : String := Default_Message);
procedure Def (On_Document_List : Document.Element_List;
In_Place : Boolean := False;
Edit : Boolean := False;
Success : out Boolean;
Fail_Message : String := Default_Message);
procedure Def (On_Target : Mapping.Target_Info;
In_Place : Boolean := False;
Edit : Boolean := False;
Success : out Boolean;
Fail_Message : String := Default_Message);
-- This operation can be used to obtain selections on arbitrary
-- AREAs of an Ada image. (e.g. Annotations and Arguments)
subtype Area is Ada_Text.Area;
procedure Def (On_Element : Ada_Program.Element;
In_Area : Area;
In_Place : Boolean := False;
Edit : Boolean := False;
Success : out Boolean;
Fail_Message : String := Default_Message);
procedure Cursor_Info (Line, Column : out Natural;
Focus : out Object_Editor.Focus;
Handle : out Directory_Tools.Object.Handle);
function Line_Image (Line : Positive) return String;
pragma Subsystem (Design_Facility, Closed);
pragma Module_Name (4, 3588);
pragma Bias_Key (109);
end Traversal_Utilities;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=19 rec1=00 rec2=01 rec3=030
[0x01] rec0=00 rec1=00 rec2=05 rec3=00a
[0x02] rec0=14 rec1=00 rec2=02 rec3=052
[0x03] rec0=18 rec1=00 rec2=03 rec3=02c
[0x04] rec0=08 rec1=00 rec2=04 rec3=001
tail 0x20100f6fe7da18dc10d87 0x42a00088462065003