Changeset fe54d8d in tol for toltcl/generic/toltcl.c

Timestamp:

Mar 28, 2011, 3:21:43 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

dd6e916

Parents:

7b25567

Message:

refs #740, implement

tol::info anything $objRef

it is invoked when and Anything object is inserted in the inspector.

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

File:

• toltcl/generic/toltcl.c (modified) (1 diff)

toltcl/generic/toltcl.c

@@ -964 +964 @@
                                               objv[2], obj_result );
       }
+    } else if (!strncasecmp("anything", arg, length)) {
+      if (objc != 3) {
+        Tcl_AppendStringsToObj(obj_result,
+                               "wrong # args: should be '",
+                               Tcl_GetString(objv[0]),
+                               " anything {grammar|container objname ?indexes?}'",
+                               NULL);
+        tcl_result = TCL_ERROR; 
+      } else {
+        tcl_result = Tol_GetAnythingType( interp,
+                                          objv[2], obj_result );
+      }
     } else if (!strncasecmp("included", arg, length)) {
       if (objc == 2)