source: project/release/4/iup/trunk/iup-types.scm @ 20570

Last change on this file since 20570 was 20570, checked in by Thomas Chust, 11 years ago

Imported the IUP binding egg.

File size: 541 bytes
Line 
1(define-foreign-type ihandle (c-pointer "Ihandle")
2        (ihandle->pointer #f)
3        (pointer->ihandle #f))
4
5(define-foreign-type ihandle-list blob
6        ihandle-list->blob)
7
8(define-foreign-type nonnull-ihandle (nonnull-c-pointer "Ihandle")
9        (ihandle->pointer #t)
10        (pointer->ihandle #t))
11
12(define-foreign-type istatus int
13        istatus->integer
14        integer->istatus)
15
16(define-foreign-type iname/upcase c-string
17        (iname->string 'upcase)
18        (string->iname 'upcase))
19
20(define-foreign-type iname/downcase c-string
21        (iname->string 'downcase)
22        (iname->string 'downcase))
Note: See TracBrowser for help on using the repository browser.