home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VDL020D.ZIP / VALARMHI.DOC < prev    next >
Encoding:
Text File  |  1993-04-14  |  2.5 KB  |  105 lines
  1. {
  2.  ══════════════════════════════════════════════════════════════════════════════
  3.  
  4.  Visionix Hi-Level RealTime Alarm Clock Functions Unit (VALARMHI)
  5.  Copyright 1991,1992 Visionix
  6.  ALL RIGHTS RESERVED
  7.  
  8.  ──────────────────────────────────────────────────────────────────────────────
  9.  
  10.  Revision history in reverse chronological order:
  11.  
  12.  Initials  Date      Comment
  13.  ────────  ────────  ──────────────────────────────────────────────────────────
  14.  
  15.  lpg       12/05/92  Created AlarmHi Unit
  16.  
  17.  ══════════════════════════════════════════════════════════════════════════════
  18.  
  19.  Caveats/Known Bugs
  20.  
  21.     When Reaches end of Alarm List, List still Active (Error)
  22.       AFFECTS: NewAlarm,AlarmListProc,NextAlarmOn
  23.  
  24.  
  25.     When Selecting next Active Alarm, Incorrectly selects those
  26.       of another day.
  27.       AFFECTS: NextAlarmOn
  28.  
  29.  
  30.  ══════════════════════════════════════════════════════════════════════════════
  31. }
  32. Unit VAlarmHi;
  33.  
  34.  
  35.  
  36.  
  37. USES
  38.   VGen,
  39.   VAlarm,
  40.   VDates;
  41.  
  42. {PRIVATE STUFF}
  43.  
  44. TYPE
  45.   TRoot  = RECORD
  46.     List     : POINTER;      { Pointer to Alarm Item List }
  47.     SetFlag  : BOOLEAN;      { Are any Alarm Items Active? }
  48.     NextCall : POINTER;      { Pointer to Next Call Item }
  49.   END;
  50.   PRoot  = ^TRoot;
  51.  
  52.  
  53. VAR
  54.   ListOK : BOOLEAN;
  55.   Root   : PRoot;
  56.  
  57. CONST
  58.   Cnt    : WORD = 0;
  59.  
  60. {PUBLIC STUFf}
  61.  
  62. TYPE
  63.   TAlarm = RECORD            { Public Item Record }
  64.     ID      : POINTER;       { Alarm ID }
  65.     Time    : TTime;         { Alarm Time }
  66.     Date    : TDate;         { Alarm Date, 0 = Daily }
  67.     Called  : BOOLEAN;       { Has Alarm been Called? }
  68.   END;
  69.   PAlarm = ^TAlarm;
  70.  
  71. Procedure DumpItem( P : POINTER );
  72. Procedure DumpList;
  73.  
  74.   {------------------------------}
  75.   { Primary Alarm List Functions }
  76.   {------------------------------}
  77.  
  78.  
  79.   Procedure InitAlarmList;
  80.  
  81.   Procedure QuitAlarmList;
  82.  
  83.  
  84.   {----------------------------}
  85.   { Basic Alarm List Functions }
  86.   {----------------------------}
  87.  
  88.  
  89.   Function  NewAlarm(                  Time      : TTime;
  90.                                        Date      : TDate     ) : PAlarm;
  91.  
  92.   Procedure DisposeAlarm(              ID        : POINTER   );
  93.  
  94.  
  95.   Procedure ResetAlarm(                ID        : POINTER;
  96.                                        Time      : TTime;
  97.                                        Date      : TDate     );
  98.  
  99.   Function  AlarmCallStatus(           ID        : POINTER   ) : BOOLEAN;
  100.  
  101.   Function  AlarmCallAndDispose(       ID        : POINTER   ) : BOOLEAN;
  102.  
  103.  
  104.  
  105.