Changeset eb21277 in tol for toltcl

Timestamp:

Feb 24, 2012, 12:51:07 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

aedc343

Parents:

904521e

Message:

fixes #1449, the new reference has the form ADDRESS 90E6520:0:8CA6B90:0:8BB2450:0:2:4:3

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

File:

• toltcl/generic/tolaccess.cpp (modified) (1 diff)

toltcl/generic/tolaccess.cpp

@@ -634 +634 @@
       }
     } else {
-      if (n==2) {
-        // look global var in grammar
-        BGrammar * gra;
-        gra = BGrammar::FindByName(type);
-        if (!gra) {
-          Tcl_AppendStringsToObj(obj_result, "\"",
-                                                   type,
-                                                   "\" isn't a grammar", NULL);
-          return NULL;
+      if ( n==2 ) {
+        if ( !strcasecmp( type, "ADDRESS" ) ) {
+          return
+            BSyntaxObject::GetObjectFromAddress( Tcl_GetString( items[1] ) );
+        } else {
+          // look global var in grammar
+          BGrammar * gra;
+          gra = BGrammar::FindByName(type);
+          if (!gra) {
+            Tcl_AppendStringsToObj(obj_result, "\"",
+                                   type,
+                                   "\" isn't a grammar", NULL);
+            return NULL;
+          }
+          Tcl_DString dstr;
+          Tcl_DStringInit(&dstr);
+          Tcl_UtfToExternalDString(NULL,Tcl_GetString(items[1]),-1,&dstr);
+          if (!(syn = gra->FINDVARIABLE(Tcl_DStringValue(&dstr))))
+            Tcl_AppendStringsToObj(obj_result, "variable '",
+                                   obj_ref, "' not found in grammar '",
+                                   gra->Name().String(), "'", NULL);
+          Tcl_DStringFree(&dstr);
+          /* found and matched */
+          return syn;
         }
-        Tcl_DString dstr;
-        Tcl_DStringInit(&dstr);
-        Tcl_UtfToExternalDString(NULL,Tcl_GetString(items[1]),-1,&dstr);
-        if (!(syn = gra->FINDVARIABLE(Tcl_DStringValue(&dstr))))
-          Tcl_AppendStringsToObj(obj_result, "variable '",
-                                 obj_ref, "' not found in grammar '",
-                                 gra->Name().String(), "'", NULL);
-        Tcl_DStringFree(&dstr);
-        /* found and matched */
-        return syn;
+      } else {
+        Tcl_AppendStringsToObj(obj_result,
+                               "invalid object reference in ResolveObject",
+                               NULL);
       }
     }
   } else {
       Tcl_AppendStringsToObj(obj_result,
-                             "incorrect object reference in ResolveObject",
+                             "invalid object reference in ResolveObject",
                              NULL);
   }