Août 2009 - Gambit-list - mailman.iro.umontreal.ca

(define ((...) ...)
by Michele Zaffalon 25 Aoû '09

25 Aoû '09

Hi, this question has nothing to do with Gambit in particular but I couldn't find an explanation. In Structure and Interpretation of Classical Mechanics, the *first* procedure defined is (define ((L-free-particle mass) local) (let ((v (velocity local))) ...) and the book explains that L-free-particle is a procedure that takes mass as an argument and returns a procedure that takes local as a parameter. Now, what doesn't (define ((L-free-particle mass) local) ... work with Gambit? What is missing? Thanks, michele

4 5

Re: [gambit-list] simple gsc'd program segfaults
by Stephen Sinclair 25 Aoû '09

25 Aoû '09

On Tue, Aug 25, 2009 at 6:22 PM, Stephen Sinclair<radarsat1(a)gmail.com> wrote: > On Tue, Aug 25, 2009 at 6:12 PM, Ivan Kelly<ivan(a)ivankelly.net> wrote: >> On Tue, Aug 25, 2009 at 06:10:35PM -0400, Stephen Sinclair wrote: >>> $ gsc -o test test.scm >> try gsc -exe test.scm > > As you mentioned to me on IRC, I guess this isn't available in the > Ubuntu version. Maybe it's worth installing from source.. > >> >>> $ gsc -link -o test.c test.scm >>> >>> $ gcc -o test test.c -lgambc >> gsc -link will also produce a test_.c file, you need to compile that >> also. >> > > Thanks, that worked! > > I see now that if I use both -link and -o, it doesn't produce test_.c. > However, just -link produces the two .c files, which don't segfault. > > cheers, > Steve >

1 0

simple gsc'd program segfaults
by Stephen Sinclair 25 Aoû '09

25 Aoû '09

Hello! I'm interested in playing with Scheme a bit lately, so I thought I'd check out Gambit. Well, I had no problems getting the interpreter to work, but I seem to be having issues with the compiler. I installed this from the Ubuntu intrepid repo btw. Here is an example session, showing that some very simple code just seems to segfault when compiled. Tried this on two different computers, what am I doing wrong? Thanks. Steve $ echo '(display (+ 1 2))' >test.scm $ gsc -o test test.scm $ ./test Segmentation fault $ gsc -link -o test.c test.scm $ gcc -o test test.c -lgambc $ ./test Segmentation fault $ gcc -O0 -g -o test test.c -lgambc $ gdb ./test GNU gdb 6.8-debian Copyright (C) 2008 Free Software Foundation, Inc. License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html> This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. Type "show copying" and "show warranty" for details. This GDB was configured as "i486-linux-gnu"... (gdb) r Starting program: /home/sinclairs/scheme/space-invaders/test Program received signal SIGSEGV, Segmentation fault. 0xb7ffc223 in ?? () from /usr/lib/libgambc.so.4 (gdb) bt #0 0xb7ffc223 in ?? () from /usr/lib/libgambc.so.4 Cannot access memory at address 0x5 (gdb)

2 1

undefined symbols error when compiling
by antonitio 25 Aoû '09

25 Aoû '09

hi, i'm trying to compile scheme to c code. here's the hello.scm code: (display "hello world") (newline) compiled ok with gsc: /usr/local/Gambit-C/bin/gsc -c hello.scm however when tried to compile with gcc produced the following error: gcc test.c -I/usr/local/Gambit-C/include -L/usr/local/Gambit-C/lib Undefined symbols: "____gstate", referenced from: ____gstate$non_lazy_ptr in cccK2CZQ.o "_main", referenced from: start in crt1.10.5.o "____G__20_test", referenced from: ____G__20_test$non_lazy_ptr in cccK2CZQ.o "____G_display", referenced from: ____G_display$non_lazy_ptr in cccK2CZQ.o "____G_newline", referenced from: ____G_newline$non_lazy_ptr in cccK2CZQ.o ld: symbol(s) not found collect2: ld returned 1 exit status i'm running on mac os x: uname -srmp; gcc --version Darwin 9.8.0 i386 i386 i686-apple-darwin9-gcc-4.0.1 (GCC) 4.0.1 (Apple Inc. build 5465) did i miss some settings or steps? thanks, antonitio

5 6

Suggestion for a new GCC compiler option
by Bradley Lucier 25 Aoû '09

25 Aoû '09

Dear Marc (and other Gambiteers): I just ran an experiment where I added every combination of 0, 1, and 2 options from the following list to the standard options for Gambit on x86-64 Linux and the development (4.5.0) gcc compiler, and measured the speed of the direct and inverse FFT transforms used in bignum multiplication: (define compiler-options '("-fthread-jumps" "-falign-functions" "-falign-jumps" "-falign-loops" "-falign-labels" "-fcaller-saves" "-fcrossjumping" "-fcse-follow-jumps" "-fcse-skip-blocks" "-fdelete-null-pointer-checks" "-fexpensive-optimizations" "-fgcse" "-fgcse-lm" "-fgcse-sm" "-fgcse-las" "-findirect-inlining" "-foptimize-sibling-calls" "-fpeephole2" "-fregmove" "-freorder-blocks" "-freorder-functions" "-frerun-cse-after-loop" "-fsched-interblock" "-fsched-spec" "-fschedule-insns" ;; "-fschedule-insns2" ; always on ;; "-fstrict-aliasing" ; always off ;; "-fstrict-overflow" ; always off, since -fwrapv is on "-ftree-switch-conversion" "-ftree-pre" "-finline-functions" "-funswitch-loops" "-fpredictive-commoning" "-fgcse-after-reload" "-ftree-vectorize")) What I found was that "-fschedule-insns" significantly improved the code, it ran in 1.264 seconds instead of 1.444 seconds. Note that - fschedule-insns2 is already added to the command line. (For what it's worth, the two options -ftree-pre and -fgcse generated the worst code, when both those options were added the ffts ran in 1.552 seconds.) This options is added at optimization level "-O2" on all architectures with "large" register sets, and I believe that even if it's specified on the command line, it is turned off for i386 (usual Intel x86) code (but this should be checked). So I'm asking that people might run the benchmark suite on various architectures after configuring gambit with, e.g., ./configure CC="gcc -fschedule-insns" --enable-single-host and compare the result to those without adding -fschedule-insns to the command line. I suspect that for both ppc(64) and x86-64 there could be noticeable speedup, but I'm not sure what will happen with arm or some of the other architectures that Gambit might run on. Brad

3 3

syntax-rules error
by antonitio 25 Aoû '09

25 Aoû '09

hi all i try to define the following syntax: (define-syntax when (syntax-rules () ((_ test stm1 stm2 ...) (if test (begin stm1 stm2 ...))))) but getting the following error with the bracket pair after syntax-rules highlighted (in emacs): *** ERROR IN (stdin)(a)2.17 -- Ill-formed expression this occurs on both version 4.4.4 and 4.5.1. i try on chicken scheme and it works fine. this is basic stuff but i can't get around it, have searched on the net but nothing came out. am i missing something? or? thanks antonitio

2 4

Video game written in Gambit
by Marc Feeley 24 Aoû '09

24 Aoû '09

Today Gamerizon has released their game, QuantZ, which is almost entirely written in Scheme using Gambit. Give their trial version a try and check the credits! http://www.gamerizon.com/ http://www.gamerizon.com/gamerizon-news-and-media.html Marc

11 18

Tcp server error?
by David St-Hilaire 24 Aoû '09

24 Aoû '09

Hi all! Can anyone help me pinpointing what is wrong with the follow tcp server code? (define (tcp-server-test) (let ((p (read (open-tcp-server (list port-number: 20000 reuse-address: #t))))) (pp (read p)) (write 'yea! p) (force-output p) (close-port p))) (tcp-server-test) If run this code inside a console and, from another console I run the following client code: (define (tcp-test) (let ((connection (open-tcp-client (list server-address: "192.168.60.239" port-number: 20000)))) (write 'allo!! connection) (force-output connection) (read connection) (close-port connection))) (tcp-test) I always get a "broken pipe" error. Note that the ip address is correct. I tried to replace the server with the good old netcat and it works just fine (i.e. that the client successfully connects to the nc server). Is anything wrong with the server code? Thanks! -- David

3 3

Creating a c-define-type using c++ reference
by Ivan Kelly 24 Aoû '09

24 Aoû '09

Im porting a C++ library to gambit and have numerous functions which take references as parameters or return type. (define QObject-setObjectName (c-lambda (QObject* const_QString&) (void) "arg1->setObjectName(arg2);")) (define QObject-children (c-lambda (QObject*) (const_QList<QObject*>&) "____result = arg1->children();")) My problem is I don't know how to c-define-type the reference types. On the one hand I want them to act as "type", when being passed in as parameters. On the other I want pointer behaviour, so that the whole object isn't copied on return. Has anyone else run into this problem with c++, and how did you solve it? Regards Ivan

2 1

Where to find Black Hole?
by Tomi Neste 24 Aoû '09

24 Aoû '09

Good evening everyone. Is the latest version Black Hole available somewhere? mwaza.dyndns seems to be down and git://github.com/pereckerdal/blackhole-libs.git only has the bundled libs but no Black Hole itself. The "very old copy" linked in wiki gives me a "deserialization error" when trying to (load "build.scm"). -- tomppa

3 3