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;
}