Posted to tcl by jima at Sat May 06 20:44:10 GMT 2017view raw

  1. ${J_CMD Test$} {
  2.  
  3. ${J_PASTER {
  4. J_ARGS_EQ 2 "target"`
  5. J_ARG_TO_NA 1 tgtNA`
  6. J_NA_TO_INFO tgtNA`
  7. J_ERROR_IF_EMPTY tgtNA`
  8. J_CREATE_RESULT`
  9. }$}
  10.  
  11. ${
  12. proc coda {type} {
  13. return [J_PASTER "
  14. J_NA_TO_IT $type tgtNA`
  15. J_LOOP_IT $type tgtNA [J_PRINT_VAL $type tgtNA]`
  16. J_FREE_IT tgtNA`
  17. "]
  18. }
  19. J_SWITCH_TYPE tgtNA [coda NaWideInt] [coda double] [coda NumArray_Complex]
  20. $}
  21.  
  22. ${J_EMPTY_RESULT$}
  23. return TCL_OK;
  24. }
  25.