void Tk_MainThread ( int argc, char **argv ) { char *p; Tcl_SetPanicProc(WishPanic); /* * Set up the default locale to be standard "C" locale so parsing is * performed correctly. */ setlocale(LC_ALL, "C"); /* * Forward slashes substituted for backslashes. */ for (p = argv[0]; *p != '\0'; p++) { if (*p == '\\') { *p = '/'; } } #ifdef TK_LOCAL_MAIN_HOOK TK_LOCAL_MAIN_HOOK(&argc, &argv); #endif Tk_Main(argc, argv, Tcl_AppInit); }
int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdLine, int nCmdShow) { char **argv; int argc; char *p; Tcl_SetPanicProc(BwishPanic); /* * Create the console channels and install them as the standard channels. * All I/O will be discarded until Tk_CreateConsoleWindow is called to * attach the console to a text widget. */ consoleRequired = TRUE; /* * Set up the default locale to be standard "C" locale so parsing is * performed correctly. */ setlocale(LC_ALL, "C"); /* * Get our args from the c-runtime. Ignore lpszCmdLine. */ argc = __argc; argv = __argv; /* * Forward slashes substituted for backslashes. */ for (p = argv[0]; *p != '\0'; p++) { if (*p == '\\') { *p = '/'; } } bu_setprogname(argv[0]); #ifdef TK_LOCAL_MAIN_HOOK TK_LOCAL_MAIN_HOOK(&argc, &argv); #endif Tk_Main(argc, argv, TK_LOCAL_APPINIT); return 1; }
int main(int argc, char* argv[]) { module_path = GetPathFromModuleName( argv[0] ); Tcl_Interp* g_pInterp = Tcl_CreateInterp(); Tcl_SetPanicProc(WishPanic); Tcl_FindExecutable(argv[0]); MainEx(argc, argv, Tcl_AppInit, g_pInterp, "cvlkdemo.tcl"); cvcamExit(); return 0; }
int main( int argc, char **argv) { Tcl_SetPanicProc(WishPanic); /* * Set up the default locale to be standard "C" locale so parsing is * performed correctly. */ setlocale(LC_ALL, "C"); /* * Console emulation widget not required as this entry is from the * console subsystem, thus stdin,out,err already have end-points. */ consoleRequired = FALSE; Tk_Main(argc, argv, Tcl_AppInit); return 0; }