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

Is there any way to use gsc in a Visual Studio 2008 build process?
by Valeriya Pudova 21 Oct '09

21 Oct '09

We've tried using a custom build step (VS reports that the step failed) and running gsc via nmake. In the latter case, nmake reported a return 0x47 from gsc. That's 71 decimal, which the documentation says means: "There was a problem initializing the runtime system, for example insufficient memory to allocate critical tables".

1 0

Poor compilation of do-loops
by Bradley Lucier 18 Oct '09

18 Oct '09

Marc: At the end of this message I suggest a compiler transformation of do-loops that doubles the speed of the sample code. A matrix multiplication benchmark recently was posted to the Chicken list, see the thread beginning here: http://lists.gnu.org/archive/html/chicken-users/2009-10/msg00050.html The Gambit version of the benchmark has no Gambit-specific declarations, uses generic vectors and arithmetic. When I built the Gambit benchmark the way that it was done in that thread and run it on the 100x100 example, I get heine:~/programs/matrix-multiply-benchmarks> ./gamb-bench 10 ------------ (time (set! c (bench-multiply a b times))) 2838 ms real time 2836 ms cpu time (2836 user, 0 system) 326 collections accounting for 382 ms real time (376 user, 0 system) 702278640 bytes allocated 835 minor faults no major faults ------------ When I build it with gsc -exe, I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-bench-gambit 10 ------------ (time (set! c (bench-multiply a b times))) 1429 ms real time 1424 ms cpu time (1420 user, 4 system) 326 collections accounting for 380 ms real time (352 user, 4 system) 702278640 bytes allocated 833 minor faults no major faults ------------ When I use fx and fl operations, uniform f64vectors, and (standard-bindings)(extended-bindings)(block), I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-lucier 10 ------------ (time (set! c (bench-multiply a b times))) 1221 ms real time 1220 ms cpu time (1220 user, 0 system) 1027 collections accounting for 357 ms real time (356 user, 0 system) 1409818032 bytes allocated 226 minor faults no major faults ------------ And if I add (not safe) I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-lucier 10 ------------ (time (set! c (bench-multiply a b times))) 877 ms real time 880 ms cpu time (876 user, 4 system) 772 collections accounting for 268 ms real time (284 user, 0 system) 1057834192 bytes allocated 451 minor faults no major faults ------------ So far, so good. The main loop is (define multiply (lambda (m1 m2) (let* ((nr1 (matrix-rows m1)) (nr2 (matrix-rows m2)) (nc2 (matrix-columns m2)) (r (make-matrix nr1 nc2))) (if (not (fx= (matrix-columns m1) nr2)) (match-error m1 m2)) (do ((i 0 (fx+ i 1))) ((fx= i nr1) r) (do ((j 0 (fx+ j 1))) ((fx= j nc2)) (do ((k 0 (fx+ k 1)) (a 0.0 (fl+ a (fl* (matrix-ref m1 i k) (matrix-ref m2 k j))))) ((fx= k nr2) (matrix-set! r i j a)))))))) If I rewrite this by hand to use named lets, like (define multiply (lambda (m1 m2) (let* ((nr1 (matrix-rows m1)) (nr2 (matrix-rows m2)) (nc2 (matrix-columns m2)) (r (make-matrix nr1 nc2))) (if (not (fx= (matrix-columns m1) nr2)) (match-error m1 m2)) (let i-loop ((i 0)) (if (fx= i nr1) r (let j-loop ((j 0)) (if (fx= j nc2) (i-loop (fx+ i 1)) (let k-loop ((k 0) (a 0.0)) (if (fx= k nr2) (begin (matrix-set! r i j a) (j-loop (fx+ j 1))) (k-loop (fx+ k 1) (fl+ a (fl* (matrix-ref m1 i k) (matrix-ref m2 k j))))))))))))) I get heine:~/programs/matrix-multiply-benchmarks> ./matrix-lucier-named-let 10 ------------ (time (set! c (bench-multiply a b times))) 422 ms real time 416 ms cpu time (412 user, 4 system) 515 collections accounting for 175 ms real time (184 user, 4 system) 705822880 bytes allocated 451 minor faults no major faults ------------ In other words, this mechanical translation of do loops to named lets (following the known continuation when each loop is finished) more than doubles the speed of the routine. I've trained myself to write loops as named lets, but other people have not yet been assimilated to modify how they write code to get around the oddities of Gambit's compiler. Do loops are very popular in numerical code; please add a transformation like this to the compiler. Brad

3 7

Blackhole/Spork and content types
by Jonathan Arkell 17 Oct '09

17 Oct '09

