Changeset d794d03 in tol for tolbase

Timestamp:

Sep 7, 2009, 7:14:57 AM (17 years ago)

Author:

Javier Portugal <javipor@…>

Branches:

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

Children:

b67be8d

Parents:

42d0dbd

Message:

New util function EvalTolExp

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

File:

• tolbase/lib/byswidget/bfunctions/bftoltcl.tcl (modified) (1 diff)

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -651 +651 @@
   return $delimeter
 }
+
+
+
+#///////////////////////////////////////////////////////////////////////////
+proc EvalTolExp {grammar expression {seed _tempName}} {
+# PURPOSE: Evaluates a tol expression $expression from grammar $grammar
+# RETURNS: Content of evaluated expression
+#
+#///////////////////////////////////////////////////////////////////////////
+  set nRes [GetUniqueName $grammar $seed]
+  set cmd "$grammar $nRes = $expression;"
+  ::tol::console eval $cmd
+  array set info [TclInfoVar $grammar $nRes]
+  eval "set lstRes $info(CONTENT)"
+  ::tol::console stack release $nRes
+  return $lstRes
+}