sw-httpのAPPLICATION-FINDER-FNについての詳細

Question

Common Lispでいくつかの同期Webプログラミングを行う予定です。オプションを切り上げています。それらの1つはsw-httpで、「AJAX/Cometに合わせたHTTPサーバー」です。ドキュメントは、私が見つけることができる唯一の作品は

サブ-Classサーバにあなたを伝えると、あなたのコンテンツを生成するコールバック にAPPLICATION-FINDER-FNスロットを設定するためのビットが欠けているようです。

あり、そのコールバックが（いくつかの肝いりはそれが引数としてserverとconnectionを期待するべきであると私に言ったように見えるべきかについてのメモや例のように見えるが、それが返すか、何をすべきかについては何もしません。 ）。

(lambda (server conn) (declare (ignore server conn)) "Hello world") 

のようなナイーブなものに設定する

は何もしていないようですので、私は、私はどちらかがどこかストリームに書き込むか、いくつかのあまりthan-にserver/connectionと対話する必要があると仮定します完全に明白な方法です。

ヒント

Answer 1

ハンドラはresponseのあるchunksを持つconnectionを取ります。

おそらくあなたはconnectionのresponseの（octetsある）chunksにあなたのコンテンツを追加します。幸いにも、これを簡単にするためのヘルパーメソッドがいくつか定義されています。

あなたは（HTTP-SWは、私がすることはできませんので、コンパイルするために、私は得ることができなかった）、これを試してみてください：

(defun hello (server connection) 
    (let*((response (cn-response connection)) 
     (chunks (rs-chunks response))) 
    (queue-push chunks 
       (mk-response-status-code 200) 
    (queue-push chunks 
       (mk-response-message-body "Hello cruel world")))) 

(defclass my-server (server) 
    ((application-finder-fn :initform #'hello))) 

幸運を！