2 * $Id: tclmain.c,v 1.2 1998/10/15 12:31:04 adam Exp $
8 * The following variable is a special hack that is needed in order for
9 * Sun shared libraries to be used for Tcl.
13 int *tclDummyMathPtr = (int *) matherr;
15 int main(int argc, char **argv)
17 Tcl_Main(argc, argv, Tcl_AppInit);
18 return 0; /* Needed only to prevent compiler warning. */
21 int Tcl_AppInit(Tcl_Interp *interp)
23 if (Tcl_Init(interp) == TCL_ERROR) {
27 if (Tclrobot_Init(interp) == TCL_ERROR) {
30 Tcl_StaticPackage(interp, "TclRobot", Tclrobot_Init,
31 (Tcl_PackageInitProc *) NULL);
34 * Call the init procedures for included packages. Each call should
37 * if (Mod_Init(interp) == TCL_ERROR) {
41 * where "Mod" is the name of the module.
45 * Call Tcl_CreateCommand for application-specific commands, if
46 * they weren't already created by the init procedures called above.
50 * Specify a user-specific startup file to invoke if the application
51 * is run interactively. Typically the startup file is "~/.apprc"
52 * where "app" is the name of the application. If this line is deleted
53 * then no user-specific startup file will be run under any conditions.
56 Tcl_SetVar(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY);