X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fpackage.lisp;h=b6cd204e22b8145fa69e637395214fc76eb14175;hb=27073cc090c29aa5dcf9ed9becdf3e73b937b0bb;hp=9bd1b093d747382de5be47ee4dab1671b43b8de9;hpb=51a8e53201f8883fbd093fe45936d98128a8a5fe;p=uffi.git diff --git a/src/package.lisp b/src/package.lisp index 9bd1b09..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,11 +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 @@ -60,7 +65,9 @@ #:convert-to-foreign-string #:allocate-foreign-string #:with-foreign-string - + #:with-foreign-strings + #:foreign-string-length + ;; function call #:def-function @@ -68,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* ))