クエリストリングの取得と cl-who(ABLC で Google app engine)

前回 ABCL で Google app engine が動いたので、今回はクエリスティングの取得と cl-who の使用をやってみた。

Sevlet クラスで currentThread.execute するときに req と resp を JavaObject でくるんでわたしてやる。

package abcl_ae;

import java.io.IOException;

import javax.servlet.ServletException;
import javax.servlet.http.HttpServlet;
import javax.servlet.http.HttpServletRequest;
import javax.servlet.http.HttpServletResponse;

import org.armedbear.lisp.ConditionThrowable;
import org.armedbear.lisp.JavaObject;
import org.armedbear.lisp.Lisp;
import org.armedbear.lisp.LispThread;
import org.armedbear.lisp.SpecialBinding;
import org.armedbear.lisp.Symbol;

@SuppressWarnings("serial")
public class NextServlet extends HttpServlet {

    static private Symbol doGet2 = null;

    public void init() throws ServletException {
        AbclInit.init();
        try {
            doGet2 = Lisp.internInPackage("DO-GET2", "FIRST-SERVLET");
        } catch (ConditionThrowable ct) {
        }
    }

    public void doGet(HttpServletRequest req, HttpServletResponse resp)
            throws IOException {

        LispThread currentThread = LispThread.currentThread();

        SpecialBinding lastSpecialBinding = currentThread.lastSpecialBinding;
        currentThread.bindSpecial(Symbol.STANDARD_OUTPUT,
                new org.armedbear.lisp.Stream(resp.getOutputStream(),
                        Symbol.CHARACTER, Symbol.internKeyword("UTF-8")));

        resp.setContentType("text/html; charset=utf-8");

        try {
            currentThread.execute(doGet2, new JavaObject(req), new JavaObject(resp));
        } catch (ConditionThrowable condition) {
            resp.setContentType("text/plain");
            resp.getWriter().println(condition.toString());
        } finally {
            currentThread.lastSpecialBinding = lastSpecialBinding;
        }
    }
}

lisp ファイルの方は関数（go-get2）に引数を2つ追加。 java:jcall で getParameter メソッドを呼び出せばクエリストリングが取得できる。

あと cl-who を使うために asdf を rquire し、fasls/cl-who/ を asdf:*central-registry* に追加。 (asdf:oos 'asdf:load-op :cl-who) で cl-who が使えるようになる。

(require 'asdf)
(pushnew "fasls/cl-who/" asdf:*central-registry* :test #'equal)
(asdf:oos 'asdf:load-op :cl-who)

(defun do-get2 (request response)
  (declare (ignore response))
  (let ((foo (java:jcall "getParameter" request "foo"))
        (bar (java:jcall "getParameter" request "bar")))
    (cl-who:with-html-output (*standard-output*)
      (:html (:head (:title "cl-who"))
             (:body (:h1 "CL-WHO")
                    (:form :method :get :action "next"
                           (:div "foo " (:input :type :text :name "foo"))
                           (:div "bar " (:input :type :text :name "bar"))
                           (:input :type :submit :value "クリック"))
                    (:div (cl-who:esc (format nil "foo => ~a" foo)))
                    (:div (cl-who:esc (format nil "bar => ~a" bar))))))
    (force-output)))

cl-who はあらかじめ ABCL でコンパイルしておいて、*.asd と *.abcl を war/fasls/cl-who にコピーしておく必要がある。これがうまい方法かどうかわまだ分からないけど。そのための build.xml を書いた（コピペした）。

<project basedir="." default="all">

  <property name="sdk.dir" location="/home/ancient/local/opt/appengine-java-sdk" />
  <property name="clbuild.dir" location="/home/ancient/letter/lisp/clbuild/source" />

  <import file="${sdk.dir}/config/user/ant-macros.xml" />

  <path id="project.classpath">
    <pathelement path="war/WEB-INF/classes" />
    <fileset dir="war/WEB-INF/lib">
      <include name="**/*.jar" />
    </fileset>
    <fileset dir="${sdk.dir}/lib">
      <include name="shared/**/*.jar" />
    </fileset>
  </path>

  <target name="all" depends="clean,copy-files" />

  <target name="clean">
    <delete dir="war/fasls" />
  </target>

  <target name="copy-files">
    <copy todir="war/fasls">
      <fileset dir="src/lisp">
        <include name="**/*.abcl"/>
      </fileset>
    </copy>
    <copy todir="war/fasls/cl-who">
      <fileset dir="${clbuild.dir}/cl-who">
        <exclude name="**/_darcs/**"/>
        <include name="**/*.abcl"/>
        <include name="**/*.asd"/>
      </fileset>
    </copy>
  </target>

  <target name="devserver" description="run local dev appserver" depends="all">
    <dev_appserver war="war" />
  </target>

  <target name="deploy" description="deploy to appspot" depends="all">
    <appcfg action="update" war="war" />
  </target>
</project>

けっこういける気がしてきた。まだ Servlet とのつながり（レスポンスやポストとか）とかいろいろ問題ありそうだけど。あと開発サイクルとかも。ソース修正のたびに開発サーバ再起動はきつい。でも解決方法はある気がする。

MOP で Google app engine のデータストアうまく扱えないかしらん。どうせならちゃんと Common Lisp っぽくいきたいよね。