X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fmcl%2Fpackage.cl;fp=src%2Fmcl%2Fpackage.cl;h=c56bfbd8e869708b6f7fb0c7f35a72cf8fe26a39;hb=5bd05c7e835ff4ce78e6eb9c928a6f71471ce528;hp=0000000000000000000000000000000000000000;hpb=839b3e4b9627ecf5d3b0d8d2910a95d7f9010dc5;p=uffi.git

diff --git a/src/mcl/package.cl b/src/mcl/package.cl
new file mode 100644
index 0000000..c56bfbd
--- /dev/null
+++ b/src/mcl/package.cl
@@ -0,0 +1,71 @@
+;;;; -*- Mode: ANSI-Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name:          package.cl
+;;;; 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
+;;;;
+;;;; 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)
+
+(defpackage :uffi
+  (:use :cl)
+  (:export 
+   
+   ;; immediate types
+   #:def-constant
+   #:def-foreign-type
+   #:def-type
+   #:null-char-p
+   
+   ;; aggregate types
+   #:def-enum
+   #:def-struct
+   #:get-slot-value
+   #:get-slot-pointer
+   #:def-array-pointer
+   #:deref-array
+   #:def-union
+   
+   ;; objects
+   #:allocate-foreign-object
+   #:free-foreign-object
+   #:with-foreign-object
+   #:with-foreign-objects
+   #:pointer-address
+   #:deref-pointer
+   #:ensure-char-character
+   #:ensure-char-integer
+   #:null-pointer-p
+   #:make-null-pointer
+   #:+null-cstring-pointer+
+   #:char-array-to-pointer
+   
+   ;; string functions
+   #:convert-from-cstring
+   #:convert-to-cstring
+   #:free-cstring
+   #:with-cstring
+   #:with-cstrings
+   #:convert-from-foreign-string
+   #:convert-to-foreign-string
+   #:allocate-foreign-string
+   #:with-foreign-string
+   
+   ;; function call
+   #:def-function
+
+   ;; Libraries
+   #:load-foreign-library
+
+   ;; Utilities
+   ))