housekeeping newlines etc

scriptlib/tests/pipeline1.tcl

@@ -1,57 +1,57 @@
-
+
-#-----------------------------------------------------------
+#-----------------------------------------------------------
-# a formatting experiment
+# a formatting experiment
-#-----------------------------------------------------------
+#-----------------------------------------------------------
-
+
-x.=val {
+x.= val {
-a
+a
-b c
+b c
-d e     f
+d e     f
-   g h i
+   g h i
-}                                                |> {
+}                                                |> {
-
+
-
+
-
+
-    set data}                                    |> {
+    set data}                                    |> {
-
+
-
+
-    set data}                                    |> {
+    set data}                                    |> {
-
+
-    puts "raw: $data"
+    puts "raw: $data"
-    set data
+    set data
-} \
+} \
-|> \
+|> \
-    \
+    \
-     \
+     \
-l.=linelist    %data%\
+l.=linelist    %data%\
-       \
+       \
-     |> \
+     |> \
-          {
+          {
-            puts "linelist: $data"
+            puts "linelist: $data"
-            puts "args: $args"
+            puts "args: $args"
-            set data
+            set data
-          } \
+          } \
-                    <args| a b c
+                    <args| a b c
-#-----------------------------------------------------------
+#-----------------------------------------------------------
-
+
-set input [list a b c d e f g]
+set input [list a b c d e f g]
-
+
-a.=val $input    |> {
+a.=val $input    |> {
-
+
-         .=lrange $data 1 end-1 |>\
+         .=lrange $data 1 end-1 |>\
-        b.=string toupper 
+        b.=string toupper 
-        
+        
-        puts stdout "=================================="
+        puts stdout "=================================="
-        puts stdout [info vars]
+        puts stdout [info vars]
-        foreach v [info vars] {
+        foreach v [info vars] {
-            puts stderr "  '$v'"
+            puts stderr "  '$v'"
-        }
+        }
-        puts stdout "=================================="
+        puts stdout "=================================="
-        return $b
+        return $b
-} |>  b.=val                       
+} |>  b.=val                       
-
+
-puts $a
+puts $a
-puts $b
+puts $b
-
+
-
+
-
+

src/modules/shellthread-1.6.tm

@@ -431,10 +431,10 @@ namespace eval shellthread::manager {
             # then it's likely we will need to use the caller's auto_path and tcl::tm::list to find things
             #The caller can tune the thread's package search by providing a settingsdict
             if {![dict exists $::settingsinfo tcl_tm_list]} {
-                tcl::tm::add %mp%
+                ::tcl::tm::add %mp%
             } else {
                 tcl::tm::remove {*}[tcl::tm::list]
-                tcl::tm::add {*}[dict get $::settingsinfo tcl_tm_list]
+                ::tcl::tm::add {*}[dict get $::settingsinfo tcl_tm_list]
             }
             if {![dict exists $::settingsinfo auto_path]} {
                 set ::auto_path [list %ap%]