- Gambit-list - mailman.iro.umontreal.ca

What's in your gambc.scm file?
by Robert H 06 Oct '09

06 Oct '09

I was just perusing the "Teach yourself Scheme in fixnum days" tutorial and came across the gambc.scm init section. The tutorial doesn't go into examples of what that file is so I thought I might ask what you all do in the init file. Bob

5 8

moving to blackhole
by Martin DeMello 06 Oct '09

06 Oct '09

I'm writing bindings to sdl-ttf, and I have the following small program to test that everything compiles and runs: (include "../src/sdl-interface.scm") (include "sdl-ttf.scm") (define (main) (SDL::initialize SDL::init-everything) (TTF::init) (SDL::set-window-caption "Hello World" "Hello World") (let* ((screen (SDL::set-video-mode 640 480 32 SDL::swsurface)) (courier (TTF::open-font "/usr/share/fonts/TTF/cour.ttf" 10)) (stext (TTF::render-text-solid courier "Hello World" 0 0 255 0))) (SDL::BLIT-surface stext 0 0 640 480 screen 0 0 640 480) (SDL::flip screen) (SDL::Delay 2000) (TTF::quit) )) (main) This compiled and ran perfectly via gsc -exe -cc-options '-I/usr/include/SDL/' -ld-options '-L/usr/lib -lSDL -lSDL_ttf' ttf-test.scm Now I'm trying to convert just this one file to blackhole, loading sdl-interface and sdl-ttf as external dependencies. After going through the blackhole docs, I tried the following: (load "~~/lib/modules/build") (compile-options force-compile: #t cc-options: "-I/usr/include/SDL/" ld-options: "-L/usr/lib -lSDL -lSDL_ttf") (import "../src/sdl-interface") (import "sdl-ttf") (define (main) (SDL::initialize SDL::init-everything) (TTF::init) (SDL::set-window-caption "Hello World" "Hello World") (let* ((screen (SDL::set-video-mode 640 480 32 SDL::swsurface)) (courier (TTF::open-font "/usr/share/fonts/TTF/cour.ttf" 10)) (stext (TTF::render-text-solid courier "Hello World" 0 0 255 0))) (SDL::BLIT-surface stext 0 0 640 480 screen 0 0 640 480) (SDL::flip screen) (SDL::Delay 2000) (TTF::quit) )) (main) and tried compiling it with gsc -exe ttf-sdl.scm which threw up a bunch of warnings that SDL::* was not defined Commenting out the first line and compiling it with bsc ttf-test.scm died with *** ERROR IN module#lib-module-resolver -- Not a valid lib URL "../src/sdl-interface" even after compiling sdl-interface and sdl-ttf to object files. Could someone help me get this running? martin

4 5

Re: [gambit-list] Thread question
by Marc Feeley 05 Oct '09

05 Oct '09

On 5-Oct-09, at 12:50 AM, Mikael More wrote: > Dear Marc, > > May threads be GC:ed in case they are started, but there's no > variable references to them? > > I.e., might (##gc) after having evaluated > > (thread-start! (make-thread (lambda () (let loop () (print ".") > (thread-sleep! 0.5) (loop))))) > > stop the thread? No. The run queue managed by the thread scheduler is part of the root set. The timeout queue, which is used by thread-sleep! and other operations with a timeout, is also part of the root set. So if a thread is "runnable" or it might wake up after a timeout period has elapsed, then it will not be collected. Unreachable blocked threads *can* be garbage collected (for example a thread blocked on a mutex that is unreachable). I tried writing a program which exhibits this behavior but couldn't, so I suspect there is a spurious reference to the thread and I need some time to track this down. > For a side question, the documentation says "The thread’s execution > consists of a call to thunk with the initial continuation. This > continuation causes the (then) current thread to store the result in > its end-result field, abandon all mutexes it owns, and finally > terminate.". By end-result, do you mean that the return value of the > thread thunk is stored somehow in the thread variable? Yes. If the result terminated normally, the result is accessible with the thread-join! procedure. Marc

1 0

Gambit and
by Ted Carroll 02 Oct '09

02 Oct '09

All -- I'm trying Gambit for the first time on my OS X Snow Leopard machine with XCode 3.2 and I'm getting errors (can't find limits.h). If I set GAMBC_CC_VERBOSE=yes, the command line for gcc is the following: > gcc -isysroot /Developer/SDKs/MacOSX10.4u.sdk -arch i386 -no-cpp- precomp -Wno-unused -O1 -fno-math-errno -fschedule-insns2 -fno- trapping-math -fno-strict-aliasing -fwrapv -fomit-frame-pointer -fPIC - fno-common -mieee-fp -I"/Library/Gambit-C/v4.5.2/include" -c -o "foo.o" foo.c The problem (I guess) is that the listed SDK isn't installed. Any way I can specify a different one? Here are the ones installed: > ls /Developer/SDKs/ MacOSX10.5.sdk MacOSX10.6.sdk Thanks, Ted C.

3 3

open-tcp-client won't connect to Emacs server?
by James Long 02 Oct '09

02 Oct '09

I'm having some issues with the following scenario, and I can't figure out why. I created a tcp server in Emacs and am trying to connect to it in Gambit using open-tcp-client. Here's how I create my server in Emacs: (make-network-process :name "grime3d" :buffer "*grime3d*" :host "localhost" :server t :service 12000 :filter 'grime3d-client-filter :log 'grime3d-server-log)) More information about `make-network-process` can be found here: http://www.gnu.org/software/emacs/manual/html_node/elisp/Network-Processes.… If I use telnet, everything works fine (which is why this is so odd to me): james:~% telnet localhost 12000 Trying ::1... Connected to localhost. Escape character is '^]'. one two However, if I use Gambit it refuses to connect: > (define p (open-tcp-client "localhost:12000")) > (read p) *** ERROR IN ##read-datum-or-label-or-none-or-dot -- Connection refused (peek-char '#<input-output-port #2 (tcp-client "localhost" 12000)>) 1> > (define p (open-tcp-client (list port-number: 12000))) > (read p) *** ERROR IN ##read-datum-or-label-or-none-or-dot -- Connection refused (peek-char '#<input-output-port #3 (tcp-client #u8(127 0 0 1) 12000)>) 1> If I create a server in Gambit, like this, it works as expected: ---------------- process 1 > (define p (open-tcp-server "*:30000")) > (read p) #<input-output-port #2 (tcp-client)> > (read p) #<input-output-port #3 (tcp-client)> > ---------------- process 2 > (define p (open-tcp-client "localhost:30000")) > (define p (open-tcp-client "localhost:30000")) So, it all points to some weird interaction between Gambit and the Emacs server. I've looked around and even scanned through the Emac source for `make-network-process` and it all seems normal. I'm not really experienced with client-server systems though. Am I doing something obviously wrong? - James

4 5

Portability
by Robert H 30 Sep '09

30 Sep '09

"Portability. Because the system is mostly written in Scheme and the compiler generates portable C code, it is easy to port the system as well as programs compiled with it to any platform with a decent C or C++ compile." Does that mean...I can compile on my Fedora box and move the compiled program to Red Hat and it will probably work? Bob

2 2

XCode 3.2 with CLang and Gambit-C
by Alex Queiroz 30 Sep '09

30 Sep '09

Hallo, Has anyone already tried the new CLang front-end that comes with XCode 3.2 to build and develop with Gambit-C? Cheers, -- -alex http://www.ventonegro.org/

1 0

bindings to GSL
by michele.zaffalon＠gmail.com 30 Sep '09

30 Sep '09

Hi, I am looking for bindings to the GSL library. Is there some initial work already done that I could use? Thanks, michele

3 2

about thread-interrupt!
by David St-Hilaire 29 Sep '09

29 Sep '09

Hi all, Hi Marc, I have a question regarding thread-interrupt!. Does the thunk used as the interrupt body executed in the interrupted thread, or in the interrupting thread? I think that it is ran in the interrupting thread because I ran into concurrency problems that were (I believe) due to fact that the interrupted thread seemed to take back the control while the interrupt body was not finished... is it possible? o_O Thanks! -- David

3 2

Visual Studio and C++ FFI
by Valeriy Pudova 29 Sep '09

29 Sep '09

What is the VC equivalent of putting --enable-cplusplus to ./ configure, to permit Gambit to interface with the API's in a C++ application?

1 0