home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / dosdatet.def < prev    next >
Text File  |  1994-05-03  |  2KB  |  61 lines
  1. DEFINITION MODULE DOSDATETIME;
  2.  
  3. (************************************************************************
  4.   OS/2 2.0 interface for Date/Time and Timer support.
  5.  
  6.   Copyright (c) 1992 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SYSTEM;
  14. FROM   OS2DEF        IMPORT APIRET, LHANDLE;
  15. FROM   DOSSEMAPHORES IMPORT HSEM;
  16.  
  17. TYPE
  18.   DATETIME = RECORD
  19.     hours      : SHORTCARD;
  20.     minutes    : SHORTCARD;
  21.     seconds    : SHORTCARD;
  22.     hundredths : SHORTCARD;
  23.     day        : SHORTCARD;
  24.     month      : SHORTCARD;
  25.     year       : CARDINAL;
  26.     timezone   : INTEGER;
  27.     weekday    : SHORTCARD;
  28.     filler     : SYSTEM.BYTE;
  29.   END;
  30.   PDATETIME    = POINTER TO DATETIME;
  31.   HTIMER       = LHANDLE;
  32.   PHTIMER      = POINTER TO HTIMER;
  33.  
  34.  
  35. PROCEDURE DosGetDateTime
  36. ( VAR DateTime        : DATETIME
  37. )                     : APIRET;
  38.  
  39. PROCEDURE DosSetDateTime
  40. ( VAR DateTime        : DATETIME
  41. )                     : APIRET;
  42.  
  43. PROCEDURE DosAsyncTimer
  44. ( TimeInterval        : LONGCARD;
  45.   SemHandle           : HSEM;
  46.   VAR TimerHandle     : HTIMER
  47. )                     : APIRET;
  48.  
  49. PROCEDURE DosStartTimer
  50. ( TimeInterval        : LONGCARD;
  51.   SemHandle           : HSEM;
  52.   VAR TimerHandle     : HTIMER
  53. )                     : APIRET;
  54.  
  55. PROCEDURE DosStopTimer
  56. ( TimerHandle         : HTIMER
  57. )                     : APIRET;
  58.  
  59.  
  60. END DOSDATETIME.
  61.