* 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-01-29 15:12 Guile and MSWindows objc
@ 2013-02-01 17:13 ` Ludovic Courtès
2013-02-02 6:53 ` objc
0 siblings, 1 reply; 7+ messages in thread
From: Ludovic Courtès @ 2013-02-01 17:13 UTC (permalink / raw)
To: objc; +Cc: guile-user
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* Re: Guile and MSWindows
2013-02-01 17:13 ` Ludovic Courtès
@ 2013-02-02 6:53 ` objc
0 siblings, 0 replies; 7+ messages in thread
From: objc @ 2013-02-02 6:53 UTC (permalink / raw)
To: Ludovic "Courtès", guile-user
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.
So far I have:
==========
loaded required ?File
paths for modulesversion
version Description
EFSADU.DLLIESHIMS.DLL
WER.DLLc:\windows\system32\MPR.DLL
5.1.2600.5512c:\cygwin\bin\CYGCRYPT-0.DLL
N/Ac:\cygwin\bin\CYGGCC_S-1.DLL
N/Ac:\cygwin\bin\CYGGMP-3.DLL
N/A 4.1c:\cygwin\bin\CYGINTL-8.DLL
0.18.1.0c:\cygwin\bin\CYGWIN1.DLL
1007.16.0.0c:\cygwin\usr\local\bin\CYGFFI-5.DLL
N/Ac:\cygwin\usr\local\bin\CYGGC-1.DLL
N/A 7.0c:\cygwin\usr\local\bin\CYGGUILE-2.0-22.DLL
2.0-022 from guile-2.0.7.18-03a2f
c:\cygwin\usr\local\bin\CYGICONV-2.DLL 1.13.1.0c:\cygwin\usr\local\bin\CYGLTDL-7.DLL
N/A 1.5.6c:\cygwin\usr\local\bin\CYGUNISTRING-0.DLL
0.9.3.0
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
* 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* Re: Guile and MSWindows
2013-02-05 9:04 objc
@ 2013-02-05 15:41 ` Ludovic Courtès
0 siblings, 0 replies; 7+ messages in thread
From: Ludovic Courtès @ 2013-02-05 15:41 UTC (permalink / raw)
To: objc; +Cc: guile-user
Hello,
"objc" <objcjohn@hotmail.com> skribis:
>>> FAIL: tests/alist.test: sloppy-assq not
>>
>> ;;; <stdin>:242:2: warning: possibly unbound variable `pass-if'
Actually you need to type in just the body of the ‘pass-if’ or
‘pass-if-exception’ forms. Could you try that?
>> ;;; <stdin>:473:4: warning: possibly unbound variable `delete-if-not!'
For this one, you must in addition first type:
(use-modules (ice-9 common-list))
>>> 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
Hmm no idea what’s going on here.
>> 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?
[...]
>> 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
So this one actually works here. No idea why it was initially failing
when run from ./check-guile, but you can probably ignore it, then.
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).