Gambit-list Octobre 2009

gambit-list@iro.umontreal.ca

32 participants
40 discussions

Returning struct as a value
by Julian Scheid 09 Oct '09

09 Oct '09

Hi, I have the following two functions for converting a pointer to some struct Foo into the "value" struct Foo: (define value-Foo-1 (c-lambda ((pointer (struct "Foo"))) (struct "Foo") #<<c-lambda-end void* mem = malloc(sizeof(Foo)); new (mem) Foo(*___arg1); ___result_voidstar = mem; c-lambda-end )) (define value-Foo-2 (c-lambda ((pointer (struct "Foo"))) (struct "Foo") "___result = *___arg1;")) (value-Foo-1) works and (value-Foo-2) crashes. Is this expected? If so, is there a more elegant way to express the code of value-Foo-1? Also: is it OK to use malloc here or am I supposed to use ___alloc_rc or ___C_ASSIGN_NEW ? Do I have to worry about providing code for releasing the memory allocated? Finally, I am curious whether there is any difference internally between the handling of (struct "Foo") and (type "Foo"), or is this just naming for the sake of clarity?

1 1

Meroon for gambit
by David St-Hilaire 08 Oct '09

08 Oct '09

Hi Brad! Where can I get my hands on a meroon system integrated with recent gambit builds? I couldn't find it on your homepage and neither on the meroon official webpage which seems to point to a bad url. Thanks! David

4 5

Can't upload bz2 file?
by Bradley Lucier 08 Oct '09

08 Oct '09

Marc: I tried to upload MeroonV3-2008Mar01.tar.bz2 and got the message Upload warning ".bz2" is an unwanted file type List of allowed file types: png, gif, jpg, jpeg, scm, tgz, zip, pdf, odf, doc, html That's a little old fashioned, isn't it? Brad

1 0

Immutable foreign objects?
by Julian Scheid 08 Oct '09

08 Oct '09

http://www.iro.umontreal.ca/~gambit/doc/gambit-c.html#mapping-of-types says: > In the case of the struct, union and type types, the internal pointer > points to a copy of the C data type being represented. When an > instance of one of these types is converted from C to Scheme, a block > of memory is allocated from the C heap and initialized with the > instance and then a foreign object is allocated from the Scheme heap > and initialized with the pointer to this copy. [...] Does this mean that existing foreign objects are immutable?

1 1

Gambit Scheme back-end for SWIG
by Julian Scheid 07 Oct '09

07 Oct '09

Hi there, cross-posting this because it's relevant to both parties: this is to let you know that I've started implementing a Gambit [1] back-end for SWIG. So far I have the simple example from the beginning of the tutorial working [2]. Of course that's only the tip of the iceberg but, getting there... You, both Gambit and SWIG people, will likely hear from me soon with some specific questions. In the meantime, if you have any thoughts, suggestions, or relevant pointers -- they are welcome. [1] http://dynamo.iro.umontreal.ca/~gambit/wiki/index.php/Main_Page [2] http://www.swig.org/tutorial.html

2 1

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

Gambit-list Octobre 2009