|
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 - downloadIndex: ┃ T V ┃
Length: 2018 (0x7e2)
Types: TextFile
Names: »V«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
└─ ⟦6f12a12be⟧ »DATA«
└─⟦this⟧
WITH Unix_Base_Types;
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.
SUBTYPE Longest_Integer IS Unix_Base_Types.Long;
-- 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.Short_Float;
TYPE Long_Float IS NEW Standard.Float;
-- 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;