yhara

はじめまして

Lispな研究室に所属する修士2回生です。よろしくお願いします。

WebSchemeという、SchemeによるWebアプリの開発環境っぽい何かを作っています。 Kahuaとの違いは、ページ遷移のないアプリケーションが対象であることです(多分)。Ajaxです。実装はほとんどjsSchemeをベースにしています。(が、速度が遅いのでできれば書き直したい。) インタプリタなんで、Schemeの入門用途として気軽に遊べるものになれば良いなぁ…と思っています。まぁそれはそれとして、修論になりそうなネタを考えないといけないのですが…。

その他

wiliki

GaucheとHTML

Gaucheで、XHTML「でない」HTMLを扱うことってできるんでしょうか?

例えば http://practical-scheme.net/gauche/man/gauche-refj_175.html#SEC457 (をUTF8に変換したファイル)をssax:xml->sxmlに食わせると「</meta>がない」と言って怒られてしまいます。

gosh> (define sxml (ssax:xml->sxml (open-input-file "gauche-refj_175u.html") '()))
*** ERROR: "gauche-refj_175u.html":line 39: (END . head) while expecting ENDmeta

Stack Trace:
_______________________________________
  0  (ssax:assert-token term-token 'END start-tag-head (lambda (token e ...
        [unknown location]
  1  (handle-start-tag (xml-token-head term-token) port entities namesp ...
        [unknown location]
  2  (handle-start-tag (xml-token-head term-token) port entities namesp ...
        [unknown location]
  3  (handle-start-tag (xml-token-head term-token) port entities namesp ...
        [unknown location]
  4  (handle-start-tag (xml-token-head term-token) port entities namesp ...
        [unknown location]
  5  (handle-start-tag (xml-token-head term-token) port entities namesp ...
        [unknown location]
  6  (handle-start-tag (xml-token-head term-token) port entities namesp ...
        [unknown location]
  7  (handle-start-tag (xml-token-head term-token) port entities namesp ...
        [unknown location]
  8  ((ssax:make-parser NEW-LEVEL-SEED (lambda (elem-gi attributes name ...
        At line 98 of "/usr/share/gauche/0.8.3/lib/sxml/ssax.scm"
  9  (ssax:xml->sxml (open-input-file "gauche-refj_175u.html") '())
        At line 9 of "(stdin)"
More ...