X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fpackage.lisp;h=b6cd204e22b8145fa69e637395214fc76eb14175;hb=27073cc090c29aa5dcf9ed9becdf3e73b937b0bb;hp=05f7e4f5d6802e1687f63fc494a7c2d1573c4a6b;hpb=5ee29e2a72598eb6db2063510b2ea6046945b70c;p=uffi.git diff --git a/src/package.lisp b/src/package.lisp index 05f7e4f..b6cd204 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -7,25 +7,23 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg ;;;; -;;;; UFFI users are granted the rights to distribute and use this software -;;;; as governed by the terms of the Lisp Lesser GNU Public License -;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* (in-package #:cl-user) (defpackage #:uffi (:use #:cl) - (:export - + (:export + ;; immediate types + #:no-long-long #:def-constant #:def-foreign-type #:def-type #:null-char-p - + ;; aggregate types #:def-enum #:def-struct @@ -34,7 +32,7 @@ #:def-array-pointer #:deref-array #:def-union - + ;; objects #:allocate-foreign-object #:free-foreign-object @@ -45,13 +43,18 @@ #:deref-pointer #:ensure-char-character #:ensure-char-integer + #:ensure-char-storable #:null-pointer-p #:make-null-pointer + #:make-pointer + #:pointer-address #:+null-cstring-pointer+ #:char-array-to-pointer #:with-cast-pointer #:def-foreign-var - + #:convert-from-foreign-usb8 + #:def-pointer-var + ;; string functions #:convert-from-cstring #:convert-to-cstring @@ -62,8 +65,9 @@ #:convert-to-foreign-string #:allocate-foreign-string #:with-foreign-string + #:with-foreign-strings #:foreign-string-length - + ;; function call #:def-function @@ -71,9 +75,16 @@ #:find-foreign-library #:load-foreign-library #:default-foreign-library-type + #:foreign-library-types ;; OS #:run-shell-command + #:getenv + + ;; Internatialization + #:no-i18n + #:*default-external-format* + #:*external-formats* ))