Posted to tcl by jima at Thu May 04 12:51:52 GMT 2017view raw

  1. J_ARGS_EQ 3 "index target"
  2. J_ARG_TO_NA 1 indNA
  3. J_ARG_TO_NA 2 tgtNA
  4. J_NA_TO_INFO indNA
  5. J_NA_TO_INFO tgtNA
  6. J_NA_TO_BUF tgtNA
  7. J_ERROR_IF_EMPTY tgtNA
  8. J_CREATE_RESULT
  9. J_NA_TO_IT indNA it[J_A_NEW it]
  10.  
  11. proc coda {type} {
  12. return [J_ITERATE NaWideInt resNA [J_A it] [substNB {
  13.  
  14. [J_GO_TO_DIM tgtNA 0 valOfIt[J_A it] -]
  15. *ptrOfresNA = *(($type *) bufOftgtNA);
  16. [J_RESET_BUF tgtNA -]
  17.  
  18. }] -][J_NA_TO_RESULT resNA -]
  19. }
  20.  
  21. J_SWITCH_TYPE indNA [J_SWITCH_TYPE tgtNA [
  22. J_CREATE_NA_FROM indNA resNA NaWideInt -
  23. ][coda NaWideInt] [
  24. J_CREATE_NA_FROM indNA resNA double -
  25. ][coda double] [
  26. J_CREATE_NA_FROM indNA resNA NumArray_Complex -
  27. ][coda NumArray_Complex] -] [J_BAD_TYPE indNA -] [J_BAD_TYPE indNA -]