From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "objc" Newsgroups: gmane.lisp.guile.user Subject: Re: Guile and MSWindows Date: Tue, 5 Feb 2013 09:04:02 -0000 Message-ID: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain; format=flowed; charset="UTF-8"; reply-type=response Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1360055073 32486 80.91.229.3 (5 Feb 2013 09:04:33 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 5 Feb 2013 09:04:33 +0000 (UTC) Cc: guile-user@gnu.org To: =?UTF-8?Q?Ludovic_=22Court=C3=A8s=22?= Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Tue Feb 05 10:04:54 2013 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1U2eST-0003Es-EG for guile-user@m.gmane.org; Tue, 05 Feb 2013 10:04:53 +0100 Original-Received: from localhost ([::1]:48657 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U2eSA-00010I-AV for guile-user@m.gmane.org; Tue, 05 Feb 2013 04:04:34 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:49901) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U2eS1-00010A-F9 for guile-user@gnu.org; Tue, 05 Feb 2013 04:04:30 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1U2eRz-0006LJ-Gl for guile-user@gnu.org; Tue, 05 Feb 2013 04:04:25 -0500 Original-Received: from snt0-omc4-s42.snt0.hotmail.com ([65.54.51.93]:9376) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1U2eRz-0006LC-9C; Tue, 05 Feb 2013 04:04:23 -0500 Original-Received: from SNT127-DS13 ([65.55.90.199]) by snt0-omc4-s42.snt0.hotmail.com with Microsoft SMTPSVC(6.0.3790.4675); Tue, 5 Feb 2013 01:04:22 -0800 X-EIP: [vJfJycY+aWQfbUDa2TedHUhYeSQt7G0T] X-Originating-Email: [objcjohn@hotmail.com] X-Priority: 3 X-MSMail-Priority: Normal Importance: Normal X-Mailer: Microsoft Windows Live Mail 14.0.8117.416 X-MimeOLE: Produced By Microsoft MimeOLE V14.0.8117.416 X-OriginalArrivalTime: 05 Feb 2013 09:04:22.0000 (UTC) FILETIME=[C9B2EF00:01CE037F] X-detected-operating-system: by eggs.gnu.org: Windows XP X-Received-From: 65.54.51.93 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:10022 Archived-At: > Hi Ludo, > > Some tests as requested. > > --------------------------------------------------------------------------- >> FAIL: tests/alist.test: sloppy-assq not > > ;;; :242:2: warning: possibly unbound variable `pass-if' > ;;; :246:2: warning: possibly unbound variable `pass-if' > ;;; :250:2: warning: possibly unbound variable `pass-if' > ;;; :257:4: warning: possibly unbound variable `pass-if-exception' > ;;; :257:4: warning: possibly unbound variable > `exception:wrong-type-arg' > ;;; :262:4: warning: possibly unbound variable `pass-if-exception' > ;;; :262:4: warning: possibly unbound variable > `exception:wrong-type-arg' > ;;; :267:4: warning: possibly unbound variable `pass-if-exception' > ;;; :267:4: warning: possibly unbound variable > `exception:wrong-type-arg' > :242:2: In procedure # input>:239:0 ()>: > :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 (#: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 > > ;;; :470:0: warning: possibly unbound variable `with-test-prefix' > ;;; :472:2: warning: possibly unbound variable `pass-if' > ;;; :473:4: warning: possibly unbound variable `delete-if-not!' > ;;; :475:2: warning: possibly unbound variable `pass-if' > ;;; :476:9: warning: possibly unbound variable `delete-if-not!' > ;;; :478:2: warning: possibly unbound variable `pass-if' > ;;; :479:9: warning: possibly unbound variable `delete-if-not!' > ;;; :481:2: warning: possibly unbound variable `pass-if' > ;;; :482:9: warning: possibly unbound variable `delete-if-not!' > ;;; :484:2: warning: possibly unbound variable `pass-if' > ;;; :485:12: warning: possibly unbound variable `delete-if-not!' > ;;; :487:2: warning: possibly unbound variable `pass-if' > ;;; :488:12: warning: possibly unbound variable `delete-if-not!' > :470:0: In procedure # input>:470:0 ()>: > :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 (#: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"" > Sent: Friday, February 01, 2013 5:13 PM > To: "objc" > Cc: > Subject: Re: Guile and MSWindows > >> Hi, >> >> "objc" 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 >> >> 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’. >>