unofficial mirror of guile-user@gnu.org 
 help / color / mirror / Atom feed
* Guile and MSWindows
@ 2013-01-29 15:12 objc
  2013-02-01 17:13 ` Ludovic Courtès
  0 siblings, 1 reply; 7+ messages in thread
From: objc @ 2013-01-29 15:12 UTC (permalink / raw)
  To: guile-user

[-- Attachment #1: Type: text/plain, Size: 5582 bytes --]

Hi Guiler's,

Are there any MSWindows guile users out there ?

I just built guile-2.0.7.18-03a2f
Check out http://branch-twigg.webs.com/ for what I done with it.
currently playing with BioSchematics - L-System Parser and Drawing tool by - Xavier Raynaud <x.raynaud@wanadoo.fr>
If I get it to do any useful work might enter it in Ludo’s birthday potluck.

I just built guile-2.0.7.18-03a2f

Testing... not too bad ??
john@emachines6260 /cygdrive/c/wxWidgets-2.9.3/samples/guile-2.0.7.18-03a2f/test-suite
$ guile-test

john@emachines6260 /cygdrive/c/wxWidgets-2.9.3/samples/guile-2.0.7.18-03a2f/test-suite
$ cat guile.log | grep PASS | wc -l
1274

john@emachines6260 /cygdrive/c/wxWidgets-2.9.3/samples/guile-2.0.7.18-03a2f/test-suite
$ cat guile.log | grep UNSUP | wc -l
9

john@emachines6260 /cygdrive/c/wxWidgets-2.9.3/samples/guile-2.0.7.18-03a2f/test-suite
$ cat guile.log | grep FAIL | wc -l
16

john@emachines6260 /cygdrive/c/wxWidgets-2.9.3/samples/guile-2.0.7.18-03a2f/test-suite
$ cat guile.log | grep ERR | wc -l
16

john@emachines6260 /cygdrive/c/wxWidgets-2.9.3/samples/guile-2.0.7.18-03a2f/test-suite
$ cat guile.log | grep FAIL
FAIL: tests/alist.test: sloppy-assq not
FAIL: tests/alist.test: sloppy-assv not
FAIL: tests/alist.test: assv not
FAIL: tests/alist.test: assq-ref not
FAIL: tests/alist.test: assv-ref not
FAIL: tests/common-list.test: delete-if-not!: non-empty list, remove some
FAIL: tests/coverage.test: line-execution-counts: once
FAIL: tests/coverage.test: line-execution-counts: several times
FAIL: tests/coverage.test: line-execution-counts: some
FAIL: tests/coverage.test: line-execution-counts: one proc hit, one proc unused
FAIL: tests/coverage.test: line-execution-counts: case-lambda
FAIL: tests/coverage.test: line-execution-counts: all code on one line
FAIL: tests/coverage.test: instrumented-source-files: source files are listed as expected
XFAIL: tests/eval.test: map: documented?
XFAIL: tests/eval.test: define set procedure-name: procedure-with-setter
FAIL: tests/fluids.test: fluids are GC'd

$ cat guile.log | grep ERR
ERROR: tests/bytevectors.test: 2.9 Operations on Strings: string->utf16 - arguments: ((system-error "string->utf16" "failed to convert string: ~A" ("hello, world") (-1)))
ERROR: tests/bytevectors.test: 2.9 Operations on Strings: string->utf16 [little] - arguments: ((system-error "string->utf16" "failed to convert string: ~A" ("hello, world") (-1)))
ERROR: tests/bytevectors.test: 2.9 Operations on Strings: utf16->string - arguments: ((system-error "utf16->string" "failed to convert to string: ~A" (#vu8(0 104 0 101 0 108 0 108
0 111 0 44 0 32 0 119 0 111 0 114 0 108 0 100)) (-1)))
ERROR: tests/bytevectors.test: 2.9 Operations on Strings: utf16->string [little] - arguments: ((system-error "utf16->string" "failed to convert to string: ~A" (#vu8(104 0 101 0 108
 0 108 0 111 0 44 0 32 0 119 0 111 0 114 0 108 0 100 0)) (-1)))
ERROR: tests/bytevectors.test: 2.9 Operations on Strings: utf32->string - arguments: ((system-error "utf32->string" "failed to convert to string: ~A" (#vu8(0 0 0 104 0 0 0 101 0 0
0 108 0 0 0 108 0 0 0 111 0 0 0 44 0 0 0 32 0 0 0 119 0 0 0 111 0 0 0 114 0 0 0 108 0 0 0 100)) (-1)))
ERROR: tests/bytevectors.test: 2.9 Operations on Strings: utf32->string [little] - arguments: ((system-error "utf32->string" "failed to convert to string: ~A" (#vu8(104 0 0 0 101 0
 0 0 108 0 0 0 108 0 0 0 111 0 0 0 44 0 0 0 32 0 0 0 119 0 0 0 111 0 0 0 114 0 0 0 108 0 0 0 100 0 0 0)) (-1)))
ERROR: tests/coverage.test: instrumented/executed-lines: instr = exec - arguments: ((wrong-type-arg "car" "Wrong type argument in position ~A (expecting ~A): ~S" (1 "pair" #f) (#f)
))
ERROR: tests/coverage.test: instrumented/executed-lines: instr >= exec - arguments: ((wrong-type-arg "car" "Wrong type argument in position ~A (expecting ~A): ~S" (1 "pair" #f) (#f
)))
ERROR: tests/coverage.test: procedure-execution-count: several times - arguments: ((wrong-type-arg "=" "Wrong type argument in position ~A: ~S" (1 #f) (#f)))
ERROR: tests/coverage.test: procedure-execution-count: case-lambda - arguments: ((wrong-type-arg "=" "Wrong type argument in position ~A: ~S" (1 #f) (#f)))
ERROR: tests/coverage.test: procedure-execution-count: applicable struct - arguments: ((wrong-type-arg "=" "Wrong type argument in position ~A: ~S" (1 #f) (#f)))
ERROR: tests/coverage.test: procedure-execution-count: called from C - arguments: ((misc-error "dynamic-pointer" "Symbol not found: ~a" ("scm_call_2") #f))
ERROR: tests/coverage.test: procedure-execution-count: called from eval - arguments: ((wrong-type-arg "=" "Wrong type argument in position ~A: ~S" (1 #f) (#f)))
ERROR: tests/foreign.test: make-pointer: equal? modulo finalizer - arguments: ((misc-error "dynamic-pointer" "Symbol not found: ~a" ("scm_is_pair") #f))
ERROR: tests/foreign.test: make-pointer: equal? modulo finalizer (set-pointer-finalizer!) - arguments: ((misc-error "dynamic-pointer" "Symbol not found: ~a" ("scm_is_pair") #f))
ERROR: tests/foreign.test: pointer<->string: bijection, utf-8 [latin1] - arguments: ((decoding-error "scm_from_stringn" "input locale conversion error" 138 #vu8(83 122 233 112 32 1
06 243 32 110 97 112 111 116 33)))


comments welcome,

JohnnyG

It doesn't matter how beautiful your theory is, it doesn't matter how smart you are. If it doesn't agree with experiment, it's wrong. 
Richard P. Feynman 
It doesn't matter how beautiful your program is, it doesn't matter how smart you are. If it doesn't agree with guile-test, it's wrong. 

[-- Attachment #2: Type: text/html, Size: 9325 bytes --]

^ permalink raw reply	[flat|nested] 7+ messages in thread
* Re: Guile and MSWindows
@ 2013-02-02 12:23 objc
  2013-02-04 12:28 ` Ludovic Courtès
  0 siblings, 1 reply; 7+ messages in thread
