DataMuseum.dk

top - download

    Length: 1049 (0x419)
    Types: TextFile
    Names: »V«

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧ 

TextFile

WITH Calendar;
USE Calendar;
PACKAGE Xcalendar IS

   --
   -- Extensions to Calendar
   --

   --------------------------------------------------------------------------
   -- Resets the clock's date.
   --
   -- Note: 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.
   --------------------------------------------------------------------------
   PROCEDURE Set_Clock (Date : Time);

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