projects
/
uffi.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r11087: add cygwin support
[uffi.git]
/
src
/
package.lisp
diff --git
a/src/package.lisp
b/src/package.lisp
index abacbc892c06973482969e524abf32d321b2affa..bdce95b70b5fcf3b91ede72cb5374a66eac66239 100644
(file)
--- a/
src/package.lisp
+++ b/
src/package.lisp
@@
-2,31
+2,27
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; Name: package.
cl
+;;;; Name: package.
lisp
;;;; Purpose: Defines UFFI package
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
;;;; Purpose: Defines UFFI package
;;;; 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.
;;;; *************************************************************************
;;;; *************************************************************************
-(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
-(in-package :cl-user)
+(in-package #:cl-user)
+
+(defpackage #:uffi
+ (:use #:cl)
+ (:export
-(defpackage :uffi
- (:use :cl)
- (:export
-
;; immediate types
#:def-constant
#:def-foreign-type
#:def-type
#:null-char-p
;; immediate types
#:def-constant
#:def-foreign-type
#:def-type
#:null-char-p
-
+
;; aggregate types
#:def-enum
#:def-struct
;; aggregate types
#:def-enum
#:def-struct
@@
-35,7
+31,7
@@
#:def-array-pointer
#:deref-array
#:def-union
#:def-array-pointer
#:deref-array
#:def-union
-
+
;; objects
#:allocate-foreign-object
#:free-foreign-object
;; objects
#:allocate-foreign-object
#:free-foreign-object
@@
-46,11
+42,18
@@
#:deref-pointer
#:ensure-char-character
#:ensure-char-integer
#:deref-pointer
#:ensure-char-character
#:ensure-char-integer
+ #:ensure-char-storable
#:null-pointer-p
#:make-null-pointer
#:null-pointer-p
#:make-null-pointer
+ #:make-pointer
+ #:pointer-address
#:+null-cstring-pointer+
#:char-array-to-pointer
#:+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
;; string functions
#:convert-from-cstring
#:convert-to-cstring
@@
-61,7
+64,9
@@
#:convert-to-foreign-string
#:allocate-foreign-string
#:with-foreign-string
#:convert-to-foreign-string
#:allocate-foreign-string
#:with-foreign-string
-
+ #:with-foreign-strings
+ #:foreign-string-length
+
;; function call
#:def-function
;; function call
#:def-function
@@
-69,4
+74,11
@@
#:find-foreign-library
#:load-foreign-library
#:default-foreign-library-type
#:find-foreign-library
#:load-foreign-library
#:default-foreign-library-type
+ #:foreign-library-types
+
+ ;; OS
+ #:run-shell-command
+ #:getenv
))
))
+
+