TCC

Tcc sample

Tcc sample is included in package Tcc Demo Gui.

This sample may serve as a base for any program that could use Tcc. It is explained in this chapter.

#include <CtrlLib/CtrlLib.h>

using namespace Upp;

#define LAYOUTFILE <Tcc Demo Gui/Tcc Demo Gui.lay>

#include <CtrlCore/lay.h>

class Tcc_Demo : public WithMainLayout<TopWindow> {

public:

    void RunProgram();

    void OpGetExe_Action();

    typedef Tcc_Demo CLASSNAME;

    Tcc_Demo();

};

It is always necessary to include Tcc.h

#include "Tcc/Tcc.h"

This function will be called from the Tcc program in memory.

double plus(double a, double b)

{

   return a + b;

}

Program to be run in memory source code. '\n' are not necessary.

char my_program_in memory[] =

If AddIncludePath() is not used TCC will not find probably the #include files

        "#include <stdio.h>\n"

        "#include <math.h>\n"

        "\n"

As with any C source, library functions have to be declared.

        "double plus(double a, double b);\n"

        "\n"

This is the function called from the main program.

As many functions as necessary can be called from the main program.

        "double pow2(double d)\n"

        "{\n"

        "    return (d*d);\n"

        "}\n"

        "\n"

Remember that all static and global variables will be lost between function calls. All durable storage has to be located in the main program.

There is no need for any "main()" function.

        "double test(double a, char *str)\n"

        "{\n"    

        "    if (a < 0.)\n"

        "        throw(\"Argument is negative!\");\n"    

        "    double ret = 0;\n"

        "    int i;\n"

        "    for (i = 0; i < 10000000; ++i)\n"    

        "        ret += 0.000000001*pow2(sqrt(plus(a, 10)));\n"

        "    snprintf(str, 1024, \"The result is %f\", ret);\n"

        "    return ret;\n"

        "}";

Program to be copied to an executable file source code

char my_program_in_file[] =

        "#include <stdio.h>\n"

        "\n"

        "int fib(n)\n"

        "{\n"

        "    if (n <= 2)\n"

        "        return 1;\n"

        "    else\n"

        "        return fib(n-1) + fib(n-2);\n"

        "}\n"

        "\n"

        "int main(int argc, char **argv)\n"

        "{\n"

        "    int n = 30;\n"

        "\n"

        "    printf(\"\\nCompute nth Fibonacci number fib(%d) = \", n);\n"

        "    printf(\"%d\", fib(n));\n"

        "\n"

        "    printf(\"\\nPress a key to end\");\n"

        "    getchar();\n"

        "    return 0;\n"

        "}";

void Tcc_Demo::RunProgram()

{

    try {

In Windows. .dll has been copied to windows/system folder. If not it has to be defined in the Tcc constructor.

        Tcc tcc;

    

Here it is defined what to do with the compiled program

        if (OpGetExe)

            tcc.SetOutputExe();

        else

            tcc.SetOutputMemory();

Set here the include and library directories located in Tcc/lib/include and Tcc/lib/lib

        tcc.AddIncludePath(EditIncludePath.GetData().ToString());

        tcc.AddLibraryPath(EditLibsPath.GetData().ToString());

    

This order has to be followed:

1. Compile source C script

        tcc.Compile(SourceCode.GetData().ToString());

2.1 If compiled and run in memory

        if (!OpGetExe) {

2.1.1 Add all functions in the main program that can be called from the C script.

As many functions as necessary can be called from the main program.

Remember to declare them in the C script

            tcc.AddSymbol("plus", (void *)&plus);

2.1.2 Link the C script to the main program functions

            tcc.Link();

2.1.3 Get the addresses of all C Script functions to be called from the main program

            double (*mytest1)(double, char *) = (double (*)(double, char *))tcc.GetSymbol("test");

        

            char str[1024];

2.1.4 Call the C script functions

            double res = mytest1(90, str);

            PromptOK("The result for Test is " + FormatDouble(res) + ". " + str);

2.2 If compiled to an executable file

        } else {

2.2.2 Link the C script to the executable file

            tcc.Link(EditExeFile.GetData().ToString());

            PromptOK("Program compiled in " + DeQtf(EditExeFile.GetData().ToString()));

        }

    } catch(Exc err){

3. Catch the compiling, linking and running (if run in memory) errors.

        Exclamation(DeQtfLf(err));

    }

}

void Tcc_Demo::OpGetExe_Action()

{

    switch (OpGetExe) {

        case 0:

            EditExeFile.Enable(false);

            SourceCode.SetData(my_program_in_memory);

            break;

        default:

            EditExeFile.Enable(true);

            SourceCode.SetData(my_program_in_file);

    }

}

Tcc_Demo::Tcc_Demo()

{

    CtrlLayout(*this, "Tcc Demo");

    ButRun.WhenPush = THISBACK(RunProgram);

    OpGetExe.WhenAction = THISBACK(OpGetExe_Action);

    OpGetExe = 0;

    OpGetExe_Action();

#if defined(PLATFORM_WIN32)

    EditExeFile.SetData(AppendFileName(GetHomeDirectory(), "tccdemo.exe"));

#else

    EditExeFile.SetData(AppendFileName(GetHomeDirectory(), "tccdemo"));

#endif

    EditIncludePath <<= "/mnt/C/Desarrollo/Aplicaciones/zlibs/Tcc/lib/include";//"...put here right path.../Tcc/lib/include";        

    EditLibsPath <<= "/mnt/C/Desarrollo/Aplicaciones/zlibs/Tcc/lib/lib";//"...put here right path.../Tcc/lib/lib";

    SourceCode.SetFont(Courier(12));

    Sizeable();

}

GUI_APP_MAIN

{

    Tcc_Demo().Run();

}

This is the sample running.