(define-foreign-type ihandle (c-pointer "Ihandle")
	(ihandle->pointer #f)
	(pointer->ihandle #f))

(define-foreign-type ihandle-list nonnull-pointer-vector
	ihandle-list->pointer-vector)

(define-foreign-type nonnull-ihandle (nonnull-c-pointer "Ihandle")
	(ihandle->pointer #t)
	(pointer->ihandle #t))

(define-foreign-type istatus int
	istatus->integer
	integer->istatus)

(define-foreign-type iname/upcase c-string
	(iname->string 'upcase)
	(string->iname 'upcase))

(define-foreign-type iname/downcase c-string
	(iname->string 'downcase)
	(iname->string 'downcase))

;; vim: set ai et ts=2 sts=2 sw=2: ;;