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.
21 lines
742 B
21 lines
742 B
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-"
|
|
|