29 lines
616 B
Scheme
29 lines
616 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(scheme process-context)
|
|
(scheme eval)
|
|
(retropikzel pffi v0-1-0 main))
|
|
|
|
;(define libcurl (pffi-shared-object-auto-load (list "curl/curl.h") "curl" (list)))
|
|
|
|
(c-declare "#include <curl/curl.h>")
|
|
;(display libcurl)
|
|
;(newline)
|
|
|
|
(define curl-version
|
|
(c-lambda ()
|
|
char-string
|
|
"curl_version"))
|
|
|
|
;(pffi-define curl-version libcurl 'curl_version 'string (list))
|
|
|
|
(display "=================")
|
|
(newline)
|
|
|
|
(display (curl-version))
|
|
;(display (pffi-pointer->string (curl-version)))
|
|
|
|
(newline)
|
|
(display "=================")
|
|
(newline)
|