tests/libtcc_test.c

   1 /*
   2  * Simple Test program for libtcc
   3  *
   4  * libtcc can be useful to use tcc as a "backend" for a code generator.
   5  */
   6 #include <stdlib.h>
   7 #include <stdio.h>
   8 #include <string.h>
   9
  10 #include "libtcc.h"
  11
  12 /* this function is called by the generated code */
  13 int add(int a, int b)
  14 {
  15     return a + b;
  16 }
  17
  18 const char hello[] = "Hello World!";
  19
  20 char my_program[] =
  21 "#include <tcclib.h>\n" /* include the "Simple libc header for TCC" */
  22 "extern int add(int a, int b);\n"
  23 "extern const char hello[];\n"
  24 "int fib(int n)\n"
  25 "{\n"
  26 "    if (n <= 2)\n"
  27 "        return 1;\n"
  28 "    else\n"
  29 "        return fib(n-1) + fib(n-2);\n"
  30 "}\n"
  31 "\n"
  32 "int foo(int n)\n"
  33 "{\n"
  34 "    printf(\"%s\\n\", hello);\n"
  35 "    printf(\"fib(%d) = %d\\n\", n, fib(n));\n"
  36 "    printf(\"add(%d, %d) = %d\\n\", n, 2 * n, add(n, 2 * n));\n"
  37 "    return 0;\n"
  38 "}\n";
  39
  40 int main(int argc, char **argv)
  41 {
  42     TCCState *s;
  43     int i;
  44     int (*func)(int);
  45
  46     s = tcc_new();
  47     if (!s) {
  48         fprintf(stderr, "Could not create tcc state\n");
  49         exit(1);
  50     }
  51
  52     /* if tcclib.h and libtcc1.a are not installed, where can we find them */
  53     for (i = 1; i < argc; ++i) {
  54         char *a = argv[i];
  55         if (a[0] == '-') {
  56             if (a[1] == 'B')
  57                 tcc_set_lib_path(s, a+2);
  58             else if (a[1] == 'I')
  59                 tcc_add_include_path(s, a+2);
  60             else if (a[1] == 'L')
  61                 tcc_add_library_path(s, a+2);
  62         }
  63     }
  64
  65     /* MUST BE CALLED before any compilation */
  66     tcc_set_output_type(s, TCC_OUTPUT_MEMORY);
  67
  68     if (tcc_compile_string(s, my_program) == -1)
  69         return 1;
  70
  71     /* as a test, we add symbols that the compiled program can use.
  72        You may also open a dll with tcc_add_dll() and use symbols from that */
  73     tcc_add_symbol(s, "add", add);
  74     tcc_add_symbol(s, "hello", hello);
  75
  76     /* relocate the code */
  77     if (tcc_relocate(s, TCC_RELOCATE_AUTO) < 0)
  78         return 1;
  79
  80     /* get entry symbol */
  81     func = tcc_get_symbol(s, "foo");
  82     if (!func)
  83         return 1;
  84
  85     /* run the code */
  86     func(32);
  87
  88     /* delete the state */
  89     tcc_delete(s);
  90
  91     return 0;
  92 }