Changeset fe54d8d in tol for toltcl

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

Location:

toltcl/generic

Files:

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

toltcl/generic/tolaccess.cpp

@@ -2437 +2437 @@
   }
   BText addr = syn->GetAddressFromObject( );
-  Tcl_AppendStringsToObj( obj_result, addr.Buffer( ), NULL );
+  Tcl_SetStringObj( obj_result, addr.Buffer( ), -1 );
+  return TCL_OK;
+}
+                            
+/*
+ * Fill in obj_result the specific type for an Anything object, could
+ * be: Struct, Class or Anything.
+ */
+int Tol_GetAnythingType( Tcl_Interp * interp,
+                         Tcl_Obj * obj_ref,
+                         Tcl_Obj * obj_result)
+{
+  const BSyntaxObject *syn ;
+
+#ifndef _NDEBUG
+  //#define _PRINT_ANYTHING_OBJREF_
+#endif
+
+#ifdef _PRINT_ANYTHING_OBJREF_
+  printf( "obj_ref = %s\n", Tcl_GetString( obj_ref ) );
+#endif
+
+  if ( !( syn = Tol_ResolveObject( interp, obj_ref, obj_result ) ) ) {
+    return TCL_ERROR;
+  }
+  
+  if ( syn->Mode() == BCLASSMODE ) {
+    Tcl_SetStringObj( obj_result, "Class", -1 );
+  } else if ( syn->Mode() == BSTRUCTMODE ) {
+    Tcl_SetStringObj( obj_result, "Struct", -1 );
+  } else {
+    Tcl_SetStringObj( obj_result, "Anything", -1 );
+  }
   return TCL_OK;
 }

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)

toltcl/generic/toltclInt.h

@@ -124 +124 @@
                                                  Tcl_Obj * obj_ref,
                                                  Tcl_Obj * obj_result));
+/*
+ * Fill in obj_result the specific type for an Anything object, could
+ * be: Struct, Class or Anything.
+ */
+extern int Tol_GetAnythingType _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
  */