13 May
2008
13 May
'08
5:46 p.m.
hi,
please see the attached patch, also pasted at the end of the mail for convenience.
i'm not sure about the way time-t is defined, maybe someone with more insight into cffi can approve it or declare it as a hack..
--
attila
diff --git a/posix/basic-unix.lisp b/posix/basic-unix.lisp
index fcc16e7..7c795d3 100644
--- a/posix/basic-unix.lisp
+++ b/posix/basic-unix.lisp
@@ -187,6 +187,9 @@
(defun time ()
(%time (null-pointer)))
+(deftype time-t ()
+ `(unsigned-byte ,(* (cffi:foreign-type-size 'time) 8)))
+
;;;; sys/stat.h
(define-c-struct-wrapper stat ())
diff --git a/posix/unix.lisp b/posix/unix.lisp
index 2878286..d91dd90 100644
--- a/posix/unix.lisp
+++ b/posix/unix.lisp
@@ -331,6 +331,9 @@
(clockid clockid)
(res :pointer))
+ (declaim (ftype (function (fixnum) (values time-t (integer 0 999999999)))
+ clock-getres))
+
(defun clock-getres (clock-id)
(with-foreign-object (ts 'timespec)
(with-foreign-slots ((sec nsec) ts timespec)
@@ -341,8 +344,13 @@
(clockid clockid)
(tp :pointer))
+ (declaim (inline clock-gettime)
+ (ftype (function (fixnum) (values time-t (integer 0 999999999)))
+ clock-gettime))
+
(defun clock-gettime (clock-id)
"Returns the time of the clock CLOCKID."
+ (declare (optimize (speed 3) (safety 2)))
(with-foreign-object (ts 'timespec)
(with-foreign-slots ((sec nsec) ts timespec)
(%clock-gettime clock-id ts)