Re: [Chicken-users] a file system using Chicken

[Mario Domenech Goulart]

Hi Dan,

On Mon, 11 Jun 2007 17:41:38 +0300 Dan Muresan <address@hidden> wrote:

> > On a Xubuntu machine (where I first tried duggfs) it's now building
> > ok, but I get an error when running start_duggfs.sh:
> > $ ./start_duggfs.sh  /tmp/duggfs
> > To unmount, type "fusermount -u /tmp/duggfs"
> > $ Error: (string-ref) bad argument type: #<unspecified>
> 
> This is probably not related to fuse. Unfortunately the stack trace is
> not much to go by. Maybe you specified an empty API key? Can you send
> me the contents of start_duggfs.sh?

Sure.

$ cat start_duggfs.sh
#!/bin/sh
cd /home/mario/src/duggfs
echo To unmount, type '"'fusermount -u $1'"'
LD_LIBRARY_PATH="." exec ./duggfs http://ze-dureza $* &


> Also, you can run duggfs in csi. Do a "make clean" and then "make
> compile-mods", then run "csi -R chicken-prelude -R duggfs". Does the
> error still appear ?

Yes:

$ csi -R chicken-prelude -R duggfs

      /    /      /
 ___ (___    ___ (     ___  ___
|    |   )| |    |___)|___)|   )
|__  |  / | |__  | \  |__  |  /

Version 2.6 - linux-unix-gnu-x86 - [ libffi dload ptables applyhook ]
(c)2000-2007 Felix L. Winkelmann
; loading /home/mario/.csirc ...
; loading /usr/local/chicken-2.6/lib/chicken/1/readline.so ...
; loading library regex ...
; loading /usr/local/chicken-2.6/lib/chicken/1/man.so ...
; loading ./chicken-prelude.scm ...
; loading /usr/local/chicken-2.6/lib/chicken/1/syntax-case.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/syntax-case-chicken-macros.scm 
...
; loading ./duggfs.scm ...
Warning: declarations are ignored in interpreted code
(##core#declare (quote (hide hidden-dir)))
; loading library lolevel ...
; loading ./util.scm ...
; loading library srfi-18 ...
; loading /usr/local/chicken-2.6/lib/chicken/1/srfi-60.so ...
; loading ./trace.scm ...
; loading ./time_mod.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/tinyclos-base.so ...
; loading ./macros.scm ...
; loading ./hashtbl-extra.scm ...
; loading ./digg.scm ...
; loading ./cache.scm ...
; loading ./ht-list.scm ...
; loading /usr/local/chicken-2.6/lib/chicken/1/uri.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/coerce-support.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/http-client.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/http-utils.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/url.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/json.so ...
; loading /usr/local/chicken-2.6/lib/chicken/1/packrat.so ...
Error: (string-ref) bad argument type: #<unspecified>

        Call history:

        <syntax>                (##core#set! *digg-topics-short* (car 
*digg-topics-short*))
        <syntax>                (car *digg-topics-short*)
        <eval>          (##sys#void)
        <eval>          (call-with-values (lambda () ((lambda (g1740) (map 
(lambda (g1741) (begin (##core#set! g1741 (vector......
        <eval>          ((lambda (g1740) (map (lambda (g1741) (begin 
(##core#set! g1741 (vector->list g1741)) (cdr (assoc (q......
        <eval>          (cddr (vector-ref (digg-api-raw (quote "/topics") 
(quote ())) (quote 1)))
        <eval>          (vector-ref (digg-api-raw (quote "/topics") (quote ())) 
(quote 1))
        <eval>          (digg-api-raw (quote "/topics") (quote ()))
        <eval>          [digg-api-raw] ((lambda (g1727) ((lambda (g1728) (begin 
(if (<= (hash-table-ref trace$$*trace-levels-ht* (quote D)...
        <eval>          [digg-api-raw] (g1723 (cons (list (quote "appkey") 
*digg-api-key*) g1722))
        <eval>          [digg-api-raw] (cons (list (quote "appkey") 
*digg-api-key*) g1722)
        <eval>          [digg-api-raw] (list (quote "appkey") *digg-api-key*)
        <eval>          [g1723] (string-join (map (lambda (g1725) (string-join 
g1725 (quote "="))) (map (lambda (g1726) (map uri-enc......
        <eval>          [g1723] (map (lambda (g1725) (string-join g1725 (quote 
"="))) (map (lambda (g1726) (map uri-encode g1726)) g......
        <eval>          [g1723] (map (lambda (g1726) (map uri-encode g1726)) 
g1724)
        <eval>          [g1723] (map uri-encode g1726)  <--


Here's the relevant eggs I have:

$ for egg in uri coerce tinyclos srfi-60 uri http url json packrat; do 
chicken-setup -l | sed 's/              //' | grep $egg; done
uri                                    Version: 3.1 (Release 200705080912)
coerce                                 Version: 2.0 (Release 200703130648)
tinyclos                               Version: 1.1 (Release 200701230943)
srfi-60                                Version: 1.1 (Release 200705230312)
uri                                    Version: 3.1 (Release 200705080912)
http                                  Version: 1.52 (Release 200701051241)
http-server-form-posts                 Version: 0.2 (Release 200701171031)
stream-httplog                         Version: 1.0 (Release 200610211943)
url                                    Version: 3.0 (Release 200704100912)
json                                   Version: 1.2 (Release 200706020912)
packrat                                Version: 1.1 (Release 200612041433)


> Finally, you can increase logging verbosity by changing *trace-pri* to
> 5 in trace.scm.

The output hasn't changed much.  I guess the logging level doesn't
make much difference at the point of the error, right?

Best wishes,
Mario