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

⟦73a713275⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Xcalendar, seg_04ba88

Derivation

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

with Calendar;
use Calendar;
with System;
package Xcalendar is

    --
    -- Extensions to Calendar
    --

    --------------------------------------------------------------------------
    -- Resets the clock's date.
    --
    -- For the new layered Ada RTS::
    -- The date of delta delay entries on the time event queue are
    -- moved forward/backward by (set_clock - clock). The date
    -- of the delay until entries aren't changed. However, the delay until
    -- entries are reorderd on the queue.
    --
    -- For the old Ada RTS::
    -- The date of entries on the delay queue are moved forward/backward
    -- by (set_clock - clock). This is no problem for the delta delays (ADA
    -- delay statement). However, delays till an absolute date (delay_until
    -- subprogram) will be incorrect.
    --
    -- For the new layered Ada RTS::
    -- On self-hosts, if timer_support_arg /= NO_ADDR, then, its
    -- the address of the OS's time record. This allows, set_clock()
    -- to be atomically set with the OS's current time. For an
    -- example, see how set_time() is called in calendar_s.a.
    --------------------------------------------------------------------------
    procedure Set_Clock (Date : Time;
                         Timer_Support_Arg : System.Address := System.No_Addr);

    --------------------------------------------------------------------------
    -- Delays until an absolute date in the future.
    --------------------------------------------------------------------------
    procedure Delay_Until (Date : Time);

private
    pragma Interface (Ada, Set_Clock);
    pragma Interface_Name (Set_Clock, "__SET_CLOCK");

    pragma Interface (Ada, Delay_Until);
    pragma Interface_Name (Delay_Until, "__DELAY_UNTIL");
end Xcalendar;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1c rec1=00 rec2=01 rec3=056
        [0x01] rec0=13 rec1=00 rec2=02 rec3=000
    tail 0x21750c19a86843ccb4b6b 0x42a00088462060003