Added type methods for automatic type declarations

diff --git a/glib/glib.lisp b/glib/glib.lisp
index a981bc660e393ef006880005f50380021567d262..1878fcd32525e285c3a4beca96f91ae7891e650d 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.40 2007/06/15 12:25:16 espen Exp $
+;; $Id: glib.lisp,v 1.41 2007/09/07 07:33:51 espen Exp $

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


@@ -52,6 +52,11 @@ (defbinding (%deallocate-memory "g_free") () nil
 (setf *memory-allocator* #'%allocate-memory)
 (setf *memory-deallocator* #'%deallocate-memory)
 
 (setf *memory-allocator* #'%allocate-memory)
 (setf *memory-deallocator* #'%deallocate-memory)
 

+(defbinding (reallocate-memory "g_realloc") () pointer
+  (address pointer)
+  (size unsigned-long))
+
+

 ;;;; User data mechanism
 
 (defvar *user-data-lock* (make-mutex))
 ;;;; User data mechanism
 
 (defvar *user-data-lock* (make-mutex))


@@ -179,6 +184,12 @@ (define-type-method alien-type ((type glist))
   (declare (ignore type))
   (alien-type 'pointer))
 
   (declare (ignore type))
   (alien-type 'pointer))
 

+(define-type-method argument-type ((type glist))
+  'list)
+
+(define-type-method return-type ((type glist))
+  'list)
+

 (define-type-method size-of ((type glist) &key inlined)
   (assert-not-inlined type inlined)
   (size-of 'pointer))
 (define-type-method size-of ((type glist) &key inlined)
   (assert-not-inlined type inlined)
   (size-of 'pointer))


@@ -332,6 +343,12 @@ (define-type-method alien-type ((type gslist))
   (declare (ignore type))
   (alien-type 'pointer))
 
   (declare (ignore type))
   (alien-type 'pointer))
 

+(define-type-method argument-type ((type gslist))
+  'list)
+
+(define-type-method return-type ((type gslist))
+  'list)
+

 (define-type-method size-of ((type gslist) &key inlined)
   (assert-not-inlined type inlined)
   (size-of 'pointer))
 (define-type-method size-of ((type gslist) &key inlined)
   (assert-not-inlined type inlined)
   (size-of 'pointer))