| [2641] | 1 | --- cpptcl.cc So Feb 8 23:14:34 2009 |
|---|
| 2 | +++ cpptcl.cc So Feb 8 23:13:07 2009 |
|---|
| 3 | @@ -320,7 +320,7 @@ |
|---|
| 4 | |
|---|
| 5 | post_process_policies(interp, pol, objv, false); |
|---|
| 6 | } |
|---|
| 7 | - catch (exception const &e) |
|---|
| 8 | + catch (std::exception const &e) |
|---|
| 9 | { |
|---|
| 10 | Tcl_SetResult(interp, const_cast<char*>(e.what()), TCL_VOLATILE); |
|---|
| 11 | return TCL_ERROR; |
|---|
| 12 | @@ -363,7 +363,7 @@ |
|---|
| 13 | |
|---|
| 14 | post_process_policies(interp, pol, objv, true); |
|---|
| 15 | } |
|---|
| 16 | - catch (exception const &e) |
|---|
| 17 | + catch (std::exception const &e) |
|---|
| 18 | { |
|---|
| 19 | Tcl_SetResult(interp, const_cast<char*>(e.what()), TCL_VOLATILE); |
|---|
| 20 | return TCL_ERROR; |
|---|
| 21 | @@ -430,7 +430,7 @@ |
|---|
| 22 | Tcl_GetString(Tcl_GetObjResult(interp)), |
|---|
| 23 | object_handler, static_cast<ClientData>(chb), 0); |
|---|
| 24 | } |
|---|
| 25 | - catch (exception const &e) |
|---|
| 26 | + catch (std::exception const &e) |
|---|
| 27 | { |
|---|
| 28 | Tcl_SetResult(interp, const_cast<char*>(e.what()), TCL_VOLATILE); |
|---|
| 29 | return TCL_ERROR; |
|---|
| 30 | @@ -858,6 +858,18 @@ |
|---|
| [2600] | 31 | owner_ = true; |
|---|
| 32 | } |
|---|
| 33 | |
|---|
| 34 | +interpreter::interpreter(string const &libpath) |
|---|
| 35 | +{ |
|---|
| 36 | + interp_ = Tcl_CreateInterp(); |
|---|
| 37 | + owner_ = true; |
|---|
| 38 | + |
|---|
| 39 | + try |
|---|
| 40 | + { |
|---|
| 41 | + this->eval("set tcl_library " + libpath); |
|---|
| 42 | + Tcl_Init(this->interp_); |
|---|
| 43 | + } catch (...) {} |
|---|
| 44 | +} |
|---|
| 45 | + |
|---|
| 46 | interpreter::interpreter(Tcl_Interp *interp, bool owner) |
|---|
| 47 | { |
|---|
| 48 | interp_ = interp; |
|---|
| [2641] | 49 | --- cpptcl.h Wed Jan 28 20:56:11 2009 |
|---|
| 50 | +++ cpptcl.h Sat Jan 24 12:52:54 2009 |
|---|
| [2600] | 51 | @@ -467,6 +467,7 @@ |
|---|
| 52 | { |
|---|
| 53 | public: |
|---|
| 54 | interpreter(); |
|---|
| 55 | + interpreter(std::string const &libpath); |
|---|
| 56 | interpreter(Tcl_Interp *, bool owner = true); |
|---|
| 57 | ~interpreter(); |
|---|
| 58 | |
|---|
