#てすと
#てすと2
#てすと3
#てすと4
#てすと5
#てすと6
#てすと7
#てすと8
#てすと9
#アイコンがあるとうまくいかない
#やはりgrowrnotifyに頼らず自前でなんとかした方がヨサゲ
#Cocoaの本うちにあったかた?
#na
#$ ./chaton-rader
#?="././chaton-rader":120:(assoc-ref sx 'post-uri)
#?- "http://practical-scheme.net/chaton/gauche/chaton-poster-gauche"
#?="././chaton-rader":121:(assoc-ref sx 'comet-uri)
#?- "http://practical-scheme.net:9997/"
nil
nil
*** ERROR: : no matching clause for (((び) (1242376118 615765) 宿へ持っていくか) ((び) (1242376123 789158) けっこう待ち時間あるしな) (shiro (1242383463 38884) Geiser, a new Emacs-Scheme interaction mode だって) (shiro (1242383467 424110) http://programming-musings.org/2009/05/14/geiser/) ((び) (1242384007 762099) む) ((び) (1242384014 269490) あっさり再接続) ((び) (1242384028 617539) タイミング依存だなこれは) ((び) (1242384666 464080) 2つ開けてても、OKな時は常に両方OK、ダメな時は両方NGだな) (えんどう (1242391741 862615) とりあえずエラー処理してないバージョンのmac用raderできた) (えんどう (1242391780 841954) 時々util.matchで落ちるけど) (えんどう (1242392693 329753) http://practical-scheme.net/wiliki/wiliki.cgi?えんどう) (えんどう (1242392702 689128) ここに貼っておきました) (test (1242403327 218558) test) (test (1242403337 802205) huh?) (test (1242403356 768500) foo) (えんどう (1242426944 407557) てすとです) (えんどう (1242428040 359017) (use gauche.parseopt)
(define (show-help progname)
(print #`",|progname| [-c conf]"))
(define (main args)
(let-args (cdr args)
((c "c|conf" => (cut print <>))
(h "h|help" => (cut show-help (car args))))))) (えんどう (1242428058 98715) $ gosh argtest.scm -c test
*** ERROR: wrong number of arguments for #<closure (main #<identifier gauche.parseopt#cb1>)> (required 1, got 0)
Stack Trace:
_______________________________________
0 x
1 x
2 optargs
3 (build-option-parser (list (list "c|conf" (lambda x (set! c (apply ...
[unknown location]) (えんどう (1242428084 498527) (cut print <>)には何も渡らないように見える。なぜだ?) (shiro (1242428087 788032) -cに引数取りたいなら "c|conf=s" としてください) (えんどう (1242428095 552747) おお) (えんどう (1242428115 269792) 毎回聞いているような気がする) (shiro (1242428178 851979) まあエラーメッセージはもうちょっと頑張ればもっと親切に出来るような気はする。) ((び) (1242438693 641878) そいでは行ってきます。人生初の雨中レース(泣)) (shiro (1242452180 877822) ああ、とうとうlingr書き込めなくなってますね。ものさびしいのう。) (shiro (1242452213 648189) 前の会社の最終日に、社内向サービスをひとつづつ落としていっ#uha
#落ちた
#アクティブログが
#アーカイブされたので、truncate後のログがどかっと来たんじゃないかな
#textのうしろは0個以上の要素が来るようにマッチしてる?
#もっとも、truncate後にどかっと送るのはブラウザのためなので、
#radarはposが以前より小さくなってたらtextの中身は無視していい
#(既発言だから)
#このへん(アーカイブ前後のふるまい)はいまいちな仕様なんで、後で変えると思うけど。
#ircプロトコルめんどくさい。
#既にjoinしてるチャネルにまたjoinリクエストが来る可能性って考えなくていいのかなあ。
#仕様(rfc2812)には特に記述がない
##(match text
[((name (sec mil) body) ...) (send-notify (*chaton-config*) name body)]
)
#これだと(えんどう)(発言)ってなっちゃう
#...でマッチかけたらname, bodyそれぞれまとめられるからね。
#(for-each (cut send-notify (*chaton-config*) <> <>) name body)
#とするか、
#全部まとめたいなら
#(string-concatenate (map (match-lambda [(name (sec nil) body) #`",name : ,body\n"]) text))
#とするか
#りょうかいっす
#()()とか通知される。Lispっぽい
#てすと
##chatonのアイコンつくりました
Chaton > Archives > 2009/05/16
