Gambit-list Mai 2008

gambit-list@iro.umontreal.ca

16 participants
15 discussions

Edge triggered I/O with libevent
by Adam Langley 04 Avr '13

04 Avr '13

Gambit uses the select call on POSIX systems to multiplex IO operations. This is fine for small numbers of file descriptors, but falls apart quickly with large numbers[1]. libevent[2] is a wrapper library around a number of modern IO multiplexing systems (epoll on Linux, kqueue on the BSDs as well as poll and select). Attached is a patch which converts Gambit to using edge triggered I/O with epoll and libevent. This also requires a patch (attached) of libevent since the standard distribution doesn't include edge triggering support and the upstream appears to be on holiday. (epoll is required because I don't have a BSD box on which to develop edge triggering support for kqueue) This patch (for Gambit) preprocesses away to nothing unless --enable-libevent is passed to the configure script. (Note that, since this patches the configure.ac script, you'll need to run autoconf to regenerate). I hope I've not broken anything, but at this stage I've only tested that the console and tcp ports work. This patch (in the future) should also allow people, who write programs which use socket calls directly, to integrate into the main event loop at some point. Testing is more than welcome and, if you find a form of IO which is broken, please email me. [1] http://monkey.org/~provos/libevent/libevent-benchmark2.jpg [2] http://monkey.org/~provos/libevent/ -- Adam Langley agl(a)imperialviolet.org http://www.imperialviolet.org (+44) (0)7906 332512 PGP: 9113 256A CC0F 71A6 4C84 5087 CDA5 52DF 2CB6 3D60

2 2

JavaScriptScheme: too much recursion
by James Long 02 Jui '08

02 Jui '08

Hey Marc (or anyone who has used Jss from the Dumping Grounds on the wiki), I grabbed your scheme-to-javascript compiler off the dumping grounds, and it works great in Safari. In Firefox 2 & 3 however, the javascript engine throws the error "too much recursion." I will be looking through the code myself, but do you think there's a fix? If it's a real stack overflow error (not from an infinite loop), you could do some optimizing before spitting out the Javascript. This might get too involved, and the compiler might not have all the information to make guesses at inlining, etc. I haven't studied CPS- transforming compilers enough yet. - James

3 4

Compiling gambit executable under cygwin...
by David St-Hilaire 02 Jui '08

02 Jui '08

Hi all! I'm currently trying for the first time to compile a window executable file. I tried using cygwin, since I am a bit familiar with it. I installed all that could be required and compiled gambit without any problems. Then I try to compile and link my program which also uses opengl, glu and glut. Everything compiles just fine, but problems arise when I get to the linking stage... Here I get undefined references from both glu and gambit internals. The output I have is: gcc -mno-cygwin -I/home/admin/gambit-c/current/include -L/home/admin/gambit-c/current/lib -L/lib/w32api -o space-invaders opengl.o opengl-header.o glu.o glu-header.o glut.o glut-header.o scm-lib.o rbtree.o ppm-reader.o event-simulation.o texture.o sprite.o font.o coroutine.o engine.o user-interface-images.o user-interface.o space-invaders_.o -lglut32 -lglu32 -lopengl32 -lgambc -lutil glu.o:glu.c:(.text+0x2898): undefined reference to `_gluBuild1DMipmapLevels' glu.o:glu.c:(.text+0x2fe0): undefined reference to `_gluBuild2DMipmapLevels' glu.o:glu.c:(.text+0x3794): undefined reference to `_gluBuild3DMipmapLevels' glu.o:glu.c:(.text+0x3b33): undefined reference to `_gluBuild3DMipmaps' glu.o:glu.c:(.text+0x3d89): undefined reference to `_gluCheckExtension' glu.o:glu.c:(.text+0x6b54): undefined reference to `_gluNurbsCallbackData' glu.o:glu.c:(.text+0x6d74): undefined reference to `_gluNurbsCallbackDataEXT' glu.o:glu.c:(.text+0xb684): undefined reference to `_gluUnProject4@76' /home/admin/gambit-c/current/lib/libgambc.a(setup.o):setup.c:(.text+0x16d4): undefined reference to `_setjmp' /home/admin/gambit-c/current/lib/libgambc.a(setup.o):setup.c:(.text+0x1a4b): undefined reference to `_setjmp' /home/admin/gambit-c/current/lib/libgambc.a(setup.o):setup.c:(.text+0x240a): undefined reference to `_setjmp' /home/admin/gambit-c/current/lib/libgambc.a(os_base.o):os_base.c:(.text+0x260): undefined reference to `___getreent' /home/admin/gambit-c/current/lib/libgambc.a(os_base.o):os_base.c:(.text+0x305): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_base.o):os_base.c:(.text+0x32c): undefined reference to `_hstrerror' /home/admin/gambit-c/current/lib/libgambc.a(os_base.o):os_base.c:(.text+0x338): undefined reference to `__imp__h_errno' /home/admin/gambit-c/current/lib/libgambc.a(os_base.o):os_base.c:(.text+0x947): undefined reference to `_sigemptyset' /home/admin/gambit-c/current/lib/libgambc.a(os_base.o):os_base.c:(.text+0x95f): undefined reference to `_sigaction' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x45): undefined reference to `_getrusage' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x300): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x35d): undefined reference to `_gethostbyaddr' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x39f): undefined reference to `_inet_pton' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x3c0): undefined reference to `_gethostbyaddr' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x3d2): undefined reference to `_gethostbyname' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x63b): undefined reference to `_gethostname' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x706): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x731): undefined reference to `_getservbyport' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x749): undefined reference to `_getservbyname' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x989): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x9a4): undefined reference to `_getprotobynumber' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x9b4): undefined reference to `_getprotobyname' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0xbb4): undefined reference to `_lstat' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0xfd4): undefined reference to `_getpwuid' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0xff0): undefined reference to `_getpwnam' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x1208): undefined reference to `_getgrgid' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x1224): undefined reference to `_getgrnam' /home/admin/gambit-c/current/lib/libgambc.a(os.o):os.c:(.text+0x1338): undefined reference to `_getppid' /home/admin/gambit-c/current/lib/libgambc.a(os_dyn.o):os_dyn.c:(.text+0x47): undefined reference to `_dlopen' /home/admin/gambit-c/current/lib/libgambc.a(os_dyn.o):os_dyn.c:(.text+0x61): undefined reference to `_dlsym' /home/admin/gambit-c/current/lib/libgambc.a(os_dyn.o):os_dyn.c:(.text+0x76): undefined reference to `_dlerror' /home/admin/gambit-c/current/lib/libgambc.a(os_dyn.o):os_dyn.c:(.text+0xa7): undefined reference to `_dlclose' /home/admin/gambit-c/current/lib/libgambc.a(os_dyn.o):os_dyn.c:(.text+0xeb): undefined reference to `_dlclose' /home/admin/gambit-c/current/lib/libgambc.a(_kernel.o):_kernel.c:(.text+0xe24b): undefined reference to `_setjmp' /home/admin/gambit-c/current/lib/libgambc.a(os_time.o):os_time.c:(.text+0x8e): undefined reference to `_clock_gettime' /home/admin/gambit-c/current/lib/libgambc.a(os_time.o):os_time.c:(.text+0x1f0): undefined reference to `_getrusage' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x294): undefined reference to `_select' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x96e): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x978): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xa51): undefined reference to `_fcntl' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xa76): undefined reference to `_fcntl' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xb05): undefined reference to `_connect' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xb0e): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xb2c): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xbb7): undefined reference to `_shutdown' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xbed): undefined reference to `_shutdown' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xda4): undefined reference to `_recv' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xe29): undefined reference to `_send' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xea7): undefined reference to `_socket' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xee6): undefined reference to `_setsockopt' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xf19): undefined reference to `_setsockopt' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xf4c): undefined reference to `_setsockopt' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0xf9b): undefined reference to `_ioctl' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x123d): undefined reference to `_bind' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1255): undefined reference to `_listen' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1313): undefined reference to `_accept' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1b7c): undefined reference to `_pipe' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1c3f): undefined reference to `_tcgetattr' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1c7e): undefined reference to `_tcsetattr' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1d0e): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1d34): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1d94): undefined reference to `_setsid' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1dd4): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1de5): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1e09): undefined reference to `_sigemptyset' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1e1d): undefined reference to `_sigaddset' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1e39): undefined reference to `_sigprocmask' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1e60): undefined reference to `_sigprocmask' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x1ee7): undefined reference to `_fork' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x2027): undefined reference to `_fcntl' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x2073): undefined reference to `_sysconf' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x20b9): undefined reference to `_environ' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x20d0): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x21b0): undefined reference to `___errno' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x2850): undefined reference to `_waitpid' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x29d6): undefined reference to `_getsockname' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x29f7): undefined reference to `_getpeername' /home/admin/gambit-c/current/lib/libgambc.a(os_io.o):os_io.c:(.text+0x2bb9): undefined reference to `_getsockname' /home/admin/gambit-c/current/lib/libgambc.a(os_shell.o):os_shell.c:(.text+0x69): undefined reference to `_environ' /home/admin/gambit-c/current/lib/libgambc.a(os_shell.o):os_shell.c:(.text+0x167): undefined reference to `_environ' /home/admin/gambit-c/current/lib/libgambc.a(os_shell.o):os_shell.c:(.text+0x2a1): undefined reference to `_environ' /home/admin/gambit-c/current/lib/libgambc.a(os_shell.o):os_shell.c:(.text+0x33f): undefined reference to `_environ' /home/admin/gambit-c/current/lib/libgambc.a(os_shell.o):os_shell.c:(.text+0x4fe): undefined reference to `_environ' /home/admin/gambit-c/current/lib/libgambc.a(os_shell.o):os_shell.c:(.text+0x678): more undefined references to `_environ' follow /home/admin/gambit-c/current/lib/libgambc.a(os_files.o):os_files.c:(.text+0x30b): undefined reference to `_mkfifo' /home/admin/gambit-c/current/lib/libgambc.a(os_files.o):os_files.c:(.text+0x3a5): undefined reference to `_link' /home/admin/gambit-c/current/lib/libgambc.a(os_files.o):os_files.c:(.text+0x44b): undefined reference to `_symlink' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x2b2): undefined reference to `_tcgetattr' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x2d4): undefined reference to `_fcntl' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x6d2): undefined reference to `_cfsetispeed' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x6de): undefined reference to `_cfsetospeed' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x702): undefined reference to `_tcsetattr' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x720): undefined reference to `_fcntl' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x898): undefined reference to `_ioctl' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x980): undefined reference to `_ctermid' /home/admin/gambit-c/current/lib/libgambc.a(os_tty.o):os_tty.c:(.text+0x999): undefined reference to `___errno' collect2: ld returned 1 exit status make: *** [space-invaders] Error 1 I can confirm that the librairies libopengl32 libglu32 libglut32 are in /lib/w32api and that libgamc is in /home/admin/gambit-c/current/lib. Can anyone guess where my problem lies? Many thanks for your help! ^_^ David

