Changeset 444

Timestamp:

Jan 30, 2004, 8:34:38 PM (21 years ago)

Author:

Gary Byers

Message:

PARSE-FOREIGN-STRUCT-OR-UNION-SPEC allows for anonymous fields.

File:

• trunk/ccl/examples/bridge.lisp (modified) (2 diffs)

trunk/ccl/examples/bridge.lisp

@@ -416 +416 @@
                      `(,record-class ,record-name ,@(fields)))
                    (1+ (string-input-stream-index string-stream))))
-              (let* ((field-name-string (read string-stream)))
+              (let* ((field-name-string
+                      (if (eql (peek-char nil string-stream) #\")
+                        (read string-stream))))
                 (if (eql (peek-char nil string-stream) #\")
                   (setq field-name-string (read string-stream)))
-                (unless (typep field-name-string 'string)
+                (unless (or (null field-name-string)
+                            (typep field-name-string 'string))
                   (error "Bad field name in ~s: expected a quoted string, got ~s"
                          typestring field-name-string))
@@ -427 +430 @@
                      (string-input-stream-index string-stream)
                      nil)
-                  (fields `(,(escape-foreign-name field-name-string)
+                  (fields `(,(if field-name-string (escape-foreign-name field-name-string))
                             ,typespec))
                   (setf (string-input-stream-index string-stream) endpos))))))))))