X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fpackage.lisp;h=905809369314d2482ecf85851b64a5b59292b0df;hb=HEAD;hp=4744635c2c92c828bb3d9a5ed8c8c7684e0aa8f6;hpb=6f682746787779a2475eec53d7d46efab891b392;p=uffi.git diff --git a/src/package.lisp b/src/package.lisp index 4744635..9058093 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,6 +43,7 @@ #:deref-pointer #:ensure-char-character #:ensure-char-integer + #:ensure-char-storable #:null-pointer-p #:make-null-pointer #:make-pointer @@ -53,7 +52,9 @@ #: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 @@ -64,8 +65,9 @@ #:convert-to-foreign-string #:allocate-foreign-string #:with-foreign-string + #:with-foreign-strings #:foreign-string-length - + ;; function call #:def-function @@ -73,9 +75,17 @@ #:find-foreign-library #:load-foreign-library #:default-foreign-library-type + #:foreign-library-types ;; OS #:run-shell-command - )) - + #:getenv + ;; Internatialization + #:no-i18n + #:*default-foreign-encoding* + #:*foreign-encodings* + #:foreign-encoded-octet-count + #:string-to-octets + #:octets-to-string + ))