Changeset d6b52ea in tol

Timestamp:

May 5, 2011, 10:54:05 AM (15 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

28bccd2

Parents:

2412c49

Message:

Fixes #1189
There is a new global system constant TolTclIsEnabled which indicates if TCL API is available in TOL

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3493 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol

Files:

• btol/real_type/datgra.cpp (modified) (3 diffs)
• btol/set_type/setgra.cpp (modified) (4 diffs)
• tol_init.h (modified) (1 diff)

tol/btol/real_type/datgra.cpp

@@ -31 +31 @@
 #define DEFAULT_INIT_PRIORITY 30
 
+#include <tol/tol_bdatgra.h>
 #include <tol/tol_bout.h>
+#include <tol/tol_init.h>
 #include <tol/tol_bqfile.h>
-#include <tol/tol_bdatgra.h>
 #include <tol/tol_btsrgrp.h>
 #include <tol/tol_bsetgra.h>
@@ -232 +233 @@
   BDatNError*   numError_    = new BDatNError;
   BDatNWarning* numWarning_  = new BDatNWarning;
+
+  BSystemDat* tolTclIsEnabled_ = new BSystemDat("TolTclIsEnabled",      TolTclIsEnabled(),
+                             I2("Indicates if TCL API is available in TOL",
+                                      "Indica si la API TCL está accesible desde TOL"));
 
   BSystemDat* unknown_ = new BSystemDat("?",     BDat::Unknown(),
@@ -522 +527 @@
   );
 
+  BParamDat* showStackAtError_   = new BParamDat
+  (
+    "ShowStackAtError",
+    BOut::showStackAtError,
+    "Enables/disables call stack tracing of error messages"
+  );
+
+  BParamDat* showStackAtWarning_         = new BParamDat
+  (
+    "ShowStackAtWarning",
+    BOut::showStackAtWarning,
+    "Enables/disables call stack tracing of warning messages"
+  );
+
   OwnGrammar()->PutDefect(unknown_);
 

tol/btol/set_type/setgra.cpp

@@ -24 +24 @@
 #endif
 
+#include <tol/tol_bsetgra.h>
+#include <tol/tol_init.h>
 #include <tol/tol_tree.h>
 #include <tol/tol_bdir.h>
@@ -32 +34 @@
 #include <tol/tol_bparser.h>
 #include <tol/tol_boper.h>
-#include <tol/tol_bsetgra.h>
 #include <tol/tol_bmatgra.h>
 #include <tol/tol_btxtgra.h>
@@ -2544 +2545 @@
 Tcl_EvalPtr tcl_evaluator = NULL;
 
+//--------------------------------------------------------------------
+int TolTclIsEnabled()
+//--------------------------------------------------------------------
+{
+  return(tcl_evaluator!=NULL);
+}
+
+//--------------------------------------------------------------------
 Tcl_EvalPtr InstallTclEval(Tcl_EvalPtr new_evaluator)
+//--------------------------------------------------------------------
 {
   Tcl_EvalPtr old_evaluator = tcl_evaluator;
@@ -2555 +2565 @@
 Tcl_EvalExPtr tcl_evaluatorEx = NULL;
 
+//--------------------------------------------------------------------
 Tcl_EvalExPtr InstallTclEvalEx(Tcl_EvalExPtr new_evaluator)
+//--------------------------------------------------------------------
 {
   Tcl_EvalExPtr old_evaluator = tcl_evaluatorEx;

tol/tol_init.h

@@ -58 +58 @@
 TOL_API void SetTOLEnd();
 TOL_API void UnexpectedTolEnd(void);
+TOL_API int TolTclIsEnabled();
 
 END_DECLS