22 lines
586 B
Scheme
22 lines
586 B
Scheme
(import (scheme base)
|
|
(scheme write)
|
|
(scheme process-context)
|
|
(scheme eval)
|
|
(retropikzel r7rs-pffi version main))
|
|
|
|
(define libcurl (pffi-shared-object-auto-load (list "curl/curl.h")
|
|
(list)
|
|
"curl"
|
|
(list ".4")))
|
|
|
|
(pffi-define curl-version libcurl 'curl_version 'string (list))
|
|
|
|
(display "=================")
|
|
(newline)
|
|
|
|
(display (pffi-pointer->string (curl-version)))
|
|
|
|
(newline)
|
|
(display "=================")
|
|
(newline)
|