Re: how to access c-array member in c-structure?

[Taylan Ulrich Bayırlı/Kammer]

Park SungMin <address@hidden> writes:

> (let ((c-type (list int int (make-list 20000 int))))
>     (parse-c-struct
>      ((pointer->procedure
>        c-type
>        (dynamic-func "make_foo" libfoo)
>        (list int int))
>       4 11)
>      c-type))
>
> also run well…but seems less effective.(if more bigger size…2000000??) 

You could create the type object once at program startup and use it
many times.

    (define foo-type
      (list int int (make-list 2000000 int)))
    
    (define make-foo
      (pointer->procedure foo-type
                          (dynamic-func "make_foo" libfoo)
                          (list int int)))
    
    (parse-c-struct (make-foo 4 11) foo-type)
    (parse-c-struct (make-foo 12 5) foo-type)
    (parse-c-struct (make-foo 8 91) foo-type)
    ...

Taylan