(defun c-escape (string &optional (dangerous-chars '(#\")) (escape-char #\\))
"Escape DANGEROUS-CHARS in STRING, with ESCAPE-CHAR."
+ (declare (simple-string string))
(coerce (loop for c across string
if (member c dangerous-chars) collect escape-char
collect c)
(dolist (def definitions)
(destructuring-bind (type lispname cname &optional doc export) def
(case type
- (:integer
+ ((:integer :errno)
(as-c "#ifdef" cname)
(printf "(cl:defconstant ~A %d \"~A\")" lispname doc
cname)
+ (when (eql type :errno)
+ (printf "(cl:setf (get '~A 'errno) t)" lispname))
(as-c "#else")
(printf "(sb-int:style-warn \"Couldn't grovel for ~A (unknown to the C compiler).\")" cname)
(as-c "#endif"))
(defclass grovel-constants-file (asdf:cl-source-file)
((package :accessor constants-package :initarg :package)
(do-not-grovel :accessor do-not-grovel
- :initform nil
- :initarg :do-not-grovel)))
+ :initform nil
+ :initarg :do-not-grovel)))
(define-condition c-compile-failed (compile-failed) ()
(:report (lambda (c s)
(funcall (intern "C-CONSTANTS-EXTRACT" (find-package "SB-GROVEL"))
filename tmp-c-source (constants-package component))
(unless (do-not-grovel component)
- (let* ((cc (or (sb-ext:posix-getenv "CC")
+ (let* ((cc (or (and (string/= (sb-ext:posix-getenv "CC") "")
+ (sb-ext:posix-getenv "CC"))
;; It might be nice to include a CONTINUE or
;; USE-VALUE restart here, but ASDF seems to insist
;; on handling the errors itself.
'("-D_LARGEFILE_SOURCE"
"-D_LARGEFILE64_SOURCE"
"-D_FILE_OFFSET_BITS=64")
- #+(and x86-64 darwin)
- '("-arch" "x86_64")
+ #+(and x86 linux) '("-m32")
+ #+(and x86-64 darwin inode64)
+ '("-arch" "x86_64"
+ "-mmacosx-version-min=10.5"
+ "-D_DARWIN_USE_64_BIT_INODE")
+ #+(and x86-64 darwin (not inode64))
+ '("-arch" "x86_64"
+ "-mmacosx-version-min=10.4")
+ #+(and x86 darwin)
+ '("-arch" "i386"
+ "-mmacosx-version-min=10.4")
+ #+(and x86-64 sunos) '("-m64")
(list "-o"
(namestring tmp-a-dot-out)
(namestring tmp-c-source)))