Changeset da1fbea in tol for tolsh/tolsh.vfs

Timestamp:

Sep 15, 2011, 1:08:25 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

bfbdcb1

Parents:

f0a733dd

Message:

just formating

refs #1305

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

File:

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

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

@@ -231 +231 @@
     -i file  --> include a file but not initLibrary
     -np      --> do not load _iniproject.tol
-    -c"..."  --> compile a tol expression
     -c "..." --> compile a tol expression
     -v?A?    --> enable all output
@@ -303 +302 @@
           }
       } else {
-          set tclsh [auto_execok tclsh]
-          if {![catch {
-            exec echo puts {$::auto_path} | $tclsh
-          } ext_auto_path]} {
-            foreach p $ext_auto_path {
-              if {[lsearch $::auto_path $p]==-1} {
-                lappend ::auto_path $p
-              }
+        set tclsh [auto_execok tclsh]
+        if {![catch {
+          exec echo puts {$::auto_path} | $tclsh
+        } ext_auto_path]} {
+          foreach p $ext_auto_path {
+            if {[lsearch $::auto_path $p]==-1} {
+              lappend ::auto_path $p
             }
           }
-      } 
+        }
+      }
       tclPkgUnknown ${pkg}+1 ""
     } else {
@@ -576 +575 @@
 
 proc logtmp { msg } {
-  #return 
+  return 
   set user $::tcl_platform(user)
   set fd [ open "/tmp/tolsh.${user}.log" a ]