Added new types GSSIZE and GOFFSET

diff --git a/glib/glib.lisp b/glib/glib.lisp
index ea71c47da69425d479a80a038acd2ed61de0a86e..ad04e915096a0ab63c39a2e42f9181884a2dd782 100644 (file)
--- a/glib/glib.lisp
+++ b/glib/glib.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 

-;; $Id: glib.lisp,v 1.44 2008/10/08 18:11:12 espen Exp $
+;; $Id: glib.lisp,v 1.45 2008/12/14 21:37:25 espen Exp $

 
 
 (in-package "GLIB")
 
 
 (in-package "GLIB")


@@ -40,6 +40,9 @@   (defmacro with-mutex ((mutex) &body body)
 ;;;; Memory management
 
 (deftype gsize () 'unsigned-int)
 ;;;; Memory management
 
 (deftype gsize () 'unsigned-int)

+(deftype gssize () 'int)
+(deftype goffset () '(unsigned-int 64))
+

 
 (defbinding malloc0 () pointer
   (size gsize))
 
 (defbinding malloc0 () pointer
   (size gsize))


@@ -60,6 +63,8 @@ (defbinding (slice-alloc "g_slice_alloc0") () pointer
 ;;;; User data is a mechanism to store references to lisp objects in
 ;;;; foreign code
 
 ;;;; User data is a mechanism to store references to lisp objects in
 ;;;; foreign code
 

+;; TODO: move to gffi
+

 (defvar *user-data-lock* (make-mutex))
 (defvar *user-data* (make-hash-table))
 (defvar *user-data-next-id* 1)
 (defvar *user-data-lock* (make-mutex))
 (defvar *user-data* (make-hash-table))
 (defvar *user-data-next-id* 1)