Posted to tcl by jima at Sat May 06 20:44:10 GMT 2017view pretty
${J_CMD Test$} { ${J_PASTER { J_ARGS_EQ 2 "target"` J_ARG_TO_NA 1 tgtNA` J_NA_TO_INFO tgtNA` J_ERROR_IF_EMPTY tgtNA` J_CREATE_RESULT` }$} ${ proc coda {type} { return [J_PASTER " J_NA_TO_IT $type tgtNA` J_LOOP_IT $type tgtNA [J_PRINT_VAL $type tgtNA]` J_FREE_IT tgtNA` "] } J_SWITCH_TYPE tgtNA [coda NaWideInt] [coda double] [coda NumArray_Complex] $} ${J_EMPTY_RESULT$} return TCL_OK; }