yuzawat

一介の趣味プログラマです。

作ってるもの

Gauche-curl

libcurl < http://curl.haxx.se/libcurl/ > のバインディングです。

• 指定したURLに対するデータの入出力（アップロード/ダウンロード）ができます。
• アップロード/ダウンロードデータは、ポートにマッピングできます。
• 多過ぎて判らん libcurl の動作設定オプションを、curl(1)のオプション引数の指定で（だいたい）設定できます。
• rfc.http の http-* と互換（のつもりの）ラッパーがついています。

使用例

(use curl)
(let* ((curl (make <curl> :url "http://www.example.tld/" :options "-L -v --compressed"))
       (output (curl-open-output-port curl))
       (header (curl-open-header-port curl)))
  (if (curl) (values (cdr (assq 'RESPONSE_CODE (curl-getinfo curl)))
                     (get-output-string header)
                     (get-output-string output))
      #f))

変更履歴

0.2.11: libcurl-7.21.3対応。多分数代前のバージョンから、最新のlibcurlでないとstubのコンパイルに失敗することに気付いたので修正。こういうのは他にもあるのかも
0.2.10: libcurl-7.21.2対応
0.2.9: 一度使ったコネクションを再利用するようにしてみた

ダウンロード

Gauche-curl-0.2.11.tgz（libcurl ver.7.21.3 対応）