Changeset 6f16730 in tol for toltcl/generic/toltcl.c

Timestamp:

Jul 2, 2009, 1:56:21 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

cdb9682

Parents:

9e3cbcf

Message:

• fixing misspell in Address (related to #705)
• tol::info address (related to #705)
• changing version number to 2.0.1

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

File:

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

toltcl/generic/toltcl.c

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