samples/unixtime-sample.f

   1 use-lib: unix-time
   2
   3 : dump-utime  ( utime -- )  >r
   4   ." ===========\n"
   5   r@ unix-time:->time unix-time:(.time) type cr
   6   r@ unix-time:->date unix-time:(.date) type cr
   7   r@ unix-time:->date unix-time:date->dow unix-time:dow->long-name type ." |" cr
   8   r@ unix-time:->date unix-time:date->dow unix-time:dow->short-name type ." |" cr
   9
  10   r@ unix-time:->date
  11   ." year : " rot . cr
  12   ." month: " swap unix-time:month->long-name type cr
  13   ." day  : " . cr
  14
  15   r@ unix-time:->date
  16   ." year : " rot . cr
  17   ." month: " swap unix-time:month->short-name type cr
  18   ." day  : " . cr
  19
  20   r@ unix-time:->date/time unix-time:date/time-> r> = not-?abort" invalid roundtrip"
  21 ;
  22
  23 1147483647 dump-utime
  24 1157483647 dump-utime
  25 1168483647 dump-utime
  26 1172683647 dump-utime
  27 1172713647 dump-utime
  28
  29
  30 .stack bye