punkshell/scriptlib/tests/pipeline1.tcl

#-----------------------------------------------------------
# a formatting experiment
#-----------------------------------------------------------

x.= concat \
"
a
b c
[runout -n pwd]
trailing space      
d e     f
   g h i
"                                               |> {



    set data }                                    |> {


    set data}                                    |> {

    puts "raw input + pipeline args: $data"
    set data
} \
|> \
    \
     \
l.=/1 linelist  \
       \
     |> \
          {
            puts "linelist: $data"
            puts "args: $args"
            set data
          } \
                    <args|  "a b c" x y z
#-----------------------------------------------------------

set input [list a b c d e f g]

a.= val $input    |> {

         .= lrange $data 1 end-1 {|
         
         >} b.= string toupper 
        
        puts stdout "=================================="
        puts stdout "info vars: [info vars]"
        foreach v [info vars] {
            puts stderr "  '$v' [set $v]"
        }
        puts stdout "=================================="
        return $b
} |>  b.= val                       

puts "a:$a"
puts "b:$b"