32 lines
795 B
Scheme
32 lines
795 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(retropikzel pffi v0-2-0 main))
|
|
|
|
(define p (pffi-pointer-allocate (+ (* (pffi-size-of 'uint32) 3)
|
|
(* (pffi-size-of 'uint8) 4)
|
|
(pffi-size-of 'int))))
|
|
|
|
(write p)
|
|
(newline)
|
|
|
|
(pffi-pointer-set! p
|
|
'uint8
|
|
(+ (* (pffi-size-of 'uint32))
|
|
(* (pffi-size-of 'uint8) 2))
|
|
42)
|
|
|
|
(write p)
|
|
(newline)
|
|
|
|
(let ((result(pffi-pointer-get p
|
|
'uint8
|
|
(+ (* (pffi-size-of 'uint32))
|
|
(* (pffi-size-of 'uint8) 2)))))
|
|
(if (not (= result 42))
|
|
(error "pffi-pointer-get did not return 42"))
|
|
|
|
(write result)
|
|
(newline))
|
|
|
|
|