Hi List When using Spork, I am having some issues working with content types. I am trying to do this: (define mono-serv (spork-serve root: "/spork" )) (add-spork mono-serv ("main.css" doctype: "text/css" mime: "text/css" headers: '(("Content-Type" . "text/css") ("foo" . "bar"))) main-css) I always get a content type of "text/html; Charset=UTF-8", and the second foo/bar header isn't shown. I suspect that it is just a syntax issue on my side, but I am not sure what the correct syntax is. Thanks!

2 1

macros, exceptions, line numbers
by lowly coder 15 Oct '09

15 Oct '09

take a look at: cat test.scm; gsi test.scm (define-macro (for var start end . body) `(do ((,var ,start (+ ,var 1))) ((= ,var ,end)) ,@body)) (for i 0 2 (display i) (newline)) (for i 0 2 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing (/ i a) 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing 'this-line-does-nothing ) 0 1 *** ERROR IN #<procedure #2>, "test.scm"@12.1 -- Unbound variable: a ignore the fact taht ,end is evaluated twice: note that the error is on line "12", which is the (for i 0 2 line ... not the (/ i a) line; i can understand that since the macro expansion happens before the code is run, the entire 'chunk' gets grouped to the line where the macro is expanded at however, is there anyway I can have the "LINE_NUMBER" information passed along with define-macro? thanks!

2 1

automatic ,b on error triggering recursive repl
by lowlycoder 15 Oct '09

15 Oct '09

Hi! Running gambit with -:dar , I get recursive repls whenever any thread throws an exception (and these are sent to different xterms). Now, is there anyway, when an error is hit, to have an backtrace happen autoamticaly (generally, I go to the xterm and hit ,b) -- this would just help my work flow much better as it eliminates the need to leave my editor. Thanks!

2 1

skip startup message
by lowlycoder 15 Oct '09

15 Oct '09

Is there anyway to tell gsi to skip the message: "Gambit v4.5.2" on startup? I've looked through section 4 of the manual, and I don't see how to supress it. Thanks! (I have nothing against the message, but I hae this multi threaded app that dumps stuff to log at the startup, and it gets all jumbled up, especially with the highlighting of Gambit 4.5.2 title). Thanks!

2 1

thread input/output to port
by lowly coder 14 Oct '09

14 Oct '09

Sorry for dumb question -- I have a tcp port. I'm starting a thread. How can I redirect all input/output from/to the thread to this tcp port? somethign like (let ((p (pre existing code that makes bidirectional port)) .. modify the following ... (thread-start! (make-thread func))) thanks!

3 4

Simpler multithread debugging with X terminals
by Christian Jaeger 13 Oct '09

13 Oct '09

Hello Marc I've tried your code from https://mercure.iro.umontreal.ca/pipermail/gambit-list/2009-June/003649.html One problem I'm having with this is that hitting ctl-d (even once) will close the xterm. Also, on the new xterm the repl history from the previous instance is lost. Also, ctl-c doesn't work as it should (it makes the xterm go away instead of interrupting the program). You're starting a proxy process inside the xterm which then connects back to Gambit using tcp and intermediates between the tty and the debuggee. Now maybe you did this for portability to windows, but on unix it should be possible to allocate a pseudo tty and just pass it's fd to the terminal emulator. urxvt (rxvt-unicode) has a "-pty-fd file_descriptor" option, and xterm has a "-Sccn" option which should do the same thing (the xterm man page is a bit confusing about that option and I haven't tried it yet). So this would enable multithreaded debugging with only the master Gambit process running (debuggee = debugger), which should make it much simpler and more robust. But Gambit will have to accept multiple console ports; i.e. I'll have to instantiate a repl with it's own fd in the new threads, either as lexical closure or in a parameter object. Can you tell me how to make this work? What I don't know yet is how signals (ctl-c) will behave, I guess all pty's will send the signals to Gambit, I don't know how to check which pty was responsible for a signal so as to map it back to the thread(s) which is(are) using that pty. I suppose there is some unix api for that. Thanks, Christian.

1 0

mailing list
by Adrien Piérard 13 Oct '09

13 Oct '09

Hi. I found on IRC an user willing to join the list. Yet, the URL https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list is not really helping him join the list. Could this be fixed? (Or the procedure written on the wiki, such as "send an email to gambit-list-request on this domain and with this topic", or whatever else?) Cheers, P! -- Français, English, 日本語, 한국어

3 2

Reserved identifiers
by Julian Scheid 13 Oct '09

13 Oct '09

On the SWIG mailing list William S Fulton pointed out that identifiers like ___result_voidstar are, technically speaking, illegal in that they are reserved names in C99 and C++. I don't care too much, it seems more of an academic issue than one that could cause practical problems anytime soon, but I thought I'd pass this on to you. http://groups.google.com/group/comp.std.c++/browse_thread/thread/6457179542… http://sourceforge.net/mailarchive/message.php?msg_name=4AD39AE4.9020600%40…

1 0