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

why is the following non-deterministic (and how can I make it
by lowly coder 28 Mar '09

28 Mar '09

Log: ~/vis/test:$ gsi test.scm "~\"GNU gdb 6.8-debian\\n\"" "~\"Copyright (C) 2008 Free Software Foundation, Inc.\\n\"" "~\"License GPLv3+: GNU GPL version 3 or later < http://gnu.org/licenses/gpl.html>\\n\"" "~\"This is free software: you are free to change and redistribute it.\\n\"" "~\"There is NO WARRANTY, to the extent permitted by law. Type \\\"show copying\\\"\\n\"" "~\"and \\\"show warranty\\\" for details.\\n\"" "~\"This GDB was configured as \\\"x86_64-linux-gnu\\\".\\n\"" "(gdb) " ~/vis/test:$ gsi test.scm ~/vis/test:$ gsi test.scm ~/vis/test:$ gsi test.scm "~\"GNU gdb 6.8-debian\\n\"" "~\"Copyright (C) 2008 Free Software Foundation, Inc.\\n\"" "~\"License GPLv3+: GNU GPL version 3 or later < http://gnu.org/licenses/gpl.html>\\n\"" "~\"This is free software: you are free to change and redistribute it.\\n\"" "~\"There is NO WARRANTY, to the extent permitted by law. Type \\\"show copying\\\"\\n\"" "~\"and \\\"show warranty\\\" for details.\\n\"" "~\"This GDB was configured as \\\"x86_64-linux-gnu\\\".\\n\"" "(gdb) " ~/vis/test:$ gsi test.scm "~\"GNU gdb 6.8-debian\\n\"" "~\"Copyright (C) 2008 Free Software Foundation, Inc.\\n\"" "~\"License GPLv3+: GNU GPL version 3 or later < http://gnu.org/licenses/gpl.html>\\n\"" "~\"This is free software: you are free to change and redistribute it.\\n\"" "~\"There is NO WARRANTY, to the extent permitted by law. Type \\\"show copying\\\"\\n\"" "~\"and \\\"show warranty\\\" for details.\\n\"" "~\"This GDB was configured as \\\"x86_64-linux-gnu\\\".\\n\"" "(gdb) " ~/vis/test:$ gsi test.scm ~/vis/test:$ Code: ~/vis/test:$ cat test.scm (define p (open-process (list path: "gdb" arguments: '("--interpreter=mi2")))) (define (rr) (if (char-ready? p) (pp (read-line p)))) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) (rr) Questions: 1) Why is this non-deterministic? (subject to how fast gdb prints out its data?) 2) How can I make it deterministic? (I'd prefer something better than "sleep for 0.5 seconds") Thanks!

2 1

how can i make the following be non-blocking io?
by lowly coder 28 Mar '09

28 Mar '09

~/vis/test:$ cat test.scm (define p (open-process (list path: "gdb" arguments: '("--interpreter=mi2")))) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) (pp (read-line p)) ... why does this block? and how can I make it non-blocking? I've searched through the gambit-c.txt file, but I can't find ways of manipulating it either during reading or the port itself

1 0

ps: OpenGL support for Gambit
by Eduardo Cavazos 28 Mar '09

28 Mar '09

Hello, The OpenGL library for Gambit that comes with Abstracting is a hacked version of the one provided by David St-Hilaire on the wiki. I just wanted to say, Thanks David! Ed

2 1

Abstracting
by Eduardo Cavazos 28 Mar '09

28 Mar '09

Hello, Abstracting is a Scheme framework with an emphasis on OpenGL programming. Features: * Bindings to GL and GLUT * Runs on Ypsilon, Larceny, Chicken, and Gambit * Collection of examples Github page: http://github.com/dharmatech/abstracting Git repository: git://github.com/dharmatech/abstracting.git To begin, follow the directions in the README. Feedback welcome! I'm looking to add more examples. If you write a cool demo, you are welcome to submit it! :-) News: * Support for Gambit was recently added. In order to do so, much of the framework was redesigned to accomodate separate compilation of the 'libs' in a proper manner. This resulted in a much cleaner system. The new design also benefited Chicken, another Scheme-to-C based implementation. * Usages of 'define-macro' have been elimnated or replaced by 'syntax-rules' based macros. This will facilitate support for Chicken 4.0. Ed

1 0

Why MIT switched from Scheme to Python
by Bradley Lucier 26 Mar '09

26 Mar '09

The original content is from another blog, but this excerpt is of particular interest ... Brad http://www.wisdomandwonder.com/link/2110/why-mit-switched-from-scheme- to-python

5 4

REPL via TCP/IP
by vasil 24 Mar '09

24 Mar '09

Last day I wrote simple remote REPL functionality. It may be useful for someone, who like to work with gambit on remote basis. See attachment for details. Vasil.

2 3

redefine macro variable
by Eduardo Cavazos 24 Mar '09

24 Mar '09

Sorry if this is an FAQ... Is there any way around this: > (define time 0) *** ERROR IN (console)(a)1.9 -- Macro name can't be used as a variable: time > Section 6.3 of the manual documents 'define-macro' but it doesn't go into this. Ed

2 1

passing an f64vector
by Eduardo Cavazos 23 Mar '09

23 Mar '09

Hello, The type of the second parameter of gl function glGetDoublev is GLdouble*. So, I'd like to be able to pass an f64vector as that argument. The declaration of glGetDoublev is: void glGetDoublev( GLenum pname, GLdouble *params ) So something along these lines I guess: (define glGetDoublev (c-lambda (GLenum scheme-object) void " glGetDoublev ( ___arg1 , UNPACKTHEVEC( ___arg2 ) ) ; ")) Except with the proper unpacking of ___arg2. Any suggestions as to what macro to use there? I'm looking through gambit.h... Ed

2 2

gambit introspection
by Jose A. Ortega Ruiz 22 Mar '09

22 Mar '09

hi, i'm working in a scheme-emacs interaction environment providing a subset of the capabilities present in slime. although i'm using guile as the initially supported scheme, the framework is generic on the emacs side and it shouldn't be difficult to add support for other schemes. i'd like to add gambit to the party, but i'm having a hard time finding procedures to obtain metadata about objects living in a running interpreter instance. so far, i've only found ##procedure-locat. in addition, it'd be nice to have: - general location info (the equivalent of ##procedure-locat for macros and variables) - a way of getting all defined bindings starting with a prefix (gsi's REPL does this, but i haven't found how) - a way of getting the arity and parameter names for procedures and macros - a way of getting a procedure's callers and callees - macroexpand: i see there's a family of ##macro-* procedures, but i'm not sure how to use them - metadata associated with namespaces - any other metadata associated with objects that could be used in an inspector although i haven't had the time, i'm sure gambit.el will give me enough clues to interact with the debugger. documentation-wise, my framework knows how to use info docs, so, as long as there're no plans to phase out texinfo as one of gambit's documentation formats, i'm ok on that front too. my apologies if this information is already available somewhere: i'll appreciate it if you send me RTFM with accompanying pointers. thanks a lot for your time. cheers, jao

6 7

current-object-file
by Eduardo Cavazos 22 Mar '09

22 Mar '09

Hello, This is the procedure I'm using to find the current object file for a given scheme file. (define (current-object-file scheme-file) (let ((object-file? (let ((object-file-prefix (string-append (path-strip-directory (path-strip-extension scheme-file)) ".o"))) (lambda (file) (string-prefix? object-file-prefix file))))) (let ((object-files (sort-list (filter object-file? (directory-files (path-directory scheme-file))) string>))) (if (null? object-files) #f (first object-files))))) Comments welcome. Ed

2 4