Artifact 49cbb786cb6de811b928616bcae963943ed240c7:

• File iup/iup-types.scm — part of check-in [1e08e6c5f5] at 2011-01-30 16:01:36 on branch trunk — Imported initial copy of iup from chicken egg svn (user: matt, size: 569) [annotate] [blame] [check-ins using]

(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))