182 lines
5 KiB
Common Lisp
182 lines
5 KiB
Common Lisp
|
;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
|
||
|
|
;;;
|
||
|
|
;;; package.lisp --- Package definition for CFFI.
|
||
|
|
;;;
|
||
|
|
;;; Copyright (C) 2005-2006, James Bielman <jamesjb@jamesjb.com>
|
||
|
|
;;;
|
||
|
|
;;; Permission is hereby granted, free of charge, to any person
|
||
|
|
;;; obtaining a copy of this software and associated documentation
|
||
|
|
;;; files (the "Software"), to deal in the Software without
|
||
|
|
;;; restriction, including without limitation the rights to use, copy,
|
||
|
|
;;; modify, merge, publish, distribute, sublicense, and/or sell copies
|
||
|
|
;;; of the Software, and to permit persons to whom the Software is
|
||
|
|
;;; furnished to do so, subject to the following conditions:
|
||
|
|
;;;
|
||
|
|
;;; The above copyright notice and this permission notice shall be
|
||
|
|
;;; included in all copies or substantial portions of the Software.
|
||
|
|
;;;
|
||
|
|
;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||
|
|
;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
|
||
|
|
;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
|
||
|
|
;;; NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
|
||
|
|
;;; HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
|
||
|
|
;;; WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
||
|
|
;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
|
||
|
|
;;; DEALINGS IN THE SOFTWARE.
|
||
|
|
;;;
|
||
|
|
|
||
|
|
(in-package #:cl-user)
|
||
|
|
|
||
|
|
(defpackage #:cffi
|
||
|
|
(:use #:common-lisp #:cffi-sys #:babel-encodings)
|
||
|
|
(:import-from #:alexandria
|
||
|
|
#:compose
|
||
|
|
#:ensure-list
|
||
|
|
#:featurep
|
||
|
|
#:format-symbol
|
||
|
|
#:hash-table-values
|
||
|
|
#:if-let
|
||
|
|
#:ignore-some-conditions
|
||
|
|
#:lastcar
|
||
|
|
#:make-gensym-list
|
||
|
|
#:make-keyword
|
||
|
|
#:mappend
|
||
|
|
#:once-only
|
||
|
|
#:parse-body
|
||
|
|
#:simple-style-warning
|
||
|
|
#:symbolicate
|
||
|
|
#:unwind-protect-case
|
||
|
|
#:when-let
|
||
|
|
#:with-unique-names)
|
||
|
|
(:export
|
||
|
|
;; Types.
|
||
|
|
#:foreign-pointer
|
||
|
|
|
||
|
|
;; FIXME: the following types are undocumented. They should
|
||
|
|
;; probably be replaced with a proper type introspection API
|
||
|
|
;; though.
|
||
|
|
#:*built-in-foreign-types*
|
||
|
|
#:*other-builtin-types*
|
||
|
|
#:*built-in-integer-types*
|
||
|
|
#:*built-in-float-types*
|
||
|
|
|
||
|
|
;; Primitive pointer operations.
|
||
|
|
#:foreign-free
|
||
|
|
#:foreign-alloc
|
||
|
|
#:mem-aptr
|
||
|
|
#:mem-aref
|
||
|
|
#:mem-ref
|
||
|
|
#:pointerp
|
||
|
|
#:pointer-eq
|
||
|
|
#:null-pointer
|
||
|
|
#:null-pointer-p
|
||
|
|
#:inc-pointer
|
||
|
|
#:incf-pointer
|
||
|
|
#:with-foreign-pointer
|
||
|
|
#:make-pointer
|
||
|
|
#:pointer-address
|
||
|
|
|
||
|
|
;; Shareable vectors.
|
||
|
|
#:make-shareable-byte-vector
|
||
|
|
#:with-pointer-to-vector-data
|
||
|
|
|
||
|
|
;; Foreign string operations.
|
||
|
|
#:*default-foreign-encoding*
|
||
|
|
#:foreign-string-alloc
|
||
|
|
#:foreign-string-free
|
||
|
|
#:foreign-string-to-lisp
|
||
|
|
#:lisp-string-to-foreign
|
||
|
|
#:with-foreign-string
|
||
|
|
#:with-foreign-strings
|
||
|
|
#:with-foreign-pointer-as-string
|
||
|
|
|
||
|
|
;; Foreign array operations.
|
||
|
|
;; TODO: document these
|
||
|
|
#:foreign-array-alloc
|
||
|
|
#:foreign-array-free
|
||
|
|
#:foreign-array-to-lisp
|
||
|
|
#:lisp-array-to-foreign
|
||
|
|
#:with-foreign-array
|
||
|
|
#:foreign-aref
|
||
|
|
|
||
|
|
;; Foreign function operations.
|
||
|
|
#:defcfun
|
||
|
|
#:foreign-funcall
|
||
|
|
#:foreign-funcall-pointer
|
||
|
|
#:foreign-funcall-varargs
|
||
|
|
#:foreign-funcall-pointer-varargs
|
||
|
|
#:translate-camelcase-name
|
||
|
|
#:translate-name-from-foreign
|
||
|
|
#:translate-name-to-foreign
|
||
|
|
#:translate-underscore-separated-name
|
||
|
|
|
||
|
|
;; Foreign library operations.
|
||
|
|
#:*foreign-library-directories*
|
||
|
|
#:*darwin-framework-directories*
|
||
|
|
#:foreign-library
|
||
|
|
#:foreign-library-name
|
||
|
|
#:foreign-library-pathname
|
||
|
|
#:foreign-library-type
|
||
|
|
#:foreign-library-loaded-p
|
||
|
|
#:list-foreign-libraries
|
||
|
|
#:define-foreign-library
|
||
|
|
#:load-foreign-library
|
||
|
|
#:load-foreign-library-error
|
||
|
|
#:use-foreign-library
|
||
|
|
#:close-foreign-library
|
||
|
|
#:reload-foreign-libraries
|
||
|
|
|
||
|
|
;; Callbacks.
|
||
|
|
#:callback
|
||
|
|
#:get-callback
|
||
|
|
#:defcallback
|
||
|
|
|
||
|
|
;; Foreign type operations.
|
||
|
|
#:defcstruct
|
||
|
|
#:defcunion
|
||
|
|
#:defctype
|
||
|
|
#:defcenum
|
||
|
|
#:defbitfield
|
||
|
|
#:define-foreign-type
|
||
|
|
#:define-parse-method
|
||
|
|
#:define-c-struct-wrapper
|
||
|
|
#:foreign-enum-keyword
|
||
|
|
#:foreign-enum-keyword-list
|
||
|
|
#:foreign-enum-value
|
||
|
|
#:foreign-bitfield-symbol-list
|
||
|
|
#:foreign-bitfield-symbols
|
||
|
|
#:foreign-bitfield-value
|
||
|
|
#:foreign-slot-pointer
|
||
|
|
#:foreign-slot-value
|
||
|
|
#:foreign-slot-type
|
||
|
|
#:foreign-slot-offset
|
||
|
|
#:foreign-slot-count
|
||
|
|
#:foreign-slot-names
|
||
|
|
#:foreign-type-alignment
|
||
|
|
#:foreign-type-size
|
||
|
|
#:with-foreign-object
|
||
|
|
#:with-foreign-objects
|
||
|
|
#:with-foreign-slots
|
||
|
|
#:convert-to-foreign
|
||
|
|
#:convert-from-foreign
|
||
|
|
#:convert-into-foreign-memory
|
||
|
|
#:free-converted-object
|
||
|
|
#:translation-forms-for-class
|
||
|
|
|
||
|
|
;; Extensible foreign type operations.
|
||
|
|
#:define-translation-method ; FIXME: undocumented
|
||
|
|
#:translate-to-foreign
|
||
|
|
#:translate-from-foreign
|
||
|
|
#:translate-into-foreign-memory
|
||
|
|
#:free-translated-object
|
||
|
|
#:expand-to-foreign-dyn
|
||
|
|
#:expand-to-foreign
|
||
|
|
#:expand-from-foreign
|
||
|
|
#:expand-into-foreign-memory
|
||
|
|
|
||
|
|
;; Foreign globals.
|
||
|
|
#:defcvar
|
||
|
|
#:get-var-pointer
|
||
|
|
#:foreign-symbol-pointer
|
||
|
|
))
|