Gambit-list Juillet 2010

gambit-list@iro.umontreal.ca

13 participants
11 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

How to pass a u8vector to the FFI
by Mikael 20 Sep '11

20 Sep '11

You do this, by declaring the passed u8vector as a scheme-object in the c-lambda definition. The memory pointer to the u8vector's contents in the C code is resolved by void *u8vectorptr = ___CAST(void*,&___FETCH_U8(___BODY(theu8vectorschemeobjectvariable),___INT(0))); Remember that the pointer is only to be kept until the next return to Scheme. Mikael 2010/3/30 Álvaro Castro-Castilla <alvaro.castro.castilla(a)gmail.com> > Hi! > > Is there a way to pass a u8-vector to a FFI interface somehow? > The way I expect this to work is through a (pointer unsigned-char), but it > obviously doesn't work, claiming a proper C pointer. I would like to be able > to build this arrays from Scheme code. Is there a way? > > Currently I have to call a FFI function to set char by char, calling the > c-lambda function too many times. > > One thing that could work is something that converts u8-vectors to unsigned > char* arrays, does that exist in Gambit? > > > Thanks, > > Álvaro > > _______________________________________________ > Gambit-list mailing list > Gambit-list(a)iro.umontreal.ca > https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list > >

6 10

{Spam?} Spork issue (kCFErrorDomainCFNetwork error 303.)
by Valeriya Alex 02 Aoû '10

02 Aoû '10

