void main( int argc, /* Number of arguments. */ char **argv) /* Array of argument strings. */ { char *newArgv[2]; if (MacintoshInit() != TCL_OK) { Tcl_Exit(1); } argc = 1; newArgv[0] = "Wish"; newArgv[1] = NULL; /* Tk_Main is actually #defined to * Tk_MainEx(argc, argv, Tcl_AppInit, Tcl_CreateInterp()) * Unfortunately, you also HAVE to call Tcl_FindExecutable * BEFORE creating the first interp, or the tcl_library will not * get set properly. So we call it by hand here... */ Tcl_FindExecutable(newArgv[0]); Tk_Main(argc, newArgv, Tcl_AppInit); }
int main(int argc, char **argv) { /* * The following #if block allows you to change the AppInit function by * using a #define of TCL_LOCAL_APPINIT instead of rewriting this entire * file. The #if checks for that #define and uses Tcl_AppInit if it * doesn't exist. */ #ifndef TK_LOCAL_APPINIT #define TK_LOCAL_APPINIT Tcl_AppInit #endif extern int TK_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); /* * The following #if block allows you to change how Tcl finds the startup * script, prime the library or encoding paths, fiddle with the argv, * etc., without needing to rewrite Tk_Main() */ #ifdef TK_LOCAL_MAIN_HOOK extern int TK_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv)); TK_LOCAL_MAIN_HOOK(&argc, &argv); #endif #ifdef BWISH Tk_Main(argc, argv, TK_LOCAL_APPINIT); #else Tcl_Main(argc, argv, TK_LOCAL_APPINIT); #endif return 0; /* Needed only to prevent compiler warning. */ }
int main(int argc, char **argv) { #ifdef EFENCE extern int EF_ALLOW_MALLOC_0; EF_ALLOW_MALLOC_0 = 1; #endif mpi_init(&argc, &argv); /* register handler for SIGINT */ signal(SIGINT, sigint_handler); if (this_node == 0) { /* master node */ #ifdef FORCE_CORE /* core should be the last exit handler (process dies) */ atexit(core); #endif atexit(mpi_stop); #ifdef TK Tk_Main(argc, argv, appinit); #else Tcl_Main(argc, argv, appinit); #endif } else { /* slave node */ on_program_start(0); mpi_loop(); } return 0; }
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 main( int argc, /* Number of command-line arguments. */ char **argv) /* Values of command-line arguments. */ { #ifdef TK_LOCAL_MAIN_HOOK TK_LOCAL_MAIN_HOOK(&argc, &argv); #endif Tk_Main(argc, argv, TK_LOCAL_APPINIT); return 0; /* Needed only to prevent compiler warning. */ }
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; }
// InitTclTk: // does Tcl/Tk setup, // hands over control to a TK Mainloop, // void animTcl::InitTclTk(int argc, char **argv) { if (FALSE) { UsingTk = FALSE ; Tcl_Main _ANSI_ARGS_(argc, argv, Tcl_AppInit); } else { UsingTk = TRUE ; Tk_Main (argc, argv, (Tcl_AppInitProc*) Tcl_AppInit); } }
void main( int argc, char **argv) { char *newArgv[2]; if (MacintoshInit() != TCL_OK) { Tcl_Exit(1); } argc = 1; newArgv[0] = "TclKit"; newArgv[1] = NULL; Tcl_FindExecutable(newArgv[0]); Tk_Main(argc, newArgv, TclKit_AppInit); }
int main(int argc, char *argv[]) { ATerm bottomOfStack; ATBinit(argc, argv, &bottomOfStack); handle_args(argc, argv); #ifdef USE_TIDE init_tide_support(argc, argv); #endif signals_set(); Tk_Main(argc, argv, Tcl_AppInit); return 0; /* Prevent compiler warning */ }
static void start_panel(void) { char *argv[128]; int argc; argc = 0; argv[argc++] = "-f"; argv[argc++] = TKPROGPATH; if (ctl.trace_playing) { argv[argc++] = "-mode"; argv[argc++] = "trace"; } /* call Tk main routine */ Tk_Main(argc, argv, AppInit); exit(0); }
int main(int argc, char **argv) { /* first thing to do: fire up MPI */ mpi_init(&argc, &argv); on_program_start(); if (this_node == 0) { /* master node */ #ifdef TK Tk_Main(argc, argv, tcl_appinit); #else Tcl_Main(argc, argv, tcl_appinit); #endif } else { /* slave node */ mpi_loop(); } 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; }
/* * sim_main - main simulator routine. This function is called from the * main() routine in the HCL file. */ int sim_main(int argc, char **argv) { int i; char c; char *myargv[MAXARGS]; /* Parse the command line arguments */ while ((c = getopt(argc, argv, "htgl:v:")) != -1) { switch(c) { case 'h': usage(argv[0]); break; case 'l': instr_limit = atoi(optarg); break; case 'v': verbosity = atoi(optarg); if (verbosity < 0 || verbosity > 2) { printf("Invalid verbosity %d\n", verbosity); usage(argv[0]); } break; case 't': do_check = TRUE; break; case 'g': gui_mode = TRUE; break; default: printf("Invalid option '%c'\n", c); usage(argv[0]); break; } } /* Do we have too many arguments? */ if (optind < argc - 1) { printf("Too many command line arguments:"); for (i = optind; i < argc; i++) printf(" %s", argv[i]); printf("\n"); usage(argv[0]); } /* The single unflagged argument should be the object file name */ object_filename = NULL; object_file = NULL; if (optind < argc) { object_filename = argv[optind]; object_file = fopen(object_filename, "r"); if (!object_file) { fprintf(stderr, "Couldn't open object file %s\n", object_filename); exit(1); } } /* Run the simulator in GUI mode (-g flag) */ if (gui_mode) { #ifndef HAS_GUI printf("To run in GUI mode, you must recompile with the HAS_GUI constant defined.\n"); exit(1); #endif// HAS_GUI /* In GUI mode, we must specify the object file on command line */ if (!object_file) { printf("Missing object file argument in GUI mode\n"); usage(argv[0]); } /* Build the command line for the GUI simulator */ for (i = 0; i < TKARGS; i++) { if ((myargv[i] = malloc(MAXBUF*sizeof(char))) == NULL) { perror("malloc error"); exit(1); } } strcpy(myargv[0], argv[0]); if (plusmode == 0) /* SEQ */ strcpy(myargv[1], "seq.tcl"); else strcpy(myargv[1], "seq+.tcl"); strcpy(myargv[2], object_filename); myargv[3] = NULL; /* Start the GUI simulator */ #ifdef HAS_GUI Tk_Main(TKARGS, myargv, Tcl_AppInit); #endif// HAS_GUI exit(0); } /* Otherwise, run the simulator in TTY mode (no -g flag) */ run_tty_sim(); exit(0); }
int main( int argc, char *argv[] ) { Tk_Main( argc, argv, my_init ); return 0; }