[xyzzy:03108] Re: (こっそり) バージョンアップのお知らせ

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

山本さん、こんにちは。

    Mon, 9 Aug 1999 18:11:12 +0900 の
   “[xyzzy:03107] Re: (こっそり) バージョンアップのお知らせ”
    への返事です.

| 新し物好きなので、新機能を試そうとしているのですがとりあえず下の
| コードは動きませんでした。もっと精進しないといけないようです。(;_;

read は S 式を読むやつなので、read-line を使えばうまく
いくかもしれません。

(defun poor-http (host file)
  (interactive)
  (with-open-stream (s (connect host 80))
    (format s "GET ~a HTTP/1.0~%~%" file)
    (with-output-to-selected-buffer
      (let (line)
	(while (setq line (read-line s nil))
	  (princ line)
	  (terpri))))))

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx