sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

example: use only one file (test.c)

Browse source
This commit is contained in:
Daniel Kochmanski 2017-07-22 13:08:09 +02:00
parent 4bbc079341
commit 046f7e947f
2 changed files with 2 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
examples/asdf_with_dependence/test-static.c
View file

@ -1,14 +0,0 @@
#include <ecl/ecl.h>
int main (int argc, char **argv) {
extern void init_lib_EXAMPLE_WITH_DEP__ALL_SYSTEMS(cl_object);
cl_boot(argc, argv);
ecl_init_module(NULL, init_lib_EXAMPLE_WITH_DEP__ALL_SYSTEMS);
/* do things with the Lisp library */
cl_eval(c_string_to_object("(example:test-function 5)"));
cl_shutdown();
return 0;
}

4
examples/asdf_with_dependence/test.c
View file

@ -1,10 +1,10 @@
#include <ecl/ecl.h>
int main (int argc, char **argv) {
extern void init_dll_EXAMPLE_WITH_DEP__ALL_SYSTEMS(cl_object);
extern void init_example(cl_object);
cl_boot(argc, argv);
ecl_init_module(NULL, init_dll_EXAMPLE_WITH_DEP__ALL_SYSTEMS);
ecl_init_module(NULL, init_example);
/* do things with the Lisp library */
cl_eval(c_string_to_object("(example:test-function 5)"));