Changeset 31412 for lang/commonlisp

Timestamp:

03/20/09 22:12:36 (4 years ago)

Author:

quek

Message:

I can get a date.

Location:

lang/commonlisp/cl-win32ole/trunk

Files:

• api/variant.lisp (modified) (2 diffs)
• cl-win32ole-sys.asd (modified) (1 diff)
• sys/ole-variant.lisp (modified) (2 diffs)
• sys/package.lisp (modified) (1 diff)
• sys/systemtime.lisp (added)
• sys/type.lisp (modified) (1 diff)

lang/commonlisp/cl-win32ole/trunk/api/variant.lisp

@@ -19 +19 @@
                (VT_R4 v)
                (VT_R8 v)
+               (VT_DATE (to-lisp-date ptr))
                (VT_BSTR (bstr->lisp v))
                (VT_BOOL (= VARIANT_TRUE v))
@@ -24 +25 @@
                               (add-ref dispatch)
                               dispatch)))))))
+
+(defun to-lisp-date (ptr)
+  (from-variant-date ptr))
 
 (defun map-dim (fn list)

lang/commonlisp/cl-win32ole/trunk/cl-win32ole-sys.asd

@@ -19 +19 @@
                          (:file "ole-dispatch")
                          (:file "safearray")
+                         (:file "systemtime")
                          )))
   :depends-on (cffi cl-ppcre trivial-garbage))

lang/commonlisp/cl-win32ole/trunk/sys/ole-variant.lisp

@@ -69 +69 @@
   (float :float)
   (double :double)
+  (date :double)
+  (pdate :pointer)
   (pointer :pointer))
 
@@ -103 +105 @@
              (VT_R4 'float)
              (VT_R8 'double)
+             (VT_DATE (if (variant-byref-p variant) 'pdate 'date))
              (VT_BSTR 'pointer)
              (VT_BOOL 'bool)

lang/commonlisp/cl-win32ole/trunk/sys/package.lisp

@@ -135 +135 @@
            #:safe-array->variant-ptr-list
 
+           #:SYSTEMTIME
+           #:UDATE
+           #:VarUdateFromDate
+           #:VarDateFromUdate
+           #:from-variant-date
+
            #:p
            #:switch

lang/commonlisp/cl-win32ole/trunk/sys/type.lisp

@@ -14 +14 @@
 
 (cffi:defctype HRESULT :long)
+
+(cffi:defctype DATE :double)
 
 (cffi:defcstruct GUID