okflo@teletyp.ist writes:   
      
   > hi forthers,   
   >   
   > I am trying to do a (very simple and naive) http-request   
   > with gforth (current from git):   
   > [...]   
      
   Hi,   
      
   following up to my own post, I did nearly a year ago:   
      
   Some days ago I came back to forth and finally grasped the ffi of   
   gforth. Great stuff - especially the simple way to make c-callbacks!   
      
   Gforth's documentation doesn't include any example, so - perhaps my   
   implementation, see below, helps someone else.  See also at   
   https://teletyp.ist/blog/entries/Doing-http-requests-with-gforth   
   and-libcurl.html   
   for web-reference.   
      
   Let me also address some questions to the experienced forthers:   
      
   - I use global variables (in the dictionary) for curl-data and   
     response-code. What would be the right way to do this locally in   
     http-request? The usual locals are on a stack IMHO - so I would need   
     to allocate cells?   
   - What is the best way, to convert an sstring to a cstring? I was   
     wondering, that there is a cstring>sstring in gforth, but not the   
     other way sstring>cstring?   
   - Please raise any other detail, I did wrong! ;)   
      
   best regards & many thanks for any hints in advance - okflo   
      
   #+begin_src  forth   
     \ http-request bindings to libcurl for gforth (>= 0.7.9)   
      
     c-library curl   
       s" curl-gnutls" add-lib   
       \c #include    
       \c #include    
      
       c-value curl-global-all CURL_GLOBAL_ALL -- n   
       c-value curle-ok CURLE_OK -- n   
       c-value curlopt-url CURLOPT_URL -- n   
       c-value curlopt-customrequest CURLOPT_CUSTOMREQUEST -- n   
       c-value curlopt-writefunction CURLOPT_WRITEFUNCTION -- n   
       c-value curlopt-writedata CURLOPT_WRITEDATA -- n   
       c-value curlopt-useragent CURLOPT_USERAGENT -- n   
       c-value curlinfo-response-code CURLINFO_RESPONSE_CODE -- n   
      
       c-function curl-global-init curl_global_init n -- void   
       c-function curl-easy-init curl_easy_init void -- a   
       c-function curl-easy-setopt curl_easy_setopt a n a -- void   
       c-function curl-easy-perform curl_easy_perform a -- a   
       c-function curl-easy-getinfo curl_easy_getinfo a n a -- void   
       c-function curl-easy-cleanup curl_easy_cleanup a -- void   
      
       c-callback make-receive-request a n n a -- n   
     end-c-library   
      
     : receive-request ( data chunksize nmemb usrptr )   
       -rot * swap over >r $+! r> ;   
      
     ' receive-request make-receive-request constant recv   
      
     : >cstring ( addr u -- c-string-addr )   
       [ s\" \0" ] 2literal s+ drop ;   
      
     s" GET" >cstring constant method-get   
     s" POST" >cstring constant method-post   
     s" PUT" >cstring constant method-put   
     s" DELETE" >cstring constant method-delete   
     s" PATCH" >cstring constant method-patch   
      
     variable curl-data   
     variable response-code   
      
     : http-request ( method url-addr url-len -- status content-addr content-len )   
       curl-data $init   
       curl-global-all curl-global-init   
       curl-easy-init { curl }   
       curl 0= if ." CURL initialization failed..." quit then   
      
       >cstring curl curlopt-url rot curl-easy-setopt   
       curl curlopt-customrequest rot curl-easy-setopt   
       curl curlopt-writefunction recv curl-easy-setopt   
       curl curlopt-writedata curl-data curl-easy-setopt   
      
       curl curl-easy-perform   
       curle-ok <> if ." CURL perform failed..." quit then   
      
       curl curlinfo-response-code response-code curl-easy-getinfo   
      
       curl curl-easy-cleanup   
       response-code @   
       curl-data $@   
       save-mem   
       curl-data $free ; \ you'll have to make sure, to free memory on your own!   
      
     : my-example ( -- )   
       method-get s" https://example.com" http-request   
       2dup type   
       drop free ;   
   #+end_src   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)