From: objc @ 2013-02-02 12:23 UTC (permalink / raw)
  To: ludo, guile-user

[-- Attachment #1: Type: text/plain, Size: 4939 bytes --]

Thanks Ludo,

 I'm still gathering information, I have downloaded up-to-date versions of 
GNU,
 but I just noticed I'm picking up some *CYG*.DLL, I must check they are the 
ones I built, and get the versions.

YES CYG libs seem to be at least the versions needed

guile libraries  (ldd  /usr/local/bin/guile.exe)
================================================
Guile depends on the following external libraries.
lib              need at least                     cygwin                                                version       
===              =============                     ======                                                =======       
- libgmp         at least version 4.1              /usr/bin/cyggmp-3.dll (0x6ad40000)                    vers 4.3.2.1  
- libiconv                                         /usr/local/bin/cygiconv-2.dll (0x470000)              vers 1.14-2 
- libintl                                          /usr/bin/cygintl-8.dll                                vers 0.18.1-2 
- libltdl        at least version 1.5.6            /usr/local/bin/cygltdl-7.dll (0x68280000)             vers 2.4-1 
- libunistring                                     /usr/local/bin/cygunistring-0.dll (0x70b80000)        vers 0.9.3-2 
- libgc          at least version 7.0              /usr/local/bin/cyggc-1.dll (0x66040000)               vers 7.2d-1 
- libffi                                           /usr/local/bin/cygffi-5.dll (0x68540000)              vers 3.0.9 
- libreadline                                       **(static lib from guile ???)**                      vers 6.1.2-3 
- libgcc1                                          /usr/local/bin/cyggc-1.dll (0x66040000)               vers 4.5.3-3 
- cygguile-2.0-22  (built by guile-2.0.7.18-03a2f) /usr/local/bin/cygguile-2.0-22.dll (0x67580000)       vers 2.0-22 
- cygwin1.dll                                      /usr/bin/cygwin1.dll (0x61000000)
- cygcrypt                                         /usr/bin/cygcrypt-0.dll (0x6c5e0000)
It will also use the libreadline library if it is available.                                                          


 regards,
 
John Goodwin.

> --------------------------------------------------
> From: "Ludovic "Courtès"" <ludo@gnu.org>
> Sent: Friday, February 01, 2013 5:13 PM
> To: "objc" <objcjohn@hotmail.com>
> Cc: <guile-user@gnu.org>
> Subject: Re: Guile and MSWindows
> 
>> Hi,
>>
>> "objc" <objcjohn@hotmail.com> skribis:
>>
>>> I just built guile-2.0.7.18-03a2f
>>> Check out http://branch-twigg.webs.com/ for what I done with it.
>>> currently playing with BioSchematics - L-System Parser and Drawing tool 
>>> by - Xavier Raynaud <x.raynaud@wanadoo.fr>
>>
>> Interesting.
>>
>>> FAIL: tests/alist.test: sloppy-assq not
>>> FAIL: tests/alist.test: sloppy-assv not
>>> FAIL: tests/alist.test: assv not
>>> FAIL: tests/alist.test: assq-ref not
>>> FAIL: tests/alist.test: assv-ref not
>>> FAIL: tests/common-list.test: delete-if-not!: non-empty list, remove some
>>
>> These ones are scary.  Can you try to type them at the REPL, to see what
>> happens?
>>
>>> $ cat guile.log | grep ERR
>>> ERROR: tests/bytevectors.test: 2.9 Operations on Strings: string->utf16 - 
>>> arguments: ((system-error "string->utf16" "failed to convert string: ~A" 
>>> ("hello, world") (-1)))
>>
>> Is GNU libiconv installed?  What’s -1 in errno.h?
>>
>>> ERROR: tests/coverage.test: instrumented/executed-lines: instr = exec - 
>>> arguments: ((wrong-type-arg "car" "Wrong type argument in position ~A 
>>> (expecting ~A): ~S" (1 "pair" #f) (#f)
>>> ))
>>
>> Can you try to get a backtrace?
>>
>> That is, at the REPL, you type:
>>
>>  (use-modules (system vm coverage)
>>               (system vm vm)
>>               (system base compile)
>>               (srfi srfi-11))
>>
>>  (define-syntax code
>>    (syntax-rules ()
>>      ((_ filename snippet)
>>       (let ((input (open-input-string snippet)))
>>         (set-port-filename! input filename)
>>         (read-enable 'positions)
>>         (compile (read input))))))
>>
>>  (define %test-vm (make-vm))
>>  (let ((proc (code "foo.scm" "(lambda (x y)  ;; 0
>>                                 (+ x y))     ;; 1")))
>>    (let-values (((data result)
>>                  (with-code-coverage %test-vm
>>                    (lambda () (proc 1 2)))))
>>      (and (coverage-data? data)
>>           (= 3 result)
>>           (let-values (((instr exec)
>>                         (instrumented/executed-lines data "foo.scm")))
>>             (and (= 2 instr) (= 2 exec))))))
>>
>> and report what happens.
>>
>>> ERROR: tests/foreign.test: make-pointer: equal? modulo finalizer - 
>>> arguments: ((misc-error "dynamic-pointer" "Symbol not found: ~a" 
>>> ("scm_is_pair") #f))
>>
>> Nothing to worry about, I just committed a workaround.
>>
>> Thanks!
>>
>> Ludo’.
>>

[-- Attachment #2: Type: text/html, Size: 11430 bytes --]

^ permalink raw reply	[flat|nested] 7+ messages in thread
* Re: Guile and MSWindows
@ 2013-02-05  9:04 objc
  2013-02-05 15:41 ` Ludovic Courtès
  0 siblings, 1 reply; 7+ messages in thread
From: objc @ 2013-02-05  9:04 UTC (permalink / raw)
  To: Ludovic "Courtès"; +Cc: guile-user


> Hi Ludo,
>
> Some tests as requested.
>
> ---------------------------------------------------------------------------
>> FAIL: tests/alist.test: sloppy-assq not
>
> ;;; <stdin>:242:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:246:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:250:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:257:4: warning: possibly unbound variable `pass-if-exception'
> ;;; <stdin>:257:4: warning: possibly unbound variable 
> `exception:wrong-type-arg'
> ;;; <stdin>:262:4: warning: possibly unbound variable `pass-if-exception'
> ;;; <stdin>:262:4: warning: possibly unbound variable 
> `exception:wrong-type-arg'
> ;;; <stdin>:267:4: warning: possibly unbound variable `pass-if-exception'
> ;;; <stdin>:267:4: warning: possibly unbound variable 
> `exception:wrong-type-arg'
> <unnamed port>:242:2: In procedure #<procedure 205cbce0 at <current 
> input>:239:0 ()>:
> <unnamed port>:242:2: In procedure module-lookup: Unbound variable: 
> pass-if
>
> Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
> scheme@(guile-user) [4]> ,bt
> In current input:
>    242:2  0 (#<procedure 205cbce0 at <current input>:239:0 ()>)
> ---------------------------------------------------------------------------
>> FAIL: tests/alist.test: sloppy-assv not
>
>
> ---------------------------------------------------------------------------
>> FAIL: tests/alist.test: assv not
>
>
> ---------------------------------------------------------------------------
>> FAIL: tests/alist.test: assq-ref not
>
>
> ---------------------------------------------------------------------------
>> FAIL: tests/alist.test: assv-ref not
>
>
> ---------------------------------------------------------------------------
>> FAIL: tests/common-list.test: delete-if-not!: non-empty list, remove some
>
> ;;; <stdin>:470:0: warning: possibly unbound variable `with-test-prefix'
> ;;; <stdin>:472:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:473:4: warning: possibly unbound variable `delete-if-not!'
> ;;; <stdin>:475:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:476:9: warning: possibly unbound variable `delete-if-not!'
> ;;; <stdin>:478:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:479:9: warning: possibly unbound variable `delete-if-not!'
> ;;; <stdin>:481:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:482:9: warning: possibly unbound variable `delete-if-not!'
> ;;; <stdin>:484:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:485:12: warning: possibly unbound variable `delete-if-not!'
> ;;; <stdin>:487:2: warning: possibly unbound variable `pass-if'
> ;;; <stdin>:488:12: warning: possibly unbound variable `delete-if-not!'
> <unnamed port>:470:0: In procedure #<procedure 20760a80 at <current 
> input>:470:0 ()>:
> <unnamed port>:470:0: In procedure module-lookup: Unbound variable: 
> with-test-prefix
>
> Entering a new prompt.  Type `,bt' for a backtrace or `,q' to continue.
> scheme@(guile-user) [6]> ,bt
> In current input:
>    470:0  0 (#<procedure 20760a80 at <current input>:470:0 ()>)
> scheme@(guile-user) [6]>
> ---------------------------------------------------------------------------
> These ones are scary.  Can you try to type them at the REPL, to see what
> happens?
> ---------------------------------------------------------------------------
>
>> ERROR: tests/bytevectors.test: 2.9 Operations on Strings: string->utf16 - 
>> arguments:
> ((system-error "string->utf16" "failed to convert string: ~A" ("hello, 
> world") (-1)))
>
> Is GNU libiconv installed?  What’s -1 in errno.h?
>
> - libiconv /usr/local/bin/cygiconv-2.dll (0x470000)              vers 
> 1.14-2
>
> -1 in errno.h
> =============
> -1 not defined in /usr/include/sys/errno.h  ???
>
> ---------------------------------------------------------------------------
>
> ERROR: tests/coverage.test: instrumented/executed-lines: instr = exec - 
> arguments:
> ((wrong-type-arg "car" "Wrong type argument in position ~A (expecting ~A): 
> ~S" (1 "pair" #f) (#f) ))
>
> Can you try to get a backtrace?
>
> That is, at the REPL, you type:
>
> $ guile
> %load-path=(/usr/local/lib/guile/2.0 /usr/local/share/guile/2.0
> /usr/local/lib /usr/local/share/guile /usr/local/lib/guile
> /usr/local/lib/guile/2.0/ccache /usr/local/share/guile/site .
> /usr/local/share/guile/2.0 /usr/local/share/guile/site/2.0
> /usr/local/share/guile/site /usr/local/share/guile)
> %load-compiled-path=(/usr/local/lib/guile/2.0 
> /usr/local/lib/guile/2.0/ccache /usr/local/lib/guile/2.0/site-ccache)
> %load-extensions=(.scm )
> PATH=/usr/local/lib/guile/2.0/ccache
> GNU Guile 2.0.7.18-03a2f
> Copyright (C) 1995-2012 Free Software Foundation, Inc.
>
> Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'.
> This program is free software, and you are welcome to redistribute it
> under certain conditions; type `,show c' for details.
>
> Enter `,help' for help.
> scheme@(guile-user)>  (use-modules (system vm coverage)
>               (system vm vm)
>               (system base compile)
>               (srfi srfi-11))
>
>  (define-syntax code
>    (syntax-rules ()
>      ((_ filename snippet)
>       (let ((input (open-input-string snippet)))
>         (set-port-filename! input filename)
>         (read-enable 'positions)
>         (compile (read input))))))
>
>  (define %test-vm (make-vm))
>  (let ((proc (code "foo.scm" "(lambda (x y)  ;; 0
>                                 (+ x y))     ;; 1")))
>    (let-values (((data result)
>                  (with-code-coverage %test-vm
>                    (lambda () (proc 1 2)))))
>      (and (coverage-data? data)
>           (= 3 result)
>           (let-values (((instr exec)
>                         (instrumented/executed-lines data "foo.scm")))
>             (and (= 2 instr) (= 2 exec))))))
> $1 = #t
>
> scheme@(guile-user)>
>
> ---------------------------------------------------------------------------
> Regards,
>
> John Goodwin
>
> --------------------------------------------------
> From: "Ludovic "Courtès"" <ludo@gnu.org>
> Sent: Friday, February 01, 2013 5:13 PM
> To: "objc" <objcjohn@hotmail.com>
> Cc: <guile-user@gnu.org>
> Subject: Re: Guile and MSWindows
>
>> Hi,
>>
>> "objc" <objcjohn@hotmail.com> skribis:
>>
>>> I just built guile-2.0.7.18-03a2f
>>> Check out http://branch-twigg.webs.com/ for what I done with it.
>>> currently playing with BioSchematics - L-System Parser and Drawing tool 
>>> by - Xavier Raynaud <x.raynaud@wanadoo.fr>
>>
>> Interesting.
>>
>>> FAIL: tests/alist.test: sloppy-assq not
>>> FAIL: tests/alist.test: sloppy-assv not
>>> FAIL: tests/alist.test: assv not
>>> FAIL: tests/alist.test: assq-ref not
>>> FAIL: tests/alist.test: assv-ref not
>>> FAIL: tests/common-list.test: delete-if-not!: non-empty list, remove 
>>> some
>>
>> These ones are scary.  Can you try to type them at the REPL, to see what
>> happens?
>>
>>> $ cat guile.log | grep ERR
>>> ERROR: tests/bytevectors.test: 2.9 Operations on Strings: 
>>> string->utf16 - arguments: ((system-error "string->utf16" "failed to 
>>> convert string: ~A" ("hello, world") (-1)))
>>
>> Is GNU libiconv installed?  What’s -1 in errno.h?
>>
>>> ERROR: tests/coverage.test: instrumented/executed-lines: instr = exec - 
>>> arguments: ((wrong-type-arg "car" "Wrong type argument in position ~A 
>>> (expecting ~A): ~S" (1 "pair" #f) (#f)
>>> ))
>>
>> Can you try to get a backtrace?
>>
>> That is, at the REPL, you type:
>>
>>  (use-modules (system vm coverage)
>>               (system vm vm)
>>               (system base compile)
>>               (srfi srfi-11))
>>
>>  (define-syntax code
>>    (syntax-rules ()
>>      ((_ filename snippet)
>>       (let ((input (open-input-string snippet)))
>>         (set-port-filename! input filename)
>>         (read-enable 'positions)
>>         (compile (read input))))))
>>
>>  (define %test-vm (make-vm))
>>  (let ((proc (code "foo.scm" "(lambda (x y)  ;; 0
>>                                 (+ x y))     ;; 1")))
>>    (let-values (((data result)
>>                  (with-code-coverage %test-vm
>>                    (lambda () (proc 1 2)))))
>>      (and (coverage-data? data)
>>           (= 3 result)
>>           (let-values (((instr exec)
>>                         (instrumented/executed-lines data "foo.scm")))
>>             (and (= 2 instr) (= 2 exec))))))
>>
>> and report what happens.
>>
>>> ERROR: tests/foreign.test: make-pointer: equal? modulo finalizer - 
>>> arguments: ((misc-error "dynamic-pointer" "Symbol not found: ~a" 
>>> ("scm_is_pair") #f))
>>
>> Nothing to worry about, I just committed a workaround.
>>
>> Thanks!
>>
>> Ludo’.
>> 



^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~2013-02-05 15:41 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-01-29 15:12 Guile and MSWindows objc
2013-02-01 17:13 ` Ludovic Courtès
2013-02-02  6:53   ` objc
  -- strict thread matches above, loose matches on Subject: below --
2013-02-02 12:23 objc
2013-02-04 12:28 ` Ludovic Courtès
2013-02-05  9:04 objc
2013-02-05 15:41 ` Ludovic Courtès

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).