You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
61 lines
1.2 KiB
61 lines
1.2 KiB
|
|
#----------------------------------------------------------- |
|
# 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" |
|
|
|
|
|
|
|
|