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

problem with memq
by Stephane Le Cornec 07 Jul '06

07 Jul '06

I don't have a clue how I managed to get that result. I am trying to simplify and reproduce. Anyone has an idea on how this could happen? zz is set! in a lambda called by a macro in cotypes. Gambit Version 4.0 beta 17 > (aa) "c:/dev/aaScratch/com/costruct.scm" > (define zz 0) > (aac "cotypes") #t > zz '(ctype: "short" type*: VT_PTR ctype*: "void*" ctype+: #f) > (memq type*: zz) #f > (define xx '(ctype: "short" type*: VT_PTR ctype*: "void*" ctype+: #f)) > (memq type*: xx) (type*: VT_PTR ctype*: "void*" ctype+: #f) > -- Stephane! coleste(a)videotron.ca (Stephane Le Cornec) +------------------- Made with recycled electrons. --------------------+ | #include <disclaimer.h> Kebekkujin desu. | +---------<http://www.starfiredesign.com/starfire/index.html>----------+

1 1

c-type as pointers
by Stephane Le Cornec 23 Jui '06

23 Jui '06

(c-declare "XX gx;") (c-declare "void foo(const XX*);") (c-define-type XX (type "XX")) (define gx (c-lambda () XX "___result = gx -- Stephane! coleste(a)videotron.ca (Stephane Le Cornec) +------------------- Made with recycled electrons. --------------------+ | #include <disclaimer.h> Kebekkujin desu. | +---------<http://www.starfiredesign.com/starfire/index.html>----------+

1 0

Re: [gambit-list] crash on callback from WMI event
by Marc Feeley 22 Jui '06

22 Jui '06

On 21-Jun-06, at 1:46 PM, Logan, Patrick D wrote: > Marc, > > The recent Erlang release now supports SMP. > (http://erlang.org/doc/doc-5.5/doc/highlights.html) > > The doc says it runs a "process scheduler" per OS thread or per actual > processor. (Not sure which it actually enforces.) I assume "process > scheduler" amounts to "virtual machine" or enough of the VM to use > thread-specific data. > > Is a conversion of Gambit to something like this a really big or > just a > fairly big effort? 8^) > > -Patrick I estimate the amount of work to about one month of my time (full- time). That's a lot of work. I could probably get a first version working quickly, but with parallelism its the last few bugs that take 90% of the time. There are many critical sections in the code that would need real mutexes in an SMP version. Currently I take advantage of the fact that these mutexes are not needed on monoprocessors (this has implications for development time, i.e. I have to identify all the critical sections, but also in terms of run time, i.e. some operations will become slower in the SMP version unless some costly wizardry is used). Currently SMP is not at the top of my TODO list. I want to get the module distribution system working first and improve the performance of code with no declarations (pure R5RS Scheme code). Marc

2 1

Re: [gambit-list] crash on callback from WMI event
by Logan, Patrick D 22 Jui '06

22 Jui '06

<<Currently SMP is not at the top of my TODO list. I want to get the module distribution system working first and improve the performance of code with no declarations (pure R5RS Scheme code).>> Sounds fine to me. Erlang got along fine without SMP for quite a while. It's nice to know it's not a completely impossible effort if/when its priority warrants. Thanks, Patrick

1 0

crash on callback from WMI event
by Timothy Ritchey 21 Jui '06

21 Jui '06

I am writing a simple test application that calls out to a custom dll to interface with Windows WMI. I am currently trying to get callbacks working for WMI Events. I have the following defines for creating an alert: (define create-alert (c-lambda ((function (wbem-object) int)) void "WMICreateAlert")) (c-define (wmi-alert-callback alert) ("WBEMOBJ") int "wmi_alert_callback" "" (+ 1 2)) For testing I have the callback return an integer that I printf() in the dll. I then call: (create-alert wmi-alert-callback) (read-char) to create the alert, and wait around for something to happen. When the alert is triggered, everything works, and I get back 3 as expected from the scheme callback. However, if I put anything more complex in the body of wmi-alert-callback (for example (write 3), or (length alert)) The application crashes. The debugger is showing that I am not crashing in the callback thread, but rather the main thread at line 3965 in _kernel.c (I have not yet figured out what the actual function name is): #undef ___ARG1 ___SET_R0(___LBL(12)) ___JUMPGENNOTSAFE(___SET_NARGS(0),___FIX(0L)) ___DEF_SLBL(12,___L12__23__23_kernel_2d_handlers) #define ___ARG1 ___R1 { ___SCMOBJ ___RESULT; ... ra1 = ___FP_STK(fp,-___FRAME_STACK_RA); // **** here **** ... fp is reading as 0x00000000 in the debugger. I seems that I am having a problem getting the callback thread to play nicely with the main thread in Gambit. I am out of my element here, so any advice would be appreciated. Is there something I need to do special to get the main Gambit thread to work with callbacks from the Windows subsystem? Cheers, Tim

2 1

Running the X Example
by Sakai, Kazuhiro 21 Jui '06

21 Jui '06

Hi again. This time I am getting the following error when I try the X example of the documentation: $ make examples rm -f bounce.o* ../../gsc/gsc -:="..\/.." -dynamic -cc-options " -I/usr/X11R6/ include" -ld-options " -lSM -lICE -L/usr/X11R6/lib -lX11" bounce.scm rm -f Xlib.o* ../../gsc/gsc -:="..\/.." -dynamic -cc-options " -I/usr/X11R6/ include" -ld-options " -lSM -lICE -L/usr/X11R6/lib -lX11" Xlib.scm ../../gsi/gsi Xlib -e '(load "bounce") (main)' *** ERROR IN (string)(a)1.18 -- Unbound variable: sc#main make: *** [run] Error 70 Again I need your help. Thanks in advance. Regards, Sakai, Kazuhiro

2 3

Re: [gambit-list] Scheme include path error
by Urban Hafner 17 Jui '06

17 Jui '06

On 6/15/06, Stephane Le Cornec <coleste(a)videotron.ca> wrote: > > Last login: Thu Jun 15 14:42:22 on ttyp1 > Welcome to Darwin! > [modemcable202:~] stephane% cd /Users/stephane/dev/gambc40b17/lib/ > [modemcable202:~/dev/gambc40b17/lib] stephane% ls h* > header.scm > [modemcable202:~/dev/gambc40b17/lib] stephane% cat ~/test.scm > (include "header.scm") > [modemcable202:~/dev/gambc40b17/lib] stephane% gsc -flat ~/test.scm > *** ERROR -- Can't find file > "/Users/stephane/dev/gambc40b17/lib/header.scm" > [modemcable202:~/dev/gambc40b17/lib] stephane% Seems like gsc searches in the directory where test.scm is for a header.scmfile. If you move test.scm into ~/dev/gambc40b17/lib the compilation works. Urban -- http://bettong.net

3 3

Running the Web Server Example
by Sakai, Kazuhiro 16 Jui '06

16 Jui '06

Hi. I am getting the following error when I try the Web-continuation based calculator of web-server example from the documentation: The following Scheme exception occurred while processing the request: Unbound variable: base64#u8vector->base64-string Doesn't this example simply work in this version, or am I doing something wrong? I am using the latest on Mac OS X 10.4.6. Regards, Sakai, Kazuhiro

2 2

Scheme include path error
by Stephane Le Cornec 16 Jui '06

16 Jui '06

Last login: Thu Jun 15 14:42:22 on ttyp1 Welcome to Darwin! [modemcable202:~] stephane% cd /Users/stephane/dev/gambc40b17/lib/ [modemcable202:~/dev/gambc40b17/lib] stephane% ls h* header.scm [modemcable202:~/dev/gambc40b17/lib] stephane% cat ~/test.scm (include "header.scm") [modemcable202:~/dev/gambc40b17/lib] stephane% gsc -flat ~/test.scm *** ERROR -- Can't find file "/Users/stephane/dev/gambc40b17/lib/header.scm" [modemcable202:~/dev/gambc40b17/lib] stephane% -- Stephane! coleste(a)videotron.ca (Stephane Le Cornec) +------------------- Made with recycled electrons. --------------------+ | #include <disclaimer.h> Kebekkujin desu. | +---------<http://www.starfiredesign.com/starfire/index.html>----------+

1 0

___VARIANT_to_SCMOBJ
by Timothy Ritchey 15 Jui '06

15 Jui '06

I noticed in gambit.h that there are a host of ___VARIANT_to_SCMOBJ, etc. but that there is also a line: typedef void *___VARIANT; /* not yet implemented */ Is the variant in question referring to the Windows VARIANT/ VARIANTARG? If so, is it still not implemented? I have need of such a beast myself, and am in the process of writing conversion functions for it. If I can save myself the effort, so much the better. If it is not yet implemented, and does in fact refer to the Windows VARIANT structure, would anyone be interested in the code when I am finished? Cheers, Tim

2 1