Initial support for external-formats for encoding foreign strings

[uffi.git] / src / package.lisp

diff --git a/src/package.lisp b/src/package.lisp
index abacbc892c06973482969e524abf32d321b2affa..b6cd204e22b8145fa69e637395214fc76eb14175 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -2,31 +2,28 @@
 ;;;; *************************************************************************
 ;;;; FILE IDENTIFICATION
 ;;;;
-;;;; Name:          package.cl
+;;;; Name:          package.lisp
 ;;;; 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
+   #:no-long-long
    #:def-constant
    #:def-foreign-type
    #:def-type
    #:null-char-p
-   
+
    ;; aggregate types
    #:def-enum
    #:def-struct
@@ -35,7 +32,7 @@
    #:def-array-pointer
    #:deref-array
    #:def-union
-   
+
    ;; objects
    #:allocate-foreign-object
    #:free-foreign-object
@@ -46,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
@@ -61,7 +65,9 @@
    #:convert-to-foreign-string
    #:allocate-foreign-string
    #:with-foreign-string
-   
+   #:with-foreign-strings
+   #:foreign-string-length
+
    ;; function call
    #:def-function
 
@@ -69,4 +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*
    ))
+
+