DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦fc3a24435⟧ TextFile

    Length: 2017 (0x7e1)
    Types: TextFile
    Names: »V«

Derivation

└─⟦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⟧ 

TextFile

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.Float;

   TYPE Long_Float IS NEW Standard.Long_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;