Changeset b47c991 in tol for toltcl

Timestamp:

Jun 20, 2011, 1:13:12 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

b50906a

Parents:

f5c1a77

Message:

refs #1259, implementamos el argumento '-np' en tol::initlibrary, interpretamos la opcion -np en tolsh y tolbase

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

File:

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

toltcl/generic/toltcl.c

@@ -317 +317 @@
      Tcl_Obj *CONST objv[];  /* Argument objects */
 {
-  if ( objc != 1 ) {
+  int loadIni;
+  int status;
+
+  if ( objc != 2 ) {
     Tcl_AppendResult(interp, "wrong # args: should be \"",
-                     Tcl_GetString(objv[0]),"\"", NULL);
+                     Tcl_GetString(objv[0]), " 0|1\"", NULL);
     return TCL_ERROR;
   }
-  LoadInitLibrary(1);
-  return TCL_OK;
+  
+  if ( (status = Tcl_GetIntFromObj( interp, objv[1], &loadIni )) == TCL_OK ) {
+    LoadInitLibrary( loadIni );
+  }
+  return status;
 }