pngenerator.scm (607B)
1 (define-module (pngenerator) 2 #:export (pngenerate)) 3 (use-modules (system foreign)) 4 5 (define pngenerator (dynamic-link "pngenerator")) 6 7 (define (pngenerate text background-color foreground-color) 8 (let* ((slice-type (list '* size_t size_t)) 9 (f (pointer->procedure slice-type 10 (dynamic-func "pngenerate" pngenerator) 11 (list '* uint32 uint32))) 12 (ret (parse-c-struct (f (string->pointer text) background-color foreground-color) 13 slice-type))) 14 (pointer->bytevector (car ret) (cadr ret))) 15 )