A tiny Ajax and comet-based chat system implemented in Scheme. Visit the project page on github.com.
- Gauche 0.8.13 or later
| diff --git a/back.scm b/back.scm | |
| index 138e882..55f1d07 100644 | |
| --- a/back.scm | |
| +++ b/back.scm | |
| @@ -362,7 +362,7 @@ | |
| (instructions | |
| `(movl ap ,target) | |
| `(addl ,(* n ws) ap) | |
| - `(cmpl heap_end ap) | |
| + `(cmpl _heap_end ap) |
A tiny Ajax and comet-based chat system implemented in Scheme. Visit the project page on github.com.
| ;; 第1回 Scheme コードバトン | |
| ;; | |
| ;; ■ これは何か? | |
| ;; Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。 | |
| ;; 次回 Shibuya.lisp で成果を発表します。 | |
| ;; Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。 | |
| ;; | |
| ;; ■ 2 つのルール | |
| ;; | |
| ;; (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。 |
| ;; 第1回 Scheme コードバトン | |
| ;; | |
| ;; ■ これは何か? | |
| ;; Scheme のコードをバトンのように回していき面白い物ができあがるのを楽しむ遊びです。 | |
| ;; 次回 Shibuya.lisp で成果を発表します。 | |
| ;; Scheme 初心者のコードを書くきっかけに、中級者には他人のコードを読む機会になればと思います。 | |
| ;; | |
| ;; ■ 2 つのルール | |
| ;; | |
| ;; (1)自分がこれだと思える変更をコードに加えて2日以内に次の人にまわしてください。 |
| libxml2.so: libxml2_wrap.c | |
| gcc -g -shared -fPIC -I/usr/include/libxml2 -o $@ $< -L/usr/lib/libxml2 -lxml2 | |
| libxml2_wrap.c: libxml2.i | |
| swig -lua -o $@ $< |
| // -*- indent-tabs-mode: nil -*- | |
| // Works on both WSH and Gecko | |
| function E_ (name, attrs) { | |
| var children = []; | |
| for (var i = 2; i < arguments.length; i ++) { | |
| children.push (arguments[i]); | |
| } | |
| return function (doc) { | |
| var elem = doc.createElement (name); |
| local tests = { | |
| function () | |
| local function fib(n) | |
| if n < 2 then return n end | |
| return fib (n - 1) + fib (n - 2) | |
| end | |
| return fib (10) | |
| end | |
| ; |