#Testing kahua.test.xml ... passed.
Testing persistence/efs (efs:_tmpefs) ... failed.
discrepancies found. Errors are:
test bindings in module kahua.persistence: expects () => got "procedures received wrong number of argument: read-kahua-instance((#f G251)) got 4, read-kahua-instance((#f G294)) got 3, read-kahua-instance((#f G255)) got 3, read-kahua-instance((#f G255)) got 3, read-kahua-instance(kahua-instance) got 3 AND symbols referenced but not defined: slot-bound-using-class((#f G247)), class-subclasses*((#f G270)), class-subclasses*((#f G271)), class-subclasses((#f G269))"
Testing index slots (efs) ... failed.
discrepancies found. Errors are:
test bindings in module kahua.persistence: expects () => got "procedures received wrong number of argument: read-kahua-instance(kahua-instance) got 3, read-kahua-instance((#f G295)) got 3, read-kahua-instance((#f G252)) got 4, read-kahua-instance((#f G256)) got 3, read-kahua-instance((#f G256)) got 3 AND symbols referenced but not defined: class-subclasses*((#f G271)), class-subclasses*((#f G272)), class-subclasses((#f G270)), slot-bound-using-class((#f G248))"
Testing rollback ... passed.
Testing entry-method ... *** ERROR: Compile Error: improper list not allowed: ((#<identifier kahua.server#_> #<identifier kahua.server#<entry-method>>) arg1 . rargs)
"./entry-method.kahua":43:(define-entry-method show (arg1 :res ...
Stack Trace:
_______________________________________
0 (report-error e)
At line 128 of "../src/kahua-server.scm"
1 (map identity args)
At line 804 of "../src/kahua/server.scm"
2 (load-kahua-module (car mods))
At line 212 of "../src/kahua-server.scm"
*** ERROR: XML [22], char '#\#' unexpected
Stack Trace:
_______________________________________
0 (call-with-input-string (tree->string input) (cut ssax:xml->sxml <
At line 377 of "../src#これ去年既出のやつだ。OS XではGauche 0.9.4とKahua 1.0.7.3の組み合わせで出ないのにな。
#GaucheはHEADですか?
#root@0c045a8be706:/tmp/Kahua-1.0.7.3# gosh -V
Gauche scheme shell, version 0.9.4 [utf-8,pthreads], x86_64-unknown-linux-gnu
#リリース版か。むむむ。手元に環境がないや。
##手が空いたらやってみます。
#HEADだと起きないの?
#OS Xでも同じだった。
#Testing persistence/efs (efs:_tmpefs) ... failed.
discrepancies found. Errors are:
test bindings in module kahua.persistence: expects () => got "procedures received wrong number of argument: read-kahua-instance(kahua-instance) got 3, read-kahua-instance((#f G294)) got 3, read-kahua-instance((#f G255)) got 3, read-kahua-instance((#f G255)) got 3, read-kahua-instance((#f G251)) got 4 AND symbols referenced but not defined: class-subclasses*((#f G271)), class-subclasses((#f G269)), slot-bound-using-class((#f G247)), class-subclasses*((#f G270))"
Testing index slots (efs) ... failed.
discrepancies found. Errors are:
test bindings in module kahua.persistence: expects () => got "procedures received wrong number of argument: read-kahua-instance((#f G256)) got 3, read-kahua-instance((#f G256)) got 3, read-kahua-instance((#f G252)) got 4, read-kahua-instance((#f G295)) got 3, read-kahua-instance(kahua-instance) got 3 AND symbols referenced but not defined: class-subclasses*((#f G272)), class-subclasses((#f G270)), slot-bound-using-class((#f G248)), class-subclasses*((#f G271))"
Testing rollback ... passed.
Testing entry-method ... *** ERROR: Compile Error: improper list not allowed: ((#<identifier kahua.server#_> #<identifier kahua.server#<entry-method>>) arg1 . rargs)
"./entry-method.kahua":43:(define-entry-method show (arg1 :res ...
Stack Trace:
_______________________________________
0 (report-error e)
At line 128 of "../src/kahua-server.scm"
1 (map identity args)
At line 804 of "../src/kahua/server.scm"
2 (load-kahua-module (car mods))
At line 212 of "../src/kahua-server.scm"
*** ERROR: XML [22], char '#\#' unexpected
Stack Trace:
_______________________________________
0 (call-with-input-string (tree->string input) (cut ssax:xml->sxml <
At line 377 of "../src/kahua/test/xml.scm"
1 (cmp expect r)
At line 194 of "/usr/loc#そのエラーは起きない。
#別のエラーは起きた。こないだソケット周りが変わったみたいなのでその影響だと思われる。
#Testing kahua-httpd script ... *** ERROR: <socket> required, but got (#<socket (listen "0.0.0.0:27490")>)
Stack Trace:
_______________________________________
0 (for-each socket-close socks)
At line 481 of "./../src/kahua-httpd.scm"
failed.
discrepancies found. Errors are:
test httpd get: expects ("200" #t) => got #<<error> "httpd-get: retry error">
test httpd get (nonexistent): expects "404" => got #<<system-error> "connect failed to #<sockaddr inet6 \"[fe80::1]:27490\">: Connection refused">
test httpd get (static path): expects ("200" 3431) => got #<<system-error> "connect failed to #<sockaddr inet6 \"[fe80::1]:27490\">: Connection refused">#KahuaもGaucheも今cloneしてきたやつね
#んー、make-server-sockets使ってるなら前からソケットのリストを返してたと思うんだけどな。
#ソケットの方は直さなきゃ
#make-server-socketsをホストのリストにmapしたものにappend!を適用してflattenしようとしてるみたいです
#正しく見えるけど、うまくいってないのか
#OS XでGauche-0.9.4とKahua HEADだとmake check通りますね。
#デバッグ出力の桁数増やすのどうするんでしたっけ?
#hua-httpd.scm":437:(make-server-sockets (car h) (cdr h) :reuse-addr? #t :backlog ...
#?- (#<socket (listen "[::]:27490")> (#<socket (listen "0.0.0.0:2 ...
#make-server-socketsの戻り値、ソケットのリストがネストしているように見えますね。
#:sock-init使うとおかしくなる疑惑
#:sock-initしなければ通る。
#なんでや...
#sock-init試してなかった。
#Step 24 : RUN kahua-package create site
---> Running in ebbf205d2857
INFO[0001] The command [/bin/sh -c kahua-package create site] returned a non-zero code: 70
#なんで70返すんでしたっけ?
#プロセスの戻り値を明示しない場合は70ってsrfiかなんかで決まってるんじゃなかったっけ。
##あっこれかな
#diff --git a/ext/net/netaux.scm b/ext/net/netaux.scm
index 1a7300d..2b770b8 100644
--- a/ext/net/netaux.scm
+++ b/ext/net/netaux.scm
@@ -203,7 +203,7 @@
(v4addrs addrs))
(guard (e [(bind-failed? e) (list s6)]
[else (raise e)])
- (list s6 (filter-map (cut apply make-server-socket <> args) a4s)))))
+ (cons s6 (filter-map (cut apply make-server-socket <> args) a4s)))))
;; try binding v6 socket on addr. If actual-port is not #f, reallocate
;; addr with the given port. It is for the case that the given port is 0.#ですね。通りました。ありがとうございます。
#IPv6とIPv4が同時にバインドされる場合だけ発現するわけですね。
#sock-init、実際に使う人あんまりいないんだろうなぁ
#(define (main args)
(let-args (cdr args)
((conf-file "c|conf-file=s")
(site "S|site=s")
(gosh "gosh=s")
. restargs)
(if (< (length restargs) 2)
(usage)
(apply dispatch-command restargs)))
0)#これで桶。
#ほかのkahua scriptのexit statusってどうします?
#ほとんど意識してないと思うんだよね
#kahua-httpdは正常終了時は0を返すようにしてるね
#kahua-spvrも0を返してるな
#kahua-serverも0返してる
#kahua-installも
#kahua-shellは70
#kahua-userは0
#kahua-keyservは0
#kahua-adminは0
#ほとんど0を返すようにしてるっぽい
#すごいな、何をするコマンドか覚えてないものがけっこうある
#この辺も整理したいなぁと思いながらすっかり放置だな。kahuaコマンドに統合してサブコマンド化とか考えてた記憶がうっすら
#これgit pushしちゃっていい?
#Sure.
#pushした。
#Tnx
#Dockerfileの中でADD kahua.conf /usr/local/etc/kahua/kahua.conf で追加したけど、kahua.configの中で (define kahua-config (make-parameter #f))ってやってるからダメだ＞Kahua HEAD
#今日はこれまで。
#root@e28b468922ab:/work# kahua-package generate hello
*** ERROR: object of class #<class <boolean>> doesn't have such slot: etc-directory
Stack Trace:
_______________________________________
0 (kahua-etc-directory)
At line 132 of "/usr/local/lib/kahua/kahua-package.scm"
1 (build-path (kahua-etc-directory) "skel")
At line 132 of "/usr/local/lib/kahua/kahua-package.scm"
2 (apply dispatch-command restargs)
At line 167 of "/usr/local/lib/kahua/kahua-package.scm"
root@e28b468922ab:/work##(define (generate-skel args)
(let-args args ((creator "creator=s")
(mail "mail=s")
. projects)
(let1 skel (build-path (kahua-etc-directory) "skel") ; FIXME!!
(for-each (cut generate skel <> creator mail) projects))))#(define kahua-config (make-parameter #f))だから(kahua-etc-directory)でこけるんだな。kahuaのインストールディレクトリを特定するにはprefixを埋め込まないとだめか。
#たぶん、デフォルトのconfigを埋め込んどいて、設定ファイルで上書きできるようにするのが正しいんだろうね
#で、デフォルトのconfigは、make install時に生成して、libに置いておく、と。
#kahua-package.scm.inとかで (let1 skel (build-path ##SYSCONFDIR## "skel") とか書いといてビルドする案
Gauche > Archives > 2015/02/16