Changeset 8916937 in tol

Timestamp:

Jan 19, 2011, 2:38:58 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

716b74a

Parents:

0fb35c7

Message:

More explicit message on Tcl_Eval* funtions

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

File:

• tol/btol/set_type/setgra.cpp (modified) (4 diffs)

tol/btol/set_type/setgra.cpp

@@ -2721 +2721 @@
   BSyntaxObject * so;
   BInt status = 0;
-  const char * str_result = "Unimplemented";
+  BText str_result_ = BText("[Tcl_Eval] Unimplemented method in script=\n")+script+"\n";
+  const char* str_result = str_result_.Buffer();
   
   if (tcl_evaluator)
@@ -2728 +2729 @@
   result = Cons(so = new BContensDat("", status), result);
   so->PutName("status");
-  result = Cons(so = new BContensText("", str_result), result);
+  result = Cons(so = new BContensText("", str_result_), result);
   so->PutName("result");
   contens_.RobElement(result);
@@ -2763 +2764 @@
   BSyntaxObject * so;
   BInt status = 0;
-  const char *str_result = "Unimplemented";
+  BText str_result_ = BText("[Tcl_EvalEx] Unimplemented method in cmd=\n")+cmd.Dump()+"\n";
+  const char* str_result = str_result_.Buffer();
   
   if (tcl_evaluatorEx)
@@ -2770 +2772 @@
   result = Cons(so = new BContensDat("", status), result);
   so->PutName("status");
-  result = Cons(so = new BContensText("", str_result), result);
+  result = Cons(so = new BContensText("", str_result_), result);
   so->PutName("result");
   contens_.RobElement(result);