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.
22 lines
742 B
22 lines
742 B
2 years ago
|
puts stdout "test long pipeline can be curried with simple c=x.=d e |> f etc assignment (no space after =)"
|
||
|
|
|
||
|
|
puts stdout "c=x.={5*3} |p1> y.= expr 3 * |p2> {set debug \"val is \$data\";set data} |debug> z.= 2 + |> { set data} |> {puts stderr \"debug:\$debug\n p1:\$p1\np2:\$p2\"; set data}"
|
||
|
|
|
||
|
|
c=x.={5*3} |p1> y.= expr 3 * |p2> {set debug "val is $data";set data} |debug> z.= 2 + |> { set data} |> {puts stderr "debug:$debug\n p1:$p1\np2:$p2"; set data}
|
||
|
|
|
||
|
|
puts stdout "method1 using \$c"
|
||
|
|
$c
|
||
|
|
set answer [$c]
|
||
|
|
|
||
|
|
puts stdout "set answer \[\$c\]"
|
||
|
|
puts stdout " $answer"
|
||
|
|
|
||
|
|
puts stdout "method2 using eval \$c"
|
||
|
|
eval $c
|
||
|
|
|
||
|
|
set answer2 [eval $c]
|
||
|
|
puts stdout "set answer2 \[eval \$c\]"
|
||
|
|
puts stdout " $answer2"
|
||
|
|
|
||
|
|
puts stdout "-done-"
|