29 lines
695 B
Scheme
29 lines
695 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(retropikzel pffi v0.1.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)
|
|
|
|
(write (pffi-pointer-get p
|
|
'uint8
|
|
(+ (* (pffi-size-of 'uint32))
|
|
(* (pffi-size-of 'uint8) 2))
|
|
))
|
|
(newline)
|
|
|
|
|