2016-02-20

Aserve & CL-EMB

Common Lisp

Aserve でテンプレートエンジンの CL-EMB を使ってみました。

hello.tmplを作成

<html>
<head><title>テストページ</title></head>
<body>
<% @var name %>
</body>
</html>

Lipsコード

(defun to-octets-string (str)
  (let* ((arr (sb-ext:string-to-octets str
	:external-format sb-impl::*default-external-format*
	:null-terminate nil))

	 (len (length arr))
	 (ret (make-array len :fill-pointer 0 :element-type 'character)))
    (dotimes (i len) (vector-push (code-char (elt arr i)) ret))
    ret))

(defun MB (str)
  (princ (to-octets-string str)))

(net.aserve:publish
 :path "/hello"
 :content-type "text/html; charset=UTF-8"
 :function
 #'(lambda (req ent)
     (net.aserve:with-http-response (req ent)
       (net.aserve:with-http-body (req ent)
	 (format (net.aserve:request-reply-stream req)
		 (MB (emb:execute-emb #P"/home/lisp/hello.tmpl"
				      :env '(:name "こんにちは！"))))))))

2016-02-14

Aserve & Swank によるホットデプロイ

Common Lisp

サーバ側

(ql:quickload "aserve")
(ql:quickload :swank)

(defpackage cl-web
  (:use :cl
        :swank
        :net.aserve))

(in-package :cl-web)

(require :aserve)
(net.aserve:start :port 5000)

(net.aserve:publish
 :path "/"
 :content-type "text/html; charset=UTF-8"
 :function
 #'(lambda (req ent)
     (net.aserve:with-http-response
         (req ent)
       (net.aserve:with-http-body
           (req ent)
         (net.html.generator:html
           (:html
             (:head (:title "Hello world!"))
             (:body "Hello world!")))))))

(swank:create-server :port 4005 :style :spawn :dont-close t)

クライアント側
emacs で Alt + x slime-connect
Host: 127.0.0.1
Port: 4005

(in-package :cl-web)

(net.aserve:publish
 :path "/"
 :content-type "text/html; charset=UTF-8"
 :function
 #'(lambda (req ent)
     (net.aserve:with-http-response
         (req ent)
       (net.aserve:with-http-body
           (req ent)
         (net.html.generator:html
           (:html
             (:head (:title "Hello world!!!!!"))
             (:body "Hello world!!!!!")))))))

2016-02-13

Aserveで日本語（マルチバイト）表示

Common Lisp

Aserveで日本語（マルチバイト）を表示しようとするとできなかったのでこちらのサイトを参考にしました。

http://hirodanjyuro.blogspot.jp/2010/06/blog-post.html

(defun to-octets-string (str)
  (let* ((arr (sb-ext:string-to-octets str
        :external-format sb-impl::*default-external-format*
        :null-terminate nil))
         (len (length arr))
         (ret (make-array len :fill-pointer 0 :element-type 'character)))
    (dotimes (i len) (vector-push (code-char (elt arr i)) ret))
    ret))

(defmacro MB (str)
  `(:princ (to-octets-string ,str)))

(net.aserve:publish
 :path "/"
 :content-type "text/html; charset=UTF-8"
 :function
 #'(lambda (req ent)
     (net.aserve:with-http-response
         (req ent)
       (net.aserve:with-http-body
           (req ent)
         (net.html.generator:html
           (:html
             (:head (:title (MB "こんにちは！")))
             (:body (MB "こんにちは！")
                    :br (MB "你好！"))))))))

問題なく中国語も表示されます。

2016-02-13

ApacheとAserveの連携

Common Lisp

http://xxx.xxx.xxx/cl/にアクセスしたときにポート5000でリッスンしているAserveと連携するよう設定します。

Apacheの設定ファイル /etc/httpd/conf/httpd.conf の最後に以下の2行を追加しApache再起動します。

ProxyPass /cl/ http://localhost:5000/
ProxyPassReverse /cl/ http://localhost:5000/

2016-02-13

AserveでHello World!

Common Lisp

Aserveを使ってHTMLを生成してページを表示します。

(ql:quickload "aserve")
(require :aserve)
(net.aserve:start :port 5000)

(net.aserve:publish
 :path "/"
 :content-type "text/html; charset=UTF-8"
 :function
 #'(lambda (req ent)
     (net.aserve:with-http-response
         (req ent)
       (net.aserve:with-http-body
           (req ent)
         (net.html.generator:html
           (:html
             (:head (:title "Hello World!"))
             (:body "Hello World!")))))))