Changeset 1053ab7 in tol for toltcl/generic/tolaccess.cpp

Timestamp:

Feb 13, 2012, 7:39:01 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

cdd0e84

Parents:

8d687fe

Message:

refs #994, #1404: using exported function from TOL CheckSyntax

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

File:

• toltcl/generic/tolaccess.cpp (modified) (2 diffs)

toltcl/generic/tolaccess.cpp

@@ -42 +42 @@
 #include <tol/tol_btxtgra.h>
 #include <tol/tol_bmethodhook.h>
-#include <tol/tol_bparser.h>
 
 #include <toltclInt.h>
@@ -1891 +1890 @@
                                        -1, &dstr );
   Tcl_DStringFree(&dstr);
-  
-  BBool stat = BOut::ErrorHci();
-  BOut::PutErrorHci(BFALSE);
-  BParser* parser = new BParser;
-  Tree* tree = parser->Parsing( tol_expr );
-  Tcl_SetStringObj( obj_result, parser->MessageError(), -1 );
-  delete parser;
-  BOut::PutErrorHci( stat );
-  DESTROY(tree);
+  BText result = CheckSyntax( tol_expr );
+  Tcl_SetStringObj( obj_result, result.String(), -1 );
   return TCL_OK;
 }