Changeset 11493 for trunk/source/library/parse-ffi.lisp
- Timestamp:
- Dec 9, 2008, 2:37:54 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/library/parse-ffi.lisp
r11486 r11493 721 721 722 722 723 (defun read-ffi-toplevel-form (stream eof-value) 724 (loop 725 (let* ((ch (peek-char nil stream nil eof-value))) 726 (cond ((eq ch eof-value) (return eof-value)) 727 ((eql ch #\() (return (read stream nil eof-value))) 728 (t (read-line stream)))))) 723 729 724 730 (defun parse-ffi (inpath) … … 737 743 (let* ((*ffi-ordinal* -1)) 738 744 (let* ((*package* (find-package "KEYWORD"))) 739 (do* ((form (read in nil :eof) (read in nil :eof))) 745 (do* ((form (read-ffi-toplevel-form in :eof) 746 (read-ffi-toplevel-form in :eof))) 740 747 ((eq form :eof)) 741 748 (case (car form) … … 1293 1300 `(c::cast ,(evaluate-type-name (list left)) 1294 1301 ,@(parse-argument-list))) 1295 (t `(c::call ,left ,@(parse-argument-list))))))1302 (t nil #|`(c::call ,left ,@(parse-argument-list))|#)))) 1296 1303 ((memq right '(c::|.| c::|->|)) 1297 1304 (next) ; swallow operator
Note: See TracChangeset
for help on using the changeset viewer.