Changeset 5744

Timestamp:

Jan 20, 2007, 6:18:27 PM (18 years ago)

Author:

Gary Byers

Message:

Encode, decode union types in arglists.

File:

• trunk/ccl/lib/db-io.lisp (modified) (4 diffs)

trunk/ccl/lib/db-io.lisp

@@ -547 +547 @@
     (#\r . :record)))
 
-(defun encode-arguments (args result string)
-  (let* ((i 1))
-    (flet ((encoded-arg (thing)
-             (if thing
-               (or (car (rassoc thing *arg-spec-encoding*))
-                   (return-from encode-arguments nil))
-               #\Space)))
-      (setf (schar string 0) (encoded-arg result))
-      (dolist (arg args t)
-        (setf (schar string i) (encoded-arg arg)
-              i (1+ i))))))
+
 
 (defun decode-arguments (string)
@@ -566 +556 @@
         (declare (fixnum i))
         (let* ((ch (schar string i))
-               (val (if (or (eql ch #\r) (eql ch #\R) (eql ch #\t))
+               (val (if (or (eql ch #\r) (eql ch #\u) (eql ch #\t))
                       (let* ((namelen (char-code (schar string (incf i))))
                              (name (make-string namelen)))
@@ -572 +562 @@
                           (setf (schar name k)
                                 (schar string (incf i))))
-                        (if (eql ch #\R)
-                          name
-                          (escape-foreign-name name)))
+                        (if (eql ch #\r)
+                          `(:struct ,(escape-foreign-name name))
+                          (if (eql ch #\u)
+                            `(:union ,(escape-foreign-name name))
+                            name)))
                       (cdr (assoc ch *arg-spec-encoding*)))))
           (if result
@@ -1279 +1271 @@
      (if (getf (ftd-attributes *target-ftd*) :struct-by-value)
        (if return-value-p `(#\a)
-                          `(#\r ,@(encode-name (ffi-struct-reference (cadr spec)))))
+                          `(,(if (eq (car spec) :struct)
+                                 #\r
+                                 #\u)
+                            ,@(encode-name (ffi-struct-reference (cadr spec)))))
        `(#\a)))
     (:typedef