Tmux etc

sbcl/.quicklisp/dists/quicklisp/software/cffi_0.20.1/src/package.lisp

@@ -0,0 +1,181 @@
+;;;; -*- 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
+   ))