On Sat, Aug 18, 2012 at 7:09 AM, Simon Ortiz <[email protected]> wrote:
> I would like to reproduce the functionality of ffi-test in cffi-test. > That is, I would like to produce a static library that uses CFFI to > access foreign functions. > > I'm sure I'm missing something in cffi-test. I've tried different ways > of compiling, but with no success. > Everything is working fine now. I attach the files to reproduce. Juanjo -- Instituto de Física Fundamental, CSIC c/ Serrano, 113b, Madrid 28006 (Spain) http://juanjose.garciaripoll.googlepages.com
build.lisp
Description: Binary data
cffi-test-package.lisp
Description: Binary data
cffi-test.asd
Description: Binary data
cffi-test.lisp
Description: Binary data
#include <stdio.h>
#include <ecl/ecl.h>
void
test(const char* input){
cl_object output = si_safe_eval(3, c_string_to_object(input),
Cnil, MAKE_FIXNUM(-1));
if(FIXNUMP(output)){
int val = ecl_to_int32_t(output);
if(val == -1) printf("%s => fail!\n", input);
} else {
double val = ecl_to_double(output);
printf("%s => %f\n", input, val);
}
}
int
main(int argc, char **argv)
{
cl_boot(argc, argv);
extern void main_lib_CFFI_TEST_MONO(cl_object);
ecl_init_module(OBJNULL, main_lib_CFFI_TEST_MONO);
test("(cffi-test:c-sine 1.0)");
test("(cffi-test:ff-c-sine 1.0)");
cl_shutdown();
return 0;
}
makefile
Description: Binary data
------------------------------------------------------------------------------ Everyone hates slow websites. So do we. Make your web apps faster with AppDynamics Download AppDynamics Lite for free today: http://p.sf.net/sfu/appdyn_sfd2d_oct
_______________________________________________ Ecls-list mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/ecls-list
