|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Rm_Test_Utilities, seg_005633
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Xlbt_Arithmetic;
use Xlbt_Arithmetic;
with Xlbt_Rm3;
use Xlbt_Rm3;
with Xlbt_String;
use Xlbt_String;
with Xlbt_String7;
use Xlbt_String7;
package body Rm_Test_Utilities is
function Image (Value : Xlbt_Rm3.X_Rm_Value) return String is
-- Return an image of a resource database value.
begin
if (Value = None_X_Rm_Value) then
return "no value";
end if;
case Value.Kind is
when Is_None =>
return "<none>";
when Is_X_Rm_File_Type =>
return "<file>";
when Is_Boolean =>
return "<boolean> " & Boolean'Image (Value.V_Boolean);
when Is_Float =>
return "<float>";
when Is_U_Char_List =>
return "<u_char_list>";
when Is_U_Char =>
return "<U_Char> " & U_Char'Image (Value.V_U_Char);
when Is_U_Short =>
return "<U_Short> " & U_Short'Image (Value.V_U_Short);
when Is_S_Char =>
return "<S_Char> " & S_Char'Image (Value.V_S_Char);
when Is_S_Short =>
return "<S_Short> " & S_Short'Image (Value.V_S_Short);
when Is_S_Long =>
return "<s_long> " & S_Long'Image (Value.V_S_Long);
when Is_X_String7_Pointer =>
if Value.V_X_String7_Pointer /= null then
return "<string7> """ & Value.V_X_String7_Pointer.all & '"';
else
return "<string7> null";
end if;
when Is_X_String_Pointer =>
if Value.V_X_String_Pointer /= null then
return To_String ('"' & Value.V_X_String_Pointer.all & '"');
else
return "<string> null";
end if;
when Is_X_String16_Pointer =>
return "<string16>";
when Is_X_Universal_Pointer =>
return "<pointer>";
when Is_X_Atom =>
return "<X_Atom>";
when Is_X_Color =>
return "<X_Color>";
when Is_X_Colormap =>
return "<X_Colormap>";
when Is_X_Cursor =>
return "<X_Cursor>";
when Is_X_Display =>
return "<X_Display>";
when Is_X_Font =>
return "<X_Font>";
when Is_X_Font_Struct =>
return "<X_Font_Struct>";
when Is_X_Initial_Window_State =>
return "<X_Initial_Window_State>";
when Is_X_Pixel =>
return "<X_Pixel>";
when Is_X_Pixmap =>
return "<X_Pixmap>";
when Is_X_Screen =>
return "<X_Screen>";
when Is_X_Time =>
return "<X_Time>";
when Is_X_Visual =>
return "<X_Visual>";
when Is_X_Window =>
return "<X_Window>";
end case;
end Image;
end Rm_Test_Utilities;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=21 rec1=00 rec2=01 rec3=00c
[0x01] rec0=14 rec1=00 rec2=02 rec3=00c
[0x02] rec0=1a rec1=00 rec2=03 rec3=014
[0x03] rec0=0b rec1=00 rec2=04 rec3=000
tail 0x21500a38681978d4619f0 0x42a00088462063203