1 #include <bindings.dsl.h>
4 module Bindings.APR.Time where
7 import Bindings.APR.ErrNo
8 import Bindings.APR.Pools
10 -- Isn't there a better way than this?
11 #pointer apr_month_snames
12 #pointer apr_day_snames
14 #integral_t apr_time_t
15 #pointer APR_TIME_T_FMT
17 #integral_t apr_interval_time_t
18 #integral_t apr_short_interval_time_t
22 #cinline apr_time_sec , <apr_time_t> -> IO <apr_time_t>
23 #cinline apr_time_usec, <apr_time_t> -> IO <apr_time_t>
24 #cinline apr_time_msec, <apr_time_t> -> IO <apr_time_t>
25 #cinline apr_time_as_msec , <apr_time_t> -> IO <apr_time_t>
26 #cinline apr_time_from_sec, <apr_time_t> -> IO <apr_time_t>
27 #cinline apr_time_make, <apr_time_t> -> <apr_time_t> -> IO <apr_time_t>
29 #ccall apr_time_now, IO <apr_time_t>
31 #starttype struct apr_time_exp_t
32 # field tm_usec, <apr_int32_t>
33 # field tm_sec , <apr_int32_t>
34 # field tm_min , <apr_int32_t>
35 # field tm_hour, <apr_int32_t>
36 # field tm_mday, <apr_int32_t>
37 # field tm_mon , <apr_int32_t>
38 # field tm_year, <apr_int32_t>
39 # field tm_wday, <apr_int32_t>
40 # field tm_yday, <apr_int32_t>
41 # field tm_isdst , <apr_int32_t>
42 # field tm_gmtoff, <apr_int32_t>
45 #ccall apr_time_ansi_put, Ptr <apr_time_t> -> CTime -> IO <apr_status_t>
47 #ccall apr_time_exp_tz , Ptr <apr_time_exp_t> -> <apr_time_t> -> <apr_int32_t> -> IO <apr_status_t>
48 #ccall apr_time_exp_gmt, Ptr <apr_time_exp_t> -> <apr_time_t> -> IO <apr_status_t>
49 #ccall apr_time_exp_lt , Ptr <apr_time_exp_t> -> <apr_time_t> -> IO <apr_status_t>
50 #ccall apr_time_exp_get , Ptr <apr_time_t> -> Ptr <apr_time_exp_t> -> IO <apr_status_t>
51 #ccall apr_time_exp_gmt_get, Ptr <apr_time_t> -> Ptr <apr_time_exp_t> -> IO <apr_status_t>
53 #ccall apr_sleep, <apr_interval_time_t> -> IO ()
55 #num APR_RFC822_DATE_LEN
56 #ccall apr_rfc822_date, Ptr CChar -> <apr_time_t> -> IO <apr_status_t>
59 #ccall apr_ctime, Ptr CChar -> <apr_time_t> -> IO <apr_status_t>
61 #ccall apr_strftime, Ptr CChar -> Ptr <apr_size_t> -> <apr_size_t> -> Ptr CChar -> Ptr <apr_time_exp_t> -> IO <apr_status_t>
63 #ccall apr_time_clock_hires, Ptr <apr_pool_t> -> IO ()