Changeset 1194 for code/branches/console/src/cpptcl

Timestamp:

Apr 27, 2008, 4:54:31 PM (16 years ago)

Author:

landauf

Message:

tcl can now initialize itself by loading the *.tcl files from media/tcl

Location:

code/branches/console/src/cpptcl

Files:

• CppTcl.cc (modified) (1 diff)
• CppTcl.h (modified) (5 diffs)

code/branches/console/src/cpptcl/CppTcl.cc

@@ -859 +859 @@
 }
 
+interpreter::interpreter(string const &libpath)
+{
+     interp_ =  Tcl_CreateInterp();
+     owner_ = true;
+
+     try
+     {
+        this->eval("set tcl_library " + libpath);
+        Tcl_Init(this->interp_);
+     } catch (...) {}
+}
+
 interpreter::interpreter(Tcl_Interp *interp, bool owner)
 {

code/branches/console/src/cpptcl/CppTcl.h

@@ -70 +70 @@
 public:
      result(Tcl_Interp *interp);
-     
+
      operator bool() const;
      operator double() const;
@@ -171 +171 @@
                throw tcl_error("Too few arguments.");
           }
-          
+
           std::string methodName(Tcl_GetString(objv[1]));
 
@@ -468 +468 @@
 public:
      interpreter();
+     interpreter(std::string const &libpath);
      interpreter(Tcl_Interp *, bool owner = true);
      ~interpreter();
-     
+
      void make_safe();
-     
+
      Tcl_Interp * get() const { return interp_; }
 
-     // free function definitions     
-     
+     // free function definitions
+
      template <typename R>
      void def(std::string const &name, R (*f)(),
@@ -633 +634 @@
      }
 
-     // free script evaluation     
+     // free script evaluation
      details::result eval(std::string const &script);
      details::result eval(std::istream &s);
@@ -837 +838 @@
           throw tcl_error(interp_);
      }
- 
+
      return details::result(interp_);
 }