Tcl Source Code

Artifact 178feda6c571e2101be5b6f1e8248e876f1268f8:

Attachment "crazyUI.c" to ticket [1055668fff] added by davygrvy 2004-10-28 18:48:26.

---

#include <windows.h>
#define USE_TCL_STUBS
#include "tcl.h"

HMODULE hTcl;

void
LoadTcl (char *lib)
{
    typedef Tcl_Interp *(*tcl_CI_t)(void);
    tcl_CI_t tcl_CI;
    Tcl_Interp *interp;

    hTcl = LoadLibrary(lib);
    tcl_CI = (tcl_CI_t) GetProcAddress(hTcl, "Tcl_CreateInterp");
    interp = tcl_CI();
    Tcl_InitStubs(interp, "8.1", 0);
    Tcl_DeleteInterp(interp);
}

int
Tcl_AppInit (Tcl_Interp *interp)
{
    if (Tcl_Init(interp) == TCL_ERROR) {
	return TCL_ERROR;
    }
    return TCL_OK;
}

int __stdcall
WinMain (HINSTANCE hInstance, HINSTANCE hPrevInstance,
	 LPSTR lpCmdLine, int nCmdShow)
{
    char **argv;
    int argc;

    argc = __argc;
    argv = __argv;
    LoadTcl(argv[1]);
    argv[1] = argv[0];
    AllocConsole();
    SetConsoleTitle("I am a Tcl console");
    Tcl_Main(argc-1, &argv[1], Tcl_AppInit);
    return 0;  // not reached
}