Hi Danny, > unpack libgit2-0.27.7, then invoke > > guile generate.scm -o /tmp -f -x online -x stress -x perf . > > in there.
Thanks for the instructions.
One of the problems is that you use and also overwrite “write”,
which is a core Scheme procedure. I renamed it to “Write” and modified
the invocation to
(call-with-output-file (string-append output "/clar.suite") Write)
which leads to this error:
--8<---------------cut here---------------start------------->8---
…
In ice-9/ftw.scm:
482:39 4 (loop _ _ #(64768 139272 16877 51 1000 1000 0 4096 1550677456 0
1550677457 4096 8 directory 493 818358318 0 1550677457) _ _)
In ice-9/eval.scm:
293:34 3 (_ #(#(#(#(#(#<directory (guile-user) 717140> "." ("perf" "stress"
"online")) "./tests/clar_libgit2_timer.c" #(64768 132360 33188 1 1000 1000 0 …)
…) …) …) …))
191:35 2 (_ #(#(#<directory (guile-user) 717140> #<variable 8e4eb0 value:
#<procedure parse (a)>>) "./tests/clar_libgit2_timer.c"))
In ice-9/rdelim.scm:
160:18 1 (read-string _)
In unknown file:
0 (read-char "./tests/clar_libgit2_timer.c")
ERROR: In procedure read-char:
In procedure read-char: Wrong type argument in position 1 (expecting open input
port): "./tests/clar_libgit2_timer.c"
--8<---------------cut here---------------end--------------->8---
Simple mistake: you called “get-string-all” on a string (stored in
“path”), but you need to use (call-with-input-file path get-string-all)
instead.
Next error is about a bad regex (forgot one escape character); and
a type error follows that.
The fixed version is attached.
--
Ricardo
generate.scm
Description: Binary data
