Changeset 6f16730 in tol

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

Location:

toltcl/generic

Files:

• tolaccess.cpp (modified) (1 diff)
• toltcl.c (modified) (1 diff)
• toltcl.h (modified) (1 diff)
• toltclInt.h (modified) (1 diff)

toltcl/generic/tolaccess.cpp

@@ -1947 +1947 @@
  * address of the object referenced in obj_ref.
  */
-int Tol_GetAddresFromObject( Tcl_Interp * interp,
+int Tol_GetAddressFromObject( Tcl_Interp * interp,
                              Tcl_Obj * obj_ref,
                              Tcl_Obj * obj_result)

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)

toltcl/generic/toltcl.h

@@ -32 +32 @@
  */
 
-#define TOLTCL_MAJOR_VERSION    1
-#define TOLTCL_MINOR_VERSION    1
-#define TOLTCL_RELEASE_SERIAL   7
+#define TOLTCL_MAJOR_VERSION    2
+#define TOLTCL_MINOR_VERSION    0
+#define TOLTCL_RELEASE_SERIAL   1
 #ifdef PACKAGE_VERSION
  #define TOLTCL_VERSION PACKAGE_VERSION
 #else
- #define TOLTCL_VERSION          "1.1.7"
+ #define TOLTCL_VERSION          "2.0.1"
 #endif
 

toltcl/generic/toltclInt.h

@@ -117 +117 @@
                      Tcl_Obj *CONST objv[], Tcl_Obj * obj_result);
 
+/*
+ * Fill in obj_result the result the string representation of the
+ * address of the object referenced in obj_ref.
+ */
+extern int Tol_GetAddressFromObject _ANSI_ARGS_( (Tcl_Interp * interp,
+                                                 Tcl_Obj * obj_ref,
+                                                 Tcl_Obj * obj_result));
 /*! Return the path of a set if it is a file, trigger an error in other case
  */