2 1

Arto Bendiken | Rediscovering the Lively Road Not Taken
by Bradley Lucier 29 Mai '08

29 Mai '08

I was going to send this blog post of Arto Bendiken just to myself to record it for posterity, but then I thought I should expose the Gambit list to it. The Lively Kernel by Dan Ingalls had already caught my eye, but sometimes one needs an interpreter to really tell you what some technology is about, and Arto does a great job here. Somehow, with Marc's Scheme->Javascript compiler, I see a "Scheme machine" lurking in the background here, or at least a true OS-independent graphical world that Gambit could live in and drive. Brad http://bendiken.net/2008/05/27/the-lively-road-not-taken

3 3

Suggesting silently released mutexes
by Christian Jaeger 28 Mai '08

28 Mai '08

Hello Marc Gambit's mutexes are usually nice in that they are in state "abandoned" when the thread which locked them is terminated. Subsequent mutex-lock! calls throwing abandoned-mutex exceptions makes sense when the mutexes are protecting data structures, since those are then in an unsafe state and need manual inspection anyway. But there are cases where Scheme mutexes are to be used where they are protecting from entry by multiple Scheme threads to regions which are executed atomically; for example, foreign C code which does need to be protected against usage by multiple threads (i.e. requires consistency in it's own C data structures), but is also using Scheme callbacks for e.g. allocation of return values. This requires a Scheme mutex to prevent (even current) Gambit from other Scheme threads entering the C code while the latter is running the callback; but termination of a Scheme thread will never leave any data in inconsistent state, since the data mutation is done in C which will (at least currently) not be interrupted by the termination of a Scheme thread. (All that can happen is that a C call frame will remain on the C stack if the termination happens to be during the callback, which is just a (rare) leak which is unavoidable anyway.) In those cases, the abandoned-mutex exception is then just a disturbance. I've written a crude wrapper around the normal mutex operations which solves the disturbance: http://scheme.mine.nu/gambit/preview/cj-process-mutex.scm But it may make sense to offer such "safe" mutexes in the core (I've called them "process-mutex" in analogy to filehandle-based locks in Unix which are released when a Unix process is killed). Christian.

