tinycc/tests/libtcc_test.c

93 lines
2.1 KiB
C
Raw Normal View History

2002-05-14 02:58:22 +04:00
/*
* Simple Test program for libtcc
*
* libtcc can be useful to use tcc as a "backend" for a code generator.
*/
#include <stdlib.h>
#include <stdio.h>
2009-04-18 15:17:27 +04:00
#include <string.h>
2002-05-14 02:58:22 +04:00
2004-10-08 01:11:43 +04:00
#include "libtcc.h"
2002-05-14 02:58:22 +04:00
/* this function is called by the generated code */
int add(int a, int b)
{
return a + b;
}
const char hello[] = "Hello World!";
2009-04-18 15:17:27 +04:00
char my_program[] =
"#include <tcclib.h>\n" /* include the "Simple libc header for TCC" */
"extern int add(int a, int b);\n"
"extern const char hello[];\n"
2002-05-14 02:58:22 +04:00
"int fib(int n)\n"
"{\n"
" if (n <= 2)\n"
" return 1;\n"
" else\n"
" return fib(n-1) + fib(n-2);\n"
"}\n"
"\n"
"int foo(int n)\n"
2002-05-14 02:58:22 +04:00
"{\n"
" printf(\"%s\\n\", hello);\n"
2002-05-14 02:58:22 +04:00
" printf(\"fib(%d) = %d\\n\", n, fib(n));\n"
" printf(\"add(%d, %d) = %d\\n\", n, 2 * n, add(n, 2 * n));\n"
" return 0;\n"
"}\n";
int main(int argc, char **argv)
{
TCCState *s;
int i;
int (*func)(int);
2009-04-18 15:17:27 +04:00
2002-05-14 02:58:22 +04:00
s = tcc_new();
if (!s) {
fprintf(stderr, "Could not create tcc state\n");
exit(1);
}
2009-04-18 15:17:27 +04:00
/* if tcclib.h and libtcc1.a are not installed, where can we find them */
for (i = 1; i < argc; ++i) {
char *a = argv[i];
if (a[0] == '-') {
if (a[1] == 'B')
tcc_set_lib_path(s, a+2);
else if (a[1] == 'I')
tcc_add_include_path(s, a+2);
else if (a[1] == 'L')
tcc_add_library_path(s, a+2);
}
}
2009-04-18 15:17:27 +04:00
/* MUST BE CALLED before any compilation */
2002-08-18 17:24:19 +04:00
tcc_set_output_type(s, TCC_OUTPUT_MEMORY);
2009-04-18 15:17:27 +04:00
if (tcc_compile_string(s, my_program) == -1)
return 1;
2002-05-14 02:58:22 +04:00
/* as a test, we add symbols that the compiled program can use.
2009-04-16 23:50:43 +04:00
You may also open a dll with tcc_add_dll() and use symbols from that */
tcc_add_symbol(s, "add", add);
tcc_add_symbol(s, "hello", hello);
2009-04-18 15:17:27 +04:00
/* relocate the code */
if (tcc_relocate(s, TCC_RELOCATE_AUTO) < 0)
return 1;
2002-05-14 02:58:22 +04:00
/* get entry symbol */
2009-04-16 23:50:43 +04:00
func = tcc_get_symbol(s, "foo");
if (!func)
return 1;
2003-07-20 23:19:58 +04:00
/* run the code */
func(32);
2002-05-14 02:58:22 +04:00
/* delete the state */
tcc_delete(s);
2002-05-14 02:58:22 +04:00
return 0;
}