DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a54bc0eeb⟧ Ada Source

    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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



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;

E3 Meta Data

    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