Ignore:
Timestamp:
May 20, 2005, 9:08:27 AM (14 years ago)
Author:
gb
Message:

Make the target argument &optional, not &key. Install the target backend
while we're parsing, so that .cdb files will have the right signature
even if they're cross-compiled.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/library/parse-ffi.lisp

    r1501 r1529  
    708708            (dolist (f defined-functions) (emit-function-decl f))))))))
    709709
    710 (defun parse-standard-ffi-files (dirname &key
    711                                          target)
     710(defun parse-standard-ffi-files (dirname &optional target)
    712711  (let* ((backend (if target (find-backend target) *target-backend*))
    713712         (ftd (backend-target-foreign-type-data backend))
    714713         (*parse-ffi-target-ftd* ftd)
    715714         (*target-ftd* ftd)
     715         (*target-backend* backend)
    716716         (d (use-interface-dir dirname ftd))
    717717         (interface-dir (merge-pathnames
     
    791791
    792792
    793 ;;; Each element of operators can be a symbol or a list of a symbol, a function, and args
    794 ;;; All the symbols must start with the character for which this is the macro-character fcn
    795 ;;; The entries must be in the right order, e.g. dictionary order, so any two symbols
    796 ;;; with a common prefix are adjacent in the list.  Furthermore each symbol in the list
    797 ;;; must be preceded by every non-empty leading substring of that symbol, since we only
    798 ;;; have one character of look-ahead in the stream.
     793;;; Each element of operators can be a symbol or a list of a symbol, a
     794;;; function, and args All the symbols must start with the character
     795;;; for which this is the macro-character fcn The entries must be in
     796;;; the right order, e.g. dictionary order, so any two symbols with a
     797;;; common prefix are adjacent in the list.  Furthermore each symbol
     798;;; in the list must be preceded by every non-empty leading substring
     799;;; of that symbol, since we only have one character of look-ahead in
     800;;; the stream.
    799801(defun operator-macro (operators)
    800802  ;; The tree is an alist keyed by character (with a nil key at the end for the default)
Note: See TracChangeset for help on using the changeset viewer.