picrin-ffi-draft.scm

(import (picrin foreign))

(define libm (foreign-library "libm.so.6"))

(define cosh (foreign-function libm "cosh" (list double) double))
(define sinh (foreign-function libm "sinh" (list double) double))

(define libc (foreign-library "libc.so.6"))

(define tm (foreign-struct int 'tm_sec
                           int 'tm_min
                           int 'tm_hour
                           int 'tm_mday
                           int 'tm_mon
                           int 'tm_year
                           int 'tm_wday
                           int 'tm_yday
                           int 'tm_isdst))