[clisp-list] Re: newbie ffi question

[Yaroslav K. <kav...@je...>]

> Foreign function returns the pointer on structure.
> This pointer is necessary for a call of other foreign functions. Also it
> is necessary to read / write fields of this structure in cLisp.
> 
> How?

I understand how read fields:

(ffi:def-c-struct Tcl-Interp
  (result ffi:c-string)
  (freeProc *Tcl-FreeProc)
  (errorLine ffi:int))

(ffi:def-call-out Tcl-CreateInterp
  (:name "Tcl_CreateInterp")
  (:library *tcl-shared-lib*)
  (:return-type ffi:c-pointer))

[2]> (setq intr (Tcl-CreateInterp))
#<FOREIGN-ADDRESS #x014ECFE8>

[3]> (with-c-var (pointer 'c-pointer intr)
                 (cast pointer '(c-ptr Tcl-Interp)))
#S(TCL-FFI:Tcl-Interp :RESULT "" :|FREEpROC| NIL :|ERRORlINE| 0)

How write?

Thanks.

-- 
WBR, Yaroslav Kavenchuk.