punkshell/scriptlib/tests/pipeline1.tcl

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

x.= val {
a
b c
d e     f
   g h i
}                                                |> {



    set data}                                    |> {


    set data}                                    |> {

    puts "raw: $data"
    set data
} \
|> \
    \
     \
l.=linelist    %data%\
       \
     |> \
          {
            puts "linelist: $data"
            puts "args: $args"
            set data
          } \
                    <args| a b c
#-----------------------------------------------------------

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]
        foreach v [info vars] {
            puts stderr "  '$v'"
        }
        puts stdout "=================================="
        return $b
} |>  b.=val                       

puts $a
puts $b