libera/#ecl - IRC Chatlog
Search
1:48:51
psilord
I was curious about how to expose C functions, through the C interface, into ECL's lisp environment.
1:49:43
psilord
Basically, if I have a 'cl_object foo(cl_object a, cl_object b)` C function, how to I insert it into ECL environment so on the lisp side I can call (foo 1 2) and get back whatever cl_object foo created and returned?
1:50:21
psilord
There is a chunk of code one can find on the internet using ecl_def_c_function, but it is undocumented and doesn't immediately look like it handles a return value.
1:51:17
psilord
ALso to be clear, this is in the C code itself, I'd like to expose the C function into ECL's lisp environment.
1:52:34
psilord
I don't prefer a solution where I have to write lisp FFI forms into a lisp file, lead it, and expose the C functions that way.
2:28:39
psilord
Ah, it seems to be the case that the C function pointer given to ecl_def_c_function must return a cl_object. If this is the case, then this makes sense to me.
7:33:41
jackdaniel
psilord: that's the interface you are looking for, yes. note that return values are a subject of certain conventions. most notably the number of returned values is set in the environment
7:34:21
jackdaniel
i.e (env)->nvalues = 2; (env)->values[0] = val1; (env->values[1] = val2; return val1;
7:35:18
jackdaniel
it is not to say that you can't register an arbitrary function to def_cfunction, but then the last set value of nvalues and values will pertain
7:35:50
jackdaniel
in that case you may be surprised that (let ((foo (my-c-fun))) ...) for some reason returns NIL