|
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: B T
Length: 1296 (0x510)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Representation_Elements;
with Debug_Tools;
with Ada_Program, Diana_Object_Editor;
package body Debug_Util is
package Re renames Representation_Elements;
function Diana_Image (Value : Ada_Program.Element;
Level : Natural;
Prefix : String;
Expand_Pointers : Boolean) return String is
begin
Diana_Object_Editor.Edit (Ada_Program.Conversion.Convert (Value));
return "See Diana Window";
end Diana_Image;
procedure Reg is new Debug_Tools.Register
(Ada_Program.Element, Diana_Image);
function Record_Rep_Image (Value : Re.Record_Kind;
Level : Natural;
Prefix : String;
Expand_Pointers : Boolean) return String is
begin
return ("Name : " & Re.Name (Value) & Ascii.Lf &
"Size : " & Long_Integer'Image (Re.Size (Value)) & Ascii.Lf &
"Image: " & Re.Component_Image (Value));
end Record_Rep_Image;
procedure Reg2 is new Debug_Tools.Register
(Re.Record_Kind, Record_Rep_Image);
begin
Reg;
Reg2;
end Debug_Util;