1 2

(updated cj-exception handling routines)
by Christian Jaeger 28 Mai '08

28 Mai '08

Since I've been asked about getting location information about exceptions happening in threads, and I still haven't gotten around updating all of my code to current Gambit, I've now adapted cj-exception and put it here: http://scheme.mine.nu/gambit/preview/cj-exception.scm > (with-ec-catcher (lambda() (/ 1 0) 43)) *** ERROR IN (console)(a)1.1 -- This object was raised: #<exception/continuation #2 exception: #<divide-by-zero-exception #3> continuation: #<continuation #4>> 1> ctl-d > (exception/continuation-message-in-context #2) "*** ERROR IN #<procedure #5>, (console)(a)2.28 -- Divide by zero\n(/ 1 0)\n" > (display (exception/continuation-contextlines #2)) 0 #<procedure #5> (console)@2:28 (/ 1 0) 1 (interaction) (console)@2:1 (with-ec-catcher (lambda ... 2 ##main Same thing when used like: > (define spawn (lambda (thunk) (thread-start! (make-thread (lambda () (with-ec-catcher thunk)))))) > (spawn (lambda() (/ 1 0) 43)) #<thread #6> > (thread-join! #6) *** ERROR IN (console)(a)6.1 -- Uncaught exception: #<exception/continuation #7 exception: #<divide-by-zero-exception #8> continuation: #<continuation #9>> (thread-join! '#<thread #6>) 1> Christian.