Hello List, I am using the gambic v4.6.0, and latest blackhole + blackhole-libs and spork from the git When i run the next code in the bsc repl (import (std spork/core)) (define c (spork-serve root: "/spork" )) (add-spork c ("one") `(html (head (title "Hello, world!")) (body "This is my first web application using Spork :)"))) The browser does not get any response from the localhost:8080/one Safari can’t open the page “http://localhost:8080/one”. The error is: “The operation couldn’t be completed. (kCFErrorDomainCFNetwork error 303.)” (kCFErrorDomainCFNetwork:303) Please choose Safari > Report Bugs to Apple, note the error number, and describe what you did before you saw this message. That what happen if i use the telnet imc:~ valery$ telnet localhost 8080 Trying ::1... telnet: connect to address ::1: Connection refused Trying fe80::1... telnet: connect to address fe80::1: Connection refused Trying 127.0.0.1... Connected to localhost. Escape character is '^]'. GET /one <?xml version="1.0" encoding="utf-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"><head><title>Hello, world!</title></head><body>This is my first web application using Spork :)</body></html>Connection closed by foreign host. imc:~ valery$ We did this test on several computers by different people and browsers. The result is the same. Any ideas? Best Regards Valeriya

2 2

blackhole question
by Milos Negovanovic 01 Aoû '10

01 Aoû '10

Hi all, I am new to scheme, gambit and blackhole! Have a look at the fallowing example: milosn@box gambit $ cat a.scm (define (test) (println "A!")) milosn@box gambit $ cat b.scm (define (test) (println "B!")) milosn@box gambit $ cat mod.scm (import a b) (test) milosn@box gambit $ bsc -i mod.scm Loaded Black Hole. A! My question is: why is it printing "A!" when test procedure was redefined in b.scm and b.scm is imported after a.scm? Regards -- Milos Negovanovic milos.negovanovic(a)gmail.com

2 1

Macros and standard
by Yves Parès 01 Aoû '10

01 Aoû '10

Hello! I'm new to scheme and gambit. I've read "A tour of scheme in Gambit", and now I'm learning the language through "The scheme programming language" ( http://www.scheme.com/tspl3/). My question concerns define-syntax VS define-macro. If I understood well, the first is standard scheme (*) whereas the latter is not. Besides, "A tour of scheme in Gambit" qualifies define-macro as "unhygienic" (**). Moreover (as I am from Haskell), I find define-syntax's pattern-matching simpler. So: 1) What is the point of define-macro? Why does "A tour of Scheme in Gambit" encourages to use it, since it doesn't detail define-syntax? 2) Why does gambit run by default in a non-standard mode (Gambit scheme, gsc -:S) in which define-syntax doesn't exist whereas it is standard? 3) I plan to use termite, which uses Gambit Scheme and not standard scheme (gsc -:s). Can gambit scheme code call to procedures written in standard scheme? Thanks! (*) By 'standard' I mean R5RS. (**) Word which, from my newbie point of view, kind of sounds like "evil" or "don't-you-touch-it".

3 3

Termite and Gambit 4.6.0
by Jeronimo Pellegrini 23 Jul '10

23 Jul '10

Hello, The paper [1] that describes Termite mentions a macro "catch" that doesn't seem to be defined anywhere in Termite sources: > (node-init (make-node "127.0.0.1" 40000)) ok > (catch (lambda (exception) #t) (spawn (lambda () (raise 'error))) (? 1 'ok) #f) *** ERROR IN (console)(a)2.2 -- Unbound variable: catch 1> (This is an example from the Termite paper) I was wondering if this macro existed in some previous version of Gambit, or if it's just not implemented in Termite. If it is from some old version of Gambit, what would it be? (I've already reported a bug on Termite) Thanks, J. [1] http://termite.googlecode.com/files/termite.pdf

1 0

windows problem
by 赵常坤 22 Jul '10

22 Jul '10

hi, I'm a beginner of gambit. I build an "hello world" under win7, but it always open a new console to show the result, how can I make it display at the current console, just like a "normal" console exe. [?]

2 1

[ANN] Call for Participation for 2010 Workshop on Scheme and Functional Programming
by sfp2010＠iro.umontreal.ca 17 Jul '10

17 Jul '10

[my apologies if you receive multiple copies of this email.] CALL FOR PARTICIPATION 2010 Workshop on Scheme and Functional Programming Montreal, Quebec, Canada Saturday and Sunday August 21-22, 2010 http://www.iro.umontreal.ca/~sfp2010 *** ONLINE REGISTRATION IS NOW OPEN FOR THE WORKSHOP *** *** REGISTER BEFORE AUGUST 10 TO AVOID LATE REGISTRATION FEES *** PURPOSE The 2010 Workshop on Scheme and Functional Programming provides a forum for discussing experience with and future development of the Scheme programming language. The scope of the workshop includes all aspects of the design, implementation, theory, and application of Scheme. We encourage everyone interested in Scheme to participate. FORMAT The workshop will be held on the Université de Montréal campus Saturday and Sunday August 21-22, 2010. The workshop will start at 8 AM August 21 and end around noon on August 22. This year's departure from the traditional one day format will leave room for special events (lightning talks, social outing, etc). *** IF YOU ARE INTERESTED IN GIVING A LIGHTNING TALK, PLEASE CONTACT THE WORKSHOP CHAIR FOR DETAILS ASAP EVEN IF YOU ARE NOT 100% SURE *** Other information is available on the workshop web site: - Workshop program (http://www.iro.umontreal.ca/~sfp2010/program.html) - Travel, accommodation and tourism information (http://www.iro.umontreal.ca/~sfp2010/travel.html) - Online registration (http://www.iro.umontreal.ca/~sfp2010/registration.html) Marc Feeley Scheme Workshop Chair feeley at iro.umontreal.ca

1 0

Small patch for compilation with the iOS SDK 4.0
by Alex Queiroz 16 Jul '10

16 Jul '10

Hallo, In the iOS SDK 4.0 the function stat64 exists but the struct stat64 does not (the stat64 function is marked as deprecated since stat always uses 64 bits). The attached patch looks for this struct, only enabling stat64 if both the function and the struct are found. Cheers, -- -alex http://www.artisancoder.com/

2 1

Compilation problem; only one of two object files can be loaded
by Per Eckerdal 10 Jul '10

10 Jul '10

I'm compiling scheme to C, then C to .o then linking, in separate steps. The goal is to create a dynamically loadable object file (one that can be loaded by Gambit's load procedure). I have this really odd problem: I have two dynamically loadable object files that are identical except for their names (so they are not byte-to-byte identical because the file names are embedded in the files). When I load one of them, it works, but when the other one is loaded, I get "Unknown error". This happens regardless of in which order I load them: $ gsc Gambit v4.6.0 > (load "test.o1") "/Users/per/prog/gambit/blackhole/test.o1" > (load "test.o2") *** ERROR IN (console)(a)2.1 -- Unknown error (load "test.o2") 1> *** EOF again to exit $ gsc Gambit v4.6.0 > (load "test.o2") "/Users/per/prog/gambit/blackhole/test.o2" > (load "test.o1") *** ERROR IN (console)(a)2.1 -- Unknown error (load "test.o1") 1> My guess is that I use incorrect compiler and/or linker flags somewhere. I had a similar issue where an object file was only loadable by the same gsc process that created it, which was because I didn't send "-D___DYNAMIC" to the C preprocessor. The files are compiled using the exact same process, I copy-paste the commands that are used to invoke GCC at the end of the mail. Any pointers? thanks, /Per The compilation and linking commands, for the two modules: (this is on OSX) gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-rt.o" -D___DYNAMIC test-rt.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-ct.o" -D___DYNAMIC test-ct.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-vt.o" -D___DYNAMIC test-vt.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-mi.o" -D___DYNAMIC test-mi.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test.o1.o" -D___DYNAMIC test.o1.c gcc -bundle -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 -flat_namespace -undefined suppress -D___DYNAMIC -I"/usr/local/Gambit-C/include" -o "/Users/per/prog/gambit/blackhole/src/test.o1" ../../github-modules/work/compile-tmp/1/test.o1.o ../../github-modules/work/compile-tmp/1/test-rt.o ../../github-modules/work/compile-tmp/1/test-ct.o ../../github-modules/work/compile-tmp/1/test-vt.o ../../github-modules/work/compile-tmp/1/test-mi.o gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-rt.o" -D___DYNAMIC test-rt.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-ct.o" -D___DYNAMIC test-ct.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-vt.o" -D___DYNAMIC test-vt.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test-mi.o" -D___DYNAMIC test-mi.c gcc -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"/usr/local/Gambit-C/include" -c -o "/Users/per/prog/gambit/github-modules/work/compile-tmp/1/test.o2.o" -D___DYNAMIC test.o2.c gcc -bundle -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 -flat_namespace -undefined suppress -D___DYNAMIC -I"/usr/local/Gambit-C/include" -o "/Users/per/prog/gambit/blackhole/src/test.o2" ../../github-modules/work/compile-tmp/1/test.o2.o ../../github-modules/work/compile-tmp/1/test-rt.o ../../github-modules/work/compile-tmp/1/test-ct.o ../../github-modules/work/compile-tmp/1/test-vt.o ../../github-modules/work/compile-tmp/1/test-mi.o

3 4

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

Gambit-list Juillet 2010