|
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 Interchange_Defs, pragma Module_Name 4 2513, pragma Subsystem Network, seg_0128e5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
package Interchange_Defs is
-- This package defines fundamental types and operators
-- for data interchange. When porting this package, you
-- should modify it to indicate the appropriate types on
-- your system.
pragma Subsystem (Network, Private_Part => Closed);
pragma Module_Name (4, 2513);
subtype Longest_Integer is Standard.Long_Integer;
-- The longest (highest-precision) supported signed integer.
-- If you've got an arbitrary-precision package, that's ideal.
-- See INTERCHANGE.LONG_INTEGER.
function "=" (X, Y : Longest_Integer) return Boolean renames Standard."=";
function ">" (X, Y : Longest_Integer) return Boolean renames Standard.">";
function "<" (X, Y : Longest_Integer) return Boolean renames Standard."<";
function ">=" (X, Y : Longest_Integer) return Boolean renames Standard.">=";
function "<=" (X, Y : Longest_Integer) return Boolean renames Standard."<=";
function "+" (X, Y : Longest_Integer) return Longest_Integer
renames Standard."+";
function "-" (X, Y : Longest_Integer) return Longest_Integer
renames Standard."-";
function "*" (X, Y : Longest_Integer) return Longest_Integer
renames Standard."*";
function "/" (X, Y : Longest_Integer) return Longest_Integer
renames Standard."/";
function "mod" (X, Y : Longest_Integer) return Longest_Integer
renames Standard."mod";
function "rem" (X, Y : Longest_Integer) return Longest_Integer
renames Standard."rem";
type Float is new Standard.Float
-- digits 8
range -2.0 * (2.0 ** 127) .. 2.0 * (2.0 ** 127);
type Long_Float is new Standard.Float;
-- digits 15
-- range - 2.0 * (2.0 ** 1023) .. 2.0 * (2.0 ** 1023);
-- These definitions are intended to represent IEEE floating
-- point single- and double-precision formats, respectively.
-- Float'last is IEEE infinity, float'first is IEEE -infinity.
function Duration_Magnitude return Standard.Integer;
-- This should be the largest integral power of 10
-- which is <= Standard.Duration'Last, <= 10 ** 9,
-- and <= Integer'Last. It may be a constant.
-- It is used by the body of INTERCHANGE.CONVERT.
end Interchange_Defs;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=18 rec1=00 rec2=01 rec3=026
[0x01] rec0=00 rec1=00 rec2=04 rec3=00a
[0x02] rec0=17 rec1=00 rec2=02 rec3=06c
[0x03] rec0=0b rec1=00 rec2=03 rec3=000
tail 0x2150d90ba82b083027cb3 0x42a00088462065003