1 1

[ANN] Gambit-C v4.2.7 released
by gambit＠iro.umontreal.ca 25 Mai '08

25 Mai '08

5 6

[ANN] Gambit-C v4.2.8 released
by gambit＠iro.umontreal.ca 25 Mai '08

25 Mai '08

1 0

Distributing Gambit Source/compiled C code
by adamsonj＠email.unc.edu 22 Mai '08

22 Mai '08

Dear List, I have a small game project that I'd like to distribute to a wider audience (i.e., people who don't have Gambit-C). I've gotten it to compile fully on my system, but I'd like to make sure someone else can compile it. If I distribute Gambit-compiled C, what do I need to include (gambit.h, _gambc.c?) so that anyone with a C compiler can compile it? I know this would be simple for me to figure out if I knew more about C; I throw myself humbly at your broadly educated feet. Thanks, Joel -- Joel J. Adamson Biostatistician Pediatric Psychopharmacology Research Unit Massachusetts General Hospital Boston, MA 02114 (617) 643-1432 (303) 880-3109 Public key: http://pgp.mit.edu http://www.unc.edu/~adamsonj

3 4

New Gambit wiki
by Marc Feeley 18 Mai '08

18 Mai '08

I have just installed a recent distribution of MediaWiki and PHP, and the reCaptcha extension. In order to do this I had to use a different machine (dynamo.iro.umontreal.ca) and copy all the pages from the old wiki to the new wiki. When a page edit is saved a visual captcha will now appear to make sure the edit has been submitted by a human user. Please let me know if you find broken links, missing information, or other issues. Marc

3 6

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

Gambit-list Mai 2008