Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Corrected Ihandle_ field alignment problem in Racket binding |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
215c766d56195bec17b6ff218dcdf2d1 |
| User & Date: | murphy 2015-05-03 21:30:26.430 |
Context
|
2015-05-03
| ||
| 22:14 | Allow callbacks to be retrieved without wrapper accumulation in the Racket binding check-in: 4b6ca5be46 user: murphy tags: trunk | |
| 21:30 | Corrected Ihandle_ field alignment problem in Racket binding check-in: 215c766d56 user: murphy tags: trunk | |
| 20:06 | Avoid useless shadowing of identifiers in recent file menu code check-in: 2e2a7ad35a user: murphy tags: trunk | |
Changes
Changes to racket/base.rkt.
| ︙ | ︙ | |||
199 200 201 202 203 204 205 206 207 208 209 210 211 212 |
(_fun -> _void)))
(define main-loop-flush
(get-ffi-obj
"IupFlush" libiup
(_fun -> _void)))
(define callback-type
(letrec ([type-cache
(make-hash)]
[callback-signature
(get-ffi-obj
"iupClassCallbackGetFormat" libiup
(_fun [class : _pointer] [name : _iname/upcase] -> [format : _string/utf-8]))]
| > > | 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 |
(_fun -> _void)))
(define main-loop-flush
(get-ffi-obj
"IupFlush" libiup
(_fun -> _void)))
(define-cstruct _ihandle* ([sig (_array _byte 4)] [iclass _pointer]))
(define callback-type
(letrec ([type-cache
(make-hash)]
[callback-signature
(get-ffi-obj
"iupClassCallbackGetFormat" libiup
(_fun [class : _pointer] [name : _iname/upcase] -> [format : _string/utf-8]))]
|
| ︙ | ︙ | |||
220 221 222 223 224 225 226 |
[(#\s) _string/utf-8]
[(#\v) _pointer]
[(#\h) _ihandle/null]
[else (error location "bad callback ~s type ~e" (if param? "parameter" "return") char)]))])
(λ (location handle name)
(unless (ihandle? handle)
(raise-type-error location "non-null `ihandle' pointer" handle))
| | > > > | 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 |
[(#\s) _string/utf-8]
[(#\v) _pointer]
[(#\h) _ihandle/null]
[else (error location "bad callback ~s type ~e" (if param? "parameter" "return") char)]))])
(λ (location handle name)
(unless (ihandle? handle)
(raise-type-error location "non-null `ihandle' pointer" handle))
(let ([signature
(or
(callback-signature (ihandle*-iclass (cast handle _ihandle _ihandle*-pointer)) name)
"")])
(or
(hash-ref type-cache signature #f)
(match signature
[(regexp #rx"^([^=]*)(=.)?$" (list _ params return))
(let* ([return
(cond [return => (cut string-ref <> 1)] [else #\i])]
[type
|
| ︙ | ︙ |