Bindings/APR/Time.hsc

   1 #include <bindings.dsl.h>
   2 #include <apr_time.h>
   3
   4 module Bindings.APR.Time where
   5 #strict_import
   6 import Bindings.APR
   7 import Bindings.APR.ErrNo
   8 import Bindings.APR.Pools
   9
  10 #globalvar apr_month_snames, Ptr (Ptr CChar)
  11 #globalvar apr_day_snames  , Ptr (Ptr CChar)
  12
  13 #integral_t apr_time_t
  14 #globalarray APR_TIME_T_FMT, CChar
  15
  16 #integral_t apr_interval_time_t
  17 #integral_t apr_short_interval_time_t
  18
  19 #num APR_USEC_PER_SEC
  20
  21 #cinline apr_time_sec , <apr_time_t> -> IO <apr_time_t>
  22 #cinline apr_time_usec, <apr_time_t> -> IO <apr_time_t>
  23 #cinline apr_time_msec, <apr_time_t> -> IO <apr_time_t>
  24 #cinline apr_time_as_msec , <apr_time_t> -> IO <apr_time_t>
  25 #cinline apr_time_from_sec, <apr_time_t> -> IO <apr_time_t>
  26 #cinline apr_time_make, <apr_time_t> -> <apr_time_t> -> IO <apr_time_t>
  27
  28 #ccall apr_time_now, IO <apr_time_t>
  29
  30 #starttype struct apr_time_exp_t
  31 #  field tm_usec, <apr_int32_t>
  32 #  field tm_sec , <apr_int32_t>
  33 #  field tm_min , <apr_int32_t>
  34 #  field tm_hour, <apr_int32_t>
  35 #  field tm_mday, <apr_int32_t>
  36 #  field tm_mon , <apr_int32_t>
  37 #  field tm_year, <apr_int32_t>
  38 #  field tm_wday, <apr_int32_t>
  39 #  field tm_yday, <apr_int32_t>
  40 #  field tm_isdst , <apr_int32_t>
  41 #  field tm_gmtoff, <apr_int32_t>
  42 #stoptype
  43
  44 #ccall apr_time_ansi_put, Ptr <apr_time_t> -> CTime -> IO <apr_status_t>
  45
  46 #ccall apr_time_exp_tz , Ptr <apr_time_exp_t> -> <apr_time_t> -> <apr_int32_t> -> IO <apr_status_t>
  47 #ccall apr_time_exp_gmt, Ptr <apr_time_exp_t> -> <apr_time_t> -> IO <apr_status_t>
  48 #ccall apr_time_exp_lt , Ptr <apr_time_exp_t> -> <apr_time_t> -> IO <apr_status_t>
  49 #ccall apr_time_exp_get    , Ptr <apr_time_t> -> Ptr <apr_time_exp_t> -> IO <apr_status_t>
  50 #ccall apr_time_exp_gmt_get, Ptr <apr_time_t> -> Ptr <apr_time_exp_t> -> IO <apr_status_t>
  51
  52 #ccall apr_sleep, <apr_interval_time_t> -> IO ()
  53
  54 #num   APR_RFC822_DATE_LEN
  55 #ccall apr_rfc822_date, Ptr CChar -> <apr_time_t> -> IO <apr_status_t>
  56
  57 #num   APR_CTIME_LEN
  58 #ccall apr_ctime, Ptr CChar -> <apr_time_t> -> IO <apr_status_t>
  59
  60 #ccall apr_strftime, Ptr CChar -> Ptr <apr_size_t> -> <apr_size_t> -> Ptr CChar -> Ptr <apr_time_exp_t> -> IO <apr_status_t>
  61
  62 #ccall apr_time_clock_hires, Ptr <apr_pool_t> -> IO ()