|
|
| version 1.73, 2004/12/23 14:40:54 | version 1.78, 2004/12/23 16:34:50 |
|---|---|
| Line 1 | Line 1 |
| @main[] | $f[^file::exec[script/script.pl]] |
| $f.text | |
| $cH[^cH[]] | |
| ^if($cH.this is "junction"){ | |
| $result[^cH.this[$cH.th_par]] | |
| }{ | |
| $result[0] | |
| } | |
| #################################################################################################################### | |
| @cH[] | |
| $result[ | |
| $.this[$mThis] | |
| $.th_par[ | |
| $.a(2) | |
| $.b(3) | |
| ] | |
| ] | |
| #################################################################################################################### | |
| @mThis[lparams][params] | |
| $params[^hash::create[$lparams]] | |
| $result[^eval($params.a * $params.b)] |