Changeset b47c991 in tol for tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl

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:

• tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl (modified) (5 diffs)

tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl

@@ -32 +32 @@
   set options(lang)    0
   set options(initlib) 1
+  set options(iniproject) 1
   set options(compile) ""
   set options(vmode)   ""
@@ -46 +47 @@
 #
 #    -i       --> do not include initLibrary
+#    -np      --> do not load _iniproject.tol
 #    -c"..."  --> compile a tol expression
 #    -c "..." --> compile a tol expression
@@ -92 +94 @@
         # 
         set options(initlib) 0
+      } elseif {$opt eq "np"} {
+        set $options(iniproject) 0
       } elseif {[string index $opt 0] eq "c"} {
         if {[string length $opt]>1} {
@@ -226 +230 @@
   puts {
     -i file  --> include a file but not initLibrary
+    -np      --> do not load _iniproject.tol
     -c"..."  --> compile a tol expression
     -c "..." --> compile a tol expression
@@ -386 +391 @@
 
     if {$options(initlib)} {
-      tol::initlibrary
+      tol::initlibrary $options(iniproject)
     }