xyzzy の lisp を使ってサイト上からファイルを取得したいのですが、サンプルなどが見つからず全くわからない状態です…。
site-lisp
内をgrep
を使いhttp://
を検索しても見ましたがそれらしい所が見つかりませんでした。
どうやって xyzzy の lisp で HTTP上のファイルを開きファイルに保存すればよいでしょうか?
スタック・オーバーフローはプログラマーとプログラミングに熱心な人のためのQ&Aサイトです。すぐ登録できます。
登録してこのコミュニティに参加するxyzzy の lisp を使ってサイト上からファイルを取得したいのですが、サンプルなどが見つからず全くわからない状態です…。
site-lisp
内をgrep
を使いhttp://
を検索しても見ましたがそれらしい所が見つかりませんでした。
どうやって xyzzy の lisp で HTTP上のファイルを開きファイルに保存すればよいでしょうか?
xyzzy には標準ではそのようなライブラリはありません。
直接ネットワークに接続して応答をファイルに出力させるだけならば次のようなコードになります。ただし、HTTPヘッダを考慮していない等々使い勝手はよくありません。
(with-open-file (out "~/output.html" :direction :output :encoding :binary)
(with-open-stream (stream (connect "www.yahoo.co.jp" 80))
(set-stream-encoding stream :binary)
(format stream "GET / HTTP/1.0~%")
(format stream "~%")
(loop
(multiple-value-bind (line missing-newline-p)
(read-line stream nil)
(unless line (return))
(princ line out)
(unless missing-newline-p (terpri out))))))
有志の方が配布しているライブラリを使うのが適当だと思います。
junk-http-download-file
という関数がありますhttp-download
のサンプルコードが載っています