home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / rkrmsrc / utility / a2d.e < prev    next >
Text File  |  1977-12-31  |  1KB  |  56 lines
  1. -> a2d.e
  2.  
  3. ->>> Header (globals)
  4. MODULE 'timer',
  5.        'utility',
  6.        'devices/timer',
  7.        'exec/io',
  8.        'utility/date'
  9.  
  10. ENUM ERR_NONE, ERR_DEV, ERR_LIB
  11.  
  12. RAISE ERR_DEV IF OpenDevice()<>0,
  13.       ERR_LIB IF OpenLibrary()=NIL
  14. ->>>
  15.  
  16. ->>> PROC main()
  17. PROC main() HANDLE
  18.   DEF clockdata:PTR TO clockdata, tr:PTR TO timerequest, tv:PTR TO timeval,
  19.       seconds, open_dev=FALSE
  20.   utilitybase:=OpenLibrary('utility.library', 37)
  21.   NEW tr, tv, clockdata
  22.   OpenDevice('timer.device', UNIT_VBLANK, tr, 0)
  23.   open_dev:=TRUE
  24.   timerbase:=tr.io.device
  25.  
  26.   GetSysTime(tv)
  27.  
  28.   WriteF('GetSysTime():\t\d \d\n', tv.secs, tv.micro)
  29.  
  30.   Amiga2Date(tv.secs, clockdata)
  31.  
  32.   WriteF('Amiga2Date():  sec \d min \d hour \d\n',
  33.          clockdata.sec, clockdata.min, clockdata.hour)
  34.  
  35.   WriteF('               mday \d month \d year \d wday \d\n',
  36.          clockdata.mday, clockdata.month, clockdata.year, clockdata.wday)
  37.  
  38.   seconds:=CheckDate(clockdata)
  39.  
  40.   WriteF('CheckDate():\t\d\n', seconds)
  41.  
  42.   seconds:=Date2Amiga(clockdata)
  43.  
  44.   WriteF('Date2Amiga():\t\d\n', seconds)
  45. EXCEPT DO
  46.   IF open_dev THEN CloseDevice(tr)
  47.   END clockdata, tv, tr
  48.   IF utilitybase THEN CloseLibrary(utilitybase)
  49.   SELECT exception
  50.   CASE ERR_DEV;  WriteF('Error: could not open timer device\n')
  51.   CASE ERR_LIB;  WriteF('Error: could not open utility library\n')
  52.   CASE "MEM";    WriteF('Error: ran out of memory\n')
  53.   ENDSELECT
  54. ENDPROC
  55. ->>>
  56.