curl_perform_request   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/curl.xtm

Implementation

(bind-func curl_perform_request
  (lambda (handle cdat:curl_dat*)
    (let ((status (curl_easy_perform handle)))
        (if (<> status 0)
            (begin (printf "Error accessing URL: %s\n" (curl_easy_strerror status))
                   (tset! cdat 0 null)
                   (tset! cdat 1 0)
                   cdat)
            (begin
              (curl_easy_cleanup handle)
              ;; null-terminate the dat buffer
              (let ((ptr (tref cdat 0)))
                (pset! ptr (tref cdat 1) 0))
              cdat)))))


Back to Index

Similar Entries