|
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 - metrics - download
Length: 4096 (0x1000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package V_I_Time, seg_04b9cc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-- Copyright 1988 Verdix Corporation
------------------------------------------------------------------------------
-- User interface to the RTS time subprograms
------------------------------------------------------------------------------
with System;
use System;
package V_I_Time is
pragma Suppress (All_Checks);
pragma Suppress (Exception_Tables);
pragma Not_Elaborated;
--------------------------------------------------------------------------
-- Sets the current time for the RTS time procedures. Note, if
-- the calendar package is used, then its set_time procedure must
-- be called.
--
-- The time of delta delay entries on the time event queue are
-- moved forward/backward by (set_time - current_time). The time
-- of the delay until entries aren't changed. However, the delay until
-- entries are reorderd on the queue.
--
-- On self-hosts, if timer_support_arg /= NO_ADDR, then, its
-- the address of the OS's time record. This allows, set_time()
-- 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_Time (Day : Day_T;
Sec : Duration;
Timer_Support_Arg : Address := No_Addr);
--------------------------------------------------------------------------
-- Returns current time, whereby, duration_time is normalized to be
-- less than the duration for a day (86400.0), ie. day is incremented by
-- one every 24 hours.
--------------------------------------------------------------------------
procedure Current_Time (Day : out Day_T; Sec : out Duration);
--------------------------------------------------------------------------
-- This returns after delaying for at least the amount of time
-- specified by 'sec'. This procedure is implicitly invoked
-- by an Ada delay statement.
--------------------------------------------------------------------------
procedure Delay_For (Sec : Duration);
--------------------------------------------------------------------------
-- This delays until an absolute time in the future.
--------------------------------------------------------------------------
procedure Delay_Until (Day : Day_T; Sec : Duration);
private
pragma Interface (Ada, Set_Time);
pragma Interface_Name (Set_Time, "TS_SET_TIME");
pragma Interface (Ada, Current_Time);
pragma Interface_Name (Current_Time, "TS_CURRENT_TIME");
pragma Interface (Ada, Delay_For);
pragma Interface_Name (Delay_For, "TS_DELAY");
pragma Interface (Ada, Delay_Until);
pragma Interface_Name (Delay_Until, "TS_DELAY_UNTIL");
end V_I_Time;
nblk1=3
nid=0
hdr6=6
[0x00] rec0=1a rec1=00 rec2=01 rec3=014
[0x01] rec0=11 rec1=00 rec2=02 rec3=03e
[0x02] rec0=14 rec1=00 rec2=03 rec3=000
tail 0x21750be62868438b4c2a1 0x42a00088462060003