さくらんぼのlambda日記

lambdaちっくなことからゲーム開発までいろいろ書きます。

Emacsで通信

今日はなにやら一日EmacsLispと格闘。
Emacsと外部で通信を行なってみたかったので
調べてみると、意外と簡単だということが分かった。

以下簡単なサンプル

(defun test-web-client ()
"get file from http server"
(interactive)
(let *1
(proc nil))6:
(setq proc (open-network-stream
"web-connection"8:
buf9:
"www.asahi-net.or.jp"
80))
(set-process-coding-system proc 'binary 'binary)
(display-buffer buf)
(process-send-string
proc
(format (concat
"GET / HTTP/1.0\r\n"
"MIME-Version: 1.0\r\n"
"\r\n")))))




これを実行したあとはずっとコネクション貼りっぱなしなので
(process-send-string)を再度実行すると更に続けて通信を
行なうことができる。

*1:buf (get-buffer-create "web conection"