Changeset d3d6a42 in tol

Timestamp:

Jul 2, 2010, 11:54:32 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

9797b96

Parents:

2f5c27ce

Message:

refs #931: implementing required functions within toltcl:

• tol::info packages
• tol::info packages GuiTools

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

Location:

toltcl/generic

Files:

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

toltcl/generic/tolaccess.cpp

@@ -1933 +1933 @@
   return TCL_OK;
 }
+
 /*
  *
@@ -1938 +1939 @@
  *
  */
-
 int Tol_SetGrammarsObj(Tcl_Interp * interp, Tcl_Obj * obj_result )
 {
@@ -1980 +1980 @@
                           "\" isn't a grammar", NULL );
   return TCL_ERROR;
+}
+
+/*
+ *
+ * Fill in obj_result the list of packages defined in TOL
+ *
+ */
+int Tol_SetPackagesObj(Tcl_Interp * interp, Tcl_Obj * obj_result )
+{
+
+  BList* lstGra = BPackage::Required();
+
+  BList2TclList( interp, lstGra, obj_result, &GetName );
+  Tcl_AppendObjToObj( obj_result, Tcl_GetObjResult( interp ) );
+  return TCL_OK;
+}
+
+/*
+ *
+ * Fill in obj_result the description of package.
+ *
+ */
+int Tol_SetPackageDescObj( Tcl_Interp *interp, Tcl_Obj *pkgName,
+                           Tcl_Obj *obj_result )
+{
+  int status;
+  Tcl_Obj *graName = Tcl_NewStringObj( "NameBlock", -1 );
+  
+  status = Tol_SetVariableInfoObj( graName, pkgName, obj_result );
+  Tcl_DecrRefCount( graName );
+  return status;
 }
 

toltcl/generic/toltcl.c

@@ -100 +100 @@
 
 static int Tol_InfoGrammars _ANSI_ARGS_((Tcl_Interp *interp,
+                                         int objc, Tcl_Obj *CONST objv[],
+                                         Tcl_Obj * obj_result));
+
+static int Tol_InfoPackages _ANSI_ARGS_((Tcl_Interp *interp,
                                          int objc, Tcl_Obj *CONST objv[],
                                          Tcl_Obj * obj_result));
@@ -974 +978 @@
     else if (!strncasecmp("grammars", arg, length))
       tcl_result = Tol_InfoGrammars(interp, objc-1, objv+1, obj_result);
+    else if (!strncasecmp("packages", arg, length))
+      tcl_result = Tol_InfoPackages(interp, objc-1, objv+1, obj_result);
     else if (!strncasecmp("variables", arg, length))
       tcl_result = Tol_InfoVariables(interp, objc-1, objv+1, obj_result);
@@ -1141 +1147 @@
   return  objc == 1 ? Tol_SetGrammarsObj(interp, obj_result) :
     Tol_SetGrammarDescObj(interp, objv[1], obj_result);
+}
+
+
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * Tol_InfoGrammars --
+ *
+ *        Implements the subcommand "::tol::info grammars ?grammar?".
+ *
+ * Results:
+ *       A standard Tcl result
+ *
+ * Side effects:
+ *       None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+static int
+Tol_InfoPackages(interp, objc, objv, obj_result)
+     Tcl_Interp *interp;       /* Current interpreter */
+     int objc;                 /* Number of arguments */
+     Tcl_Obj *CONST objv[];    /* Argument objects */
+     Tcl_Obj * obj_result;
+{
+  if ( objc > 2 ) {
+    Tcl_AppendStringsToObj(obj_result,
+                           "wrong # args: should be '",
+                           Tcl_GetString(objv[0]), " packages ?pkgName?'",
+                           NULL);
+    return TCL_ERROR;
+  }
+  return  objc == 1 ? Tol_SetPackagesObj(interp, obj_result) :
+    Tol_SetPackageDescObj(interp, objv[1], obj_result);
 }
 

toltcl/generic/toltclInt.h

@@ -200 +200 @@
                                            Tcl_Obj * obj_result));
 
+/*! Fill in obj_result the list of packages defined in TOL
+ */
+extern int Tol_SetPackagesObj _ANSI_ARGS_((Tcl_Interp * interp,
+                                           Tcl_Obj * obj_result));
+
 /*! Fill in obj_result the description of gra_name.
  */
 int Tol_SetGrammarDescObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * gra_name,
                                         Tcl_Obj * obj_result));
+
+/*! Fill in obj_result the description of pkgName.
+ */
+int Tol_SetPackageDescObj _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj *pkgName,
+                                       Tcl_Obj * obj_result));
 
 /*! Fill in obj_result the functions defined for grammar gra_name.