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

c-structure accessor macro
by Isaac Freeman 25 Sep '09

25 Sep '09

In the spirit of wanting to learn not only the C FFI, but also gambit macros, I decided to write a macro which generates accessors for C structs. I decided to post it here for others to review, critique, etc. Any feedback on style, methodology, etc is welcome. Also, I put it on pastebin as well as in the e-mail body: pastebin: http://paste.lisp.org/display/87730 (define-macro (define-c-struct name . members) ;(define (define-c-struct-test name members) ; -- internal utility functions (define (res-type-gen t) (let ((real-type (if (list? t) (car t) t))) (cond ((member real-type '(union type pointer nonnull-pointer function nonnull-function)) "___result_voidstar = ") ((member real-type '(pointer nonnull-pointer function nonnull-function)) "___result_voidstar = (void*)") ((eq? real-type 'struct) "___result_voidstar = &") (else "___result = ")))) (define (mem-acc-gen name-s mem type) `(define ,(string->symbol (string-append name-s "." mem)) (c-lambda ((pointer ,name-s)) ,type ,(string-append (res-type-gen type) "___arg1->" mem ";")))) ; -- expansion (let* ((name-s (symbol->string name))) `(begin ,@(let loop ((ms members)) (let* ((mem (symbol->string (caar ms))) (type (cadar ms)) (res-type (res-type-gen type))) (cons (mem-acc-gen name-s mem type) (if (null? (cdr ms)) '() (loop (cdr ms))))))))) -- Isaac Freeman memotype (at) gmail.com "The diversity of mankind is a basic postulate of our knowledge of human beings. But if mankind is diverse and individuated, then how can anyone propose equality as an ideal? Every year, scholars hold Conferences on Equality and call for greater equality, and no one challenges the basic tenet. But what justification can equality find in the nature of man? If each individual is unique, how else can he be made 'equal' to others than by destroying most of what is human in him and reducing human society to the mindless uniformity of the ant heap?" --Murray N. Rothbard

1 0

Small patch
by Bradley Lucier 25 Sep '09

25 Sep '09

Marc: To prepare to make some changes to _num.scm, I needed to figure out what some of the basic bignum functions were, so I decided to document them (what an incredible idea!). Also, I made two small changes to abs and magnitude; now if a ratnum p/q is nonnegative then (eq? p/q (abs p/q)) => #t (eq? p/q (magnitude p/q) => #t Brad

1 0

Performance tuning
by Andrew Whaley 22 Sep '09

22 Sep '09

Hi Marc, Is there a document anywhere that describes how to performance tune Gambit ? I've been writing some genetic programming code which Gambit has been great for for small examples but now I'm running into severe performance problems. I'm tryin to load a large CSV file of approximately 40MB into a list of records but I gave up on it when it still hadn't finished after 30 minutes. When its loaded, I'll need to iterate over the full set around 500k times which I'm expecting taking a while but hopefully no more than a couple of days. I'm using the interpreter at the moment so can try compiling but is there anything else that I can do ? Thanks Andrew

2 2

define-prim, ##, and macro-
by Taylor R Campbell 21 Sep '09

21 Sep '09

Why is Gambit's source code so completely full of DEFINE-PRIM, and names beginning with ## or MACRO-, some of which are macros and some of which are essentially just procedures implemented as macros? This makes the code very hard to follow, because it is visually distracting for every nth token to be ## or MACRO and because so many macros make it hard to remember what constructs follow different evaluation rules.

2 1

Gambit on LLVM uploaded to Dumping Grounds
by Harold Ancell 20 Sep '09

20 Sep '09

I've uploaded the experimental partial back-end for Gambit using LLVM by Arnaud Bergeron and Mathieu Larose to the Dumping Grounds: http://dynamo.iro.umontreal.ca/~gambit/wiki/index.php/Dumping_Grounds#Langu… or http://tinyurl.com/mcae7x This is the README file: This is an experimental partial back-end for Gambit using LLVM. It does not compile regular scheme because it does not implement most primitives and types. It was developed with version 2.3 of LLVM and was tested on a 32-bit PPC. It should work on anything 32-bits. To make it work on 64-bits, all that should be required is to modify the lib/llvm_base32.ll file. Add this to a bootstrapped gambit source, since all the .scm files need to be compiled to C. The runtime part does not auto-compile itself, you have to do that manually, as well as linking to it. At the bottom of the file gsc/_t-llvm.scm are instructions on how to compile a file using the new backend. (The above text was compiled from emails by Arnaud Bergeron to the Gambit mailing list and myself (Harold Ancell).) Enjoy. - Harold

1 0

Wiki changes
by Marc Feeley 19 Sep '09

19 Sep '09

I have changed the navigation bar of the Gambit Wiki to now include a "Google search" function. By default it searches the Gambit mailing- list, but the whole web can be searched also. Marc

2 3

Using Gambit-C Scheme to Create Small, Efficient Native Applications
by Marc Feeley 19 Sep '09

19 Sep '09

Here's an tutorial article that recently appeared on DevX about using Gambit-C: http://www.devx.com/opensource/Article/42778 Marc

1 0

Re: [gambit-list] stop top
by Marc Feeley 17 Sep '09

17 Sep '09

On 17-Sep-09, at 3:38 PM, David St-Hilaire wrote: >> How about ctrl-C? >> >> Marc > > Well I guess it works in the terminal, but not in an emacs > buffer... :'( In emacs it is ctrl-C ctrl-C . Marc

2 2

stop top
by David St-Hilaire 17 Sep '09

17 Sep '09

Simple question: How do I stop the (top) procedure to print info about the currently running threads? o_O Thx! David

2 1

C-FFI type issues
by Isaac Freeman 17 Sep '09

17 Sep '09

I've been banging my head on this one for days now... I've even tried looking at the resulting C code and passing it through the CPP and indent... I can't figure out where this is complaining about and why... http://paste.lisp.org/display/87211 Any hints would be great... -- Isaac Freeman memotype (at) gmail.com "The diversity of mankind is a basic postulate of our knowledge of human beings. But if mankind is diverse and individuated, then how can anyone propose equality as an ideal? Every year, scholars hold Conferences on Equality and call for greater equality, and no one challenges the basic tenet. But what justification can equality find in the nature of man? If each individual is unique, how else can he be made 'equal' to others than by destroying most of what is human in him and reducing human society to the mindless uniformity of the ant heap?" --Murray N. Rothbard

3 2