Posted to tcl by jdc at Thu Jul 11 13:34:44 GMT 2013view raw

  1. #ifdef _WIN32
  2. SetEnvironmentVariable("TCL_LIBRARY", tcl_lib);
  3. #else
  4. setenv("TCL_LIBRARY", tcl_lib.c_str(), 1);
  5. #endif
  6.  
  7. Tcl_FindExecutable(argv[0]);
  8. Tcl_PutEnv(tcl_env.c_str());
  9.  
  10. Tcl_Interp* ip = Tcl_CreateInterp();