Re: Again on Windows support (2)

["carlo\.bramix" <carlo.bramix@libero.it>]

Hello,
I tried the same thing with cygwin I got:

$ ./pre-inst-guile -c '(display "foo")'
argc=3
argv[0]=/home/Carlo/guile/libguile/.libs/guile
argv[1]=-c
argv[2]=(display "foo")
foo

But the compilation failed even under cygwin; here you are what happens:

make[3]: Entering directory `/home/Carlo/guile/module'
/usr/bin/mkdir -p `dirname system/base/pmatch.go`
../pre-inst-guile-env ../guile-tools compile -o "system/base/pmatch.go" "/cygdrive/c/msys/1.0/home/Carlo/guile-svn/module/system/base/pmatch.scm"
argc=8
argv[0]=/home/Carlo/guile/libguile/.libs/guile
argv[1]=-e
argv[2]=(@ (scripts compile) compile)
argv[3]=-s
argv[4]=/cygdrive/c/msys/1.0/home/Carlo/guile-svn/scripts/compile
argv[5]=-o
argv[6]=system/base/pmatch.go
argv[7]=/cygdrive/c/msys/1.0/home/Carlo/guile-svn/module/system/base/pmatch.scm

Backtrace:
In unknown file:
   ?:  47* [try-load-module (system vm vm)]
   ?:  48  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?:  49* [try-module-autoload (system vm vm)]
   ?:  50  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and # #))
     ...
   ?:  51  (letrec (#) (dynamic-wind # # #) didit)
   ?:  52* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?:  53* [#<procedure #f ()>]
   ?:  54* (let* ((file #)) (let (# #) (cond # #)))
   ?:  55  (let ((compiled #) (source #)) (cond (# # #) (compiled #)))
     ...
   ?:  56  [with-fluid* #<fluid 7> #f #<procedure #f ()>]
   ?:  57* [#<procedure #f ()>]
   ?:  58* [load-file #<primitive-procedure primitive-load> ...]
   ?:  59* [save-module-excursion #<procedure #f ()>]
   ?:  60  (let (# #) (dynamic-wind # thunk #))
   ?:  61  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?:  62* [#<procedure #f ()>]
   ?:  63* [primitive-load "/cygdrive/c/msys/1.0/home/Carlo/guile-svn/module/system/vm/vm.scm"]
   ?:  64* (define-module (system vm vm) #:use-module ...)
   ?:  65  (eval-when (eval load compile) (let* ((m #)) (set-current-module m) m))
     ...
   ?:  66  (let* ((m (process-define-module #))) (set-current-module m) m)
   ?:  67* [process-define-module ((system vm vm) #:use-module (#) #:use-module...)]
   ?:  68  (let* (# # # #) (beautify-user-module! module) (# kws # # ...) ...)
   ?:  69* [loop (#:use-module ((system vm frame)) #:use-module ...) () ...]
   ?:  70  (if (null? kws) (call-with-deferred-observers (lambda () # ...)) ...)
     ...
   ?:  71  (let* ((interface-args #) (interface #)) (and (eq? # #) (or # #) ...) ...)
   ?:  72* [apply #<procedure resolve-interface (name . args)> ((system vm frame))]
   ?:  73  [resolve-interface (system vm frame)]
     ...
   ?:  74  (let* (# # # # ...) (and # #) (if # public-i #))
   ?:  75* [resolve-module (system vm frame)]
   ?:  76  (if (equal? name (quote (guile))) the-root-module ...)
     ...
   ?:  77  (cond (# already) (autoload # #) (else #))
   ?:  78* [try-load-module (system vm frame)]
   ?:  79  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?:  80* [try-module-autoload (system vm frame)]
   ?:  81  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and # #))
     ...
   ?:  82  (letrec (#) (dynamic-wind # # #) didit)
   ?:  83* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?:  84* [#<procedure #f ()>]
   ?:  85* (let* ((file #)) (let (# #) (cond # #)))
   ?:  86  (let ((compiled #) (source #)) (cond (# # #) (compiled #)))
     ...
   ?:  87  [with-fluid* #<fluid 7> #f #<procedure #f ()>]
   ?:  88* [#<procedure #f ()>]
   ?:  89* [load-file #<primitive-procedure primitive-load> ...]
   ?:  90* [save-module-excursion #<procedure #f ()>]
   ?:  91  (let (# #) (dynamic-wind # thunk #))
   ?:  92  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?:  93* [#<procedure #f ()>]
   ?:  94* [primitive-load "/cygdrive/c/msys/1.0/home/Carlo/guile-svn/module/system/vm/frame.scm"]
   ?:  95* (define-module (system vm frame) #:use-module ...)
   ?:  96  (eval-when (eval load compile) (let* ((m #)) (set-current-module m) m))
     ...
   ?:  97  (let* ((m (process-define-module #))) (set-current-module m) m)
   ?:  98* [process-define-module ((system vm frame) #:use-module (#) ...)]
   ?:  99  (let* (# # # #) (beautify-user-module! module) (# kws # # ...) ...)
   ?: 100* [loop (#:use-module ((system vm program)) #:use-module ...) () ...]
   ?: 101  (if (null? kws) (call-with-deferred-observers (lambda () # ...)) ...)
     ...
   ?: 102  (let* ((interface-args #) (interface #)) (and (eq? # #) (or # #) ...) ...)
   ?: 103* [apply #<procedure resolve-interface (name . args)> ((system vm program))]
   ?: 104  [resolve-interface (system vm program)]
     ...
   ?: 105  (let* (# # # # ...) (and # #) (if # public-i #))
   ?: 106* [resolve-module (system vm program)]
   ?: 107  (if (equal? name (quote (guile))) the-root-module ...)
     ...
   ?: 108  (cond (# already) (autoload # #) (else #))
   ?: 109* [try-load-module (system vm program)]
   ?: 110  (or (begin (try-module-linked name)) (try-module-autoload name) ...)
   ?: 111* [try-module-autoload (system vm program)]
   ?: 112  (let* (# # # #) (resolve-module dir-hint-module-name #f) (and # #))
     ...
   ?: 113  (letrec (#) (dynamic-wind # # #) didit)
   ?: 114* [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?: 115* [#<procedure #f ()>]
   ?: 116* (let* ((file #)) (let (# #) (cond # #)))
   ?: 117  (let ((compiled #) (source #)) (cond (# # #) (compiled #)))
     ...
   ?: 118  [with-fluid* #<fluid 7> #f #<procedure #f ()>]
   ?: 119* [#<procedure #f ()>]
   ?: 120* [load-file #<primitive-procedure primitive-load> ...]
   ?: 121* [save-module-excursion #<procedure #f ()>]
   ?: 122  (let (# #) (dynamic-wind # thunk #))
   ?: 123  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?: 124* [#<procedure #f ()>]
   ?: 125* [primitive-load "/cygdrive/c/msys/1.0/home/Carlo/guile-svn/module/system/vm/program.scm"]
   ?: 126* [dynamic-call "scm_init_programs" #<dynamic-object "libguile">]

<unnamed port>: In procedure dynamic-func in expression (dynamic-call "scm_init_programs" (dynamic-link "libguile")):
<unnamed port>: No error
make[3]: *** [system/base/pmatch.go] Error 1
make[3]: Leaving directory `/home/Carlo/guile/module'
make[2]: *** [all-recursive] Error 1

Sincerely,

Carlo Bramini.


---------- Initial Header -----------

From      : guile-devel-bounces+carlo.bramix=libero.it@gnu.org
To          : "guile-devel" guile-devel@gnu.org
Cc          :
Date      : Fri, 19 Jun 2009 10:48:23 +0200
Subject : Re: Again on Windows support (2)

> Hello,
> this is the command that I gave me some results:
>
> $ ./pre-inst-guile-env ./libtool --mode=execute gdb --args libguile/guile.exe -c '(display "foo")'
>
> As you can see I added "--args" option to GDB.
> Without "--args" option, GDB says:
>
> C:\msys\1.0\home\Carlo\guile/(display "foo"): Invalid argument.
> argc=1
> argv[0]=C:/msys/1.0/home/Carlo/guile/libguile/.libs/guile.exe
>
> With "--args" option I had this:
>
> argc=4
> argv[0]=C:/msys/1.0/home/Carlo/guile/libguile/.libs/guile.exe
> argv[1]=-c
> argv[2]=\(display\
> argv[3]="foo"\)
>
> Since I had no idea about those unknown '\' characters, I added some debug prints before scm_boot_guile():
>
> int
> main (int argc, char **argv)
> {
> int x;
> printf("argc=%d\n",argc);
> for (x=0; x<argc; x++)
> printf("argv[%d]=%s\n",x,argv[x]);
>
> scm_boot_guile (argc, argv, inner_main, 0);
> return 0; /* never reached */
> }
>
> Then I launched libguile/guile.exe normally and I got this:
>
> argc=4
> argv[0]=C:/msys/1.0/home/Carlo/guile/libguile/.libs/guile.exe
> argv[1]=-c
> argv[2]=(display
> argv[3]=foo)
>
> In this case, no more '/' but the '"' characters around the "foo" word are disappeared.
> Anyways, I seems that the parameter has been split in two...
>
> Sincerely,
>
> Carlo Bramini.
>
> ---------- Initial Header -----------
>
> From      : "Neil Jerram" neil@ossau.uklinux.net
> To          : "carlo.bramix" carlo.bramix@libero.it
> Cc          : "guile-devel" guile-devel@gnu.org
> Date      : Wed, 17 Jun 2009 22:09:08 +0100
> Subject : Re: Again on Windows support (2)
>
> > Neil Jerram <neil@ossau.uklinux.net> writes:
> >
> > > "carlo.bramix" <carlo.bramix@libero.it> writes:
> > >
> > >> $ ./pre-inst-guile -c '(display "foo")'
> > >> Backtrace:
> > >> In unknown file:
> > >>    ?: 0* (begin (eval-string "(display") (quit))
> > >>    ?: 1* [eval-string "(display"]
> > >
> > > That is weird.
> > >
> > > Can we first rule out a problem with your shell?  What output do you
> > > get from this?
> > >
> > > $ set - '(display "foo")' && echo "--${1}--" && echo "--${2}--"
> >
> > Assuming that that gives the expected output, i.e.
> >
> > --(display "foo")--
> > ----
> >
> > my next suggestion would be to run under GDB, with a breakpoint on
> > scm_shell().  The invocation for doing that is
> >
> > ./pre-inst-guile-env ./libtool --mode=execute gdb libguile/guile -c '(display "foo")'
> >
> > In scm_shell, I would expect:
> > argc to be 3
> > argv[1] to be "-c"
> > argv[2] to be "(display \"foo\")"
> > scm_get_meta_args () to return 0
> > and hence not to execute the "if (new_argv)" block of code.
> >
> > Can you check those points?
> >
> > Regards,
> >         Neil
> >
>