source:
code/branches/netp6/src/cpptcl/changes_orxonox.diff
@
4157
Last change on this file since 4157 was 2710, checked in by rgrieder, 15 years ago | |
---|---|
|
|
File size: 1.6 KB |
-
cpptcl.cc
320 320 321 321 post_process_policies(interp, pol, objv, false); 322 322 } 323 catch ( exception const &e)323 catch (std::exception const &e) 324 324 { 325 325 Tcl_SetResult(interp, const_cast<char*>(e.what()), TCL_VOLATILE); 326 326 return TCL_ERROR; … … 363 363 364 364 post_process_policies(interp, pol, objv, true); 365 365 } 366 catch ( exception const &e)366 catch (std::exception const &e) 367 367 { 368 368 Tcl_SetResult(interp, const_cast<char*>(e.what()), TCL_VOLATILE); 369 369 return TCL_ERROR; … … 430 430 Tcl_GetString(Tcl_GetObjResult(interp)), 431 431 object_handler, static_cast<ClientData>(chb), 0); 432 432 } 433 catch ( exception const &e)433 catch (std::exception const &e) 434 434 { 435 435 Tcl_SetResult(interp, const_cast<char*>(e.what()), TCL_VOLATILE); 436 436 return TCL_ERROR; … … 858 858 owner_ = true; 859 859 } 860 860 861 interpreter::interpreter(string const &libpath) 862 { 863 interp_ = Tcl_CreateInterp(); 864 owner_ = true; 865 866 try 867 { 868 this->eval("set tcl_library \"" + libpath + "\""); 869 Tcl_Init(this->interp_); 870 } catch (...) {} 871 } 872 861 873 interpreter::interpreter(Tcl_Interp *interp, bool owner) 862 874 { 863 875 interp_ = interp; -
cpptcl.h
467 467 { 468 468 public: 469 469 interpreter(); 470 interpreter(std::string const &libpath); 470 471 interpreter(Tcl_Interp *, bool owner = true); 471 472 ~interpreter(); 472 473
Note: See TracBrowser
for help on using the repository browser.