Février 2009 - Gambit-list - mailman.iro.umontreal.ca

gambit.el color scheme
by lowly coder 15 Fév '09

15 Fév '09

so i code in reverse video mode: text = white, bg = black the gambit.el file is awesome ... except, when I get an error, it highlights all my code in _bright_ orange/yellow (as the bg), with white (un changed, as the fg) -- making the code in error impossible to read / fix i tried grepping through gambit.el for yellow/orange under /i and for possible rgb color schemes, but i'm not finding it; can someone point me at the right place? (in an unmodified gambit.el, like one distributed with the gambit distribution) thanks!

1 1

Re: [gambit-list] c-array
by Marc Feeley 15 Fév '09

15 Fév '09

On 15-Feb-09, at 12:29 AM, lowly coder wrote: > ... wow ... thanks! > > On Sat, Feb 14, 2009 at 9:14 PM, Marc Feeley > <feeley(a)iro.umontreal.ca> wrote: > > On 14-Feb-09, at 11:58 PM, lowly coder wrote: > > question 1: > > Is it possible to write gambit code to produce the equiv of: > int foo[200]; ? > > the current best I have in mind is: > (let ((foo (malloc (* 200 8)))) ... ) Here is another, more generic, approach which uses a macro to generate the various functions: (c-declare #<<end-of-c-declare #include <stdlib.h> end-of-c-declare ) (define-macro (define-array-allocator-and-accessors type) (define (sym . syms) (string->symbol (apply string-append (map symbol->string syms)))) (let ((type-str (symbol->string type))) `(begin (define ,(sym 'alloc- type '-array) (c-lambda (int) (pointer ,type) ,(string-append "___result_voidstar = malloc( ___arg1 * sizeof(" type-str ") );"))) (define ,(sym 'free- type '-array) (c-lambda ((pointer ,type)) void "free( ___arg1 );")) (define ,(sym type '-array-ref) (c-lambda ((pointer ,type) int) ,type "___result = ___arg1[___arg2];")) (define ,(sym type '-array-set!) (c-lambda ((pointer ,type) int ,type) void "___arg1[___arg2] = ___arg3;"))))) ;; test it: (define-array-allocator-and-accessors int) (define-array-allocator-and-accessors double) (define a (alloc-int-array 5)) (define b (alloc-double-array 10)) (int-array-set! a 1 111) (int-array-set! a 2 222) (pp (+ (int-array-ref a 1) (int-array-ref a 2))) ;; 333 (double-array-set! b 1 1.5) (double-array-set! b 2 2.0) (pp (+ (double-array-ref b 1) (double-array-ref b 2))) ;; 3.5 (free-int-array a) (free-double-array b)

2 1

c-array
by lowly coder 15 Fév '09

15 Fév '09

question 1: Is it possible to write gambit code to produce the equiv of: int foo[200]; ? the current best I have in mind is: (let ((foo (malloc (* 200 8)))) ... ) question 2: suppose I have: (c-define-type bar "bar") is there a way to create equiv of: bar foo[200]; ? again, current best I have in mind is: (let ((foo (malloc (* 200 sizeof_bar)))) ... ) question 3: in question 1, is there a way to access foo[i] ? question 4: in question 2, is there a way to access foo[i] ? thanks!

2 1

check vs null
by lowly coder 15 Fév '09

15 Fév '09

suppose I have c code of: [1] foo *bar = get_foo(); [2] if (bar != NULL) { ... } in scheme, I have (let ((bar (get-foo))) [1] [2] <-- how do I write this line in scheme? thanks!

4 4

Dynamic version of (include ...)
by François Magnan 14 Fév '09

14 Fév '09

Hi fellow Gambitters, I have a problem trying to dynamically load scheme files that contains macros. I know that when a file contains a macro, the macro definition must be in the same file as the macro usage. If not, one must use the (include ....) special form to import the macro definition. I would like to be able to use (include ...) inside a function to programmatically include some files like (load ...) can do. For example, if (for-each (lambda (file) (include file)) '("file1" "file2" ...)) *** ERROR IN (console)(a)2.15 -- Filename expected could work! Is there any way to make this work without appending all the files together. Thank you, Francois Magnan

3 2

c-lambda fun
by lowly coder 14 Fév '09

14 Fév '09

~/error$ cat comp.scm (c-declare #<<end typedef struct foo { int x, y; } foo; foo global_foo; //foo* get_foo(const char* s) foo* get_foo(int) { return &global_foo; } foo* get_str_foo(const char* s) { return &global_foo; } int add(int x) { return x + 2; } end ) (c-define-type foo "foo") (c-define-type void* (pointer void)) (c-define-type foo* (pointer foo)) (define add (c-lambda (int) int "add")) (define get-foo (c-lambda (int) foo* "get_foo")); (define get-foo2 (c-lambda (int) void* "get_foo")); (define get-str-foo2 (c-lambda (char-string) void* "get_str_foo")); (define get-str-foo (c-lambda (char-string) foo* "get_str_foo")); ~/error$ cat make.scm #!/usr/local/Gambit-C/bin/gsc -i (compile-file-to-c "comp") (link-flat '("comp") output: "comp.o1.c") (shell-command "g++ -shared -D___DYNAMIC -fPIC comp.c comp.o1.c -o comp.o1") ~/error$ cat int.scm (load "comp") (pp (add 2)) (pp (get-foo2 2)) (pp (get-foo 2)) (pp (get-str-foo2 "hello")) (pp (get-str-foo "world")) Question: what's the difference between get-str-foo2 and get-foo2 that causes one to work and one throw an error?

2 1

instrumenting gambit
by lowly coder 14 Fév '09

14 Fév '09

is there anyway i can instrument the gambit interpreter? in particular, i'd like to have some function foo be called whenever: the interpreter tries to loads a *.scm file (like via include) thanks!

1 0

Current reference to old use of MacGambit
by Bradley Lucier 13 Fév '09

13 Fév '09

He doesn't give the programs he wrote, and doesn't say whether his "new version of Scheme" is Gambit, but the entire post is interesting. Brad http://bit-player.org/2009/long-division

3 3

Help system
by Marc Feeley 13 Fév '09

13 Fév '09

With release v4.4.1 there are a few features which allow documentation to be accessed easily. The "help" procedure is documented on the Gambit wiki here: http://dynamo.iro.umontreal.ca/~gambit/wiki/index.php/Documentation:Procedu… For example, the call (help table->list) will start a browser (the text-only lynx browser by default) which views the section of the Gambit manual documenting the table->list procedure. There is also a REPL comma command for accessing the documentation. The long form ,(h NAME) will view the procedure or special form NAME. The short form ,h will view the procedure which raised the exception which started the REPL. The Gambit wiki now contains the documentation for all the Gambit public procedures and special forms. It is currently a copy of the documentation in the Gambit manual. Of course the advantage of the wiki documentation is that it is editable. I'm hoping that people will contribute to the documentation by adding comments, corrections, examples, and information of interest to other users. The plan is to integrate these contributions back to the Gambit manual on a regular basis. Note that the Gambit manual uses the "texinfo" markup language, and for consistency this is also the markup language that the wiki documentation pages use (I wrote a texinfo to HTML plugin for the wiki which handles <texinfo> ... </texinfo> tags). For the integration to go smoothly the user contributions on the wiki should also be in texinfo format. The Gambit manual in HTML format and the wiki documentation are cross linked. If you click on the procedure or special form name in the HTML Gambit manual you will go to the page on the wiki documenting that procedure or special form. If you click on the name on the wiki you will go to the page in the HTML manual. This is useful when you want to read contextual documentation (like chapter introductions, related procedures, the table of contents, etc). Marc

3 6

[ANN] Gambit-C v4.4.1 released
by gambit＠iro.umontreal.ca 13 Fév '09

13 Fév '09

4 5