bastardized monster

J_ARGS_EQ 3 "index target"
J_ARG_TO_NA 1 indNA
J_ARG_TO_NA 2 tgtNA
J_NA_TO_INFO indNA
J_NA_TO_INFO tgtNA
J_NA_TO_BUF tgtNA
J_ERROR_IF_EMPTY tgtNA
J_CREATE_RESULT
J_NA_TO_IT indNA it[J_A_NEW it]

proc coda {type} {
return [J_ITERATE NaWideInt resNA [J_A it] [substNB {

[J_GO_TO_DIM tgtNA 0 valOfIt[J_A it] -]
*ptrOfresNA = *(($type *) bufOftgtNA);
[J_RESET_BUF tgtNA -]

}] -][J_NA_TO_RESULT resNA -]
}

J_SWITCH_TYPE indNA [J_SWITCH_TYPE tgtNA [
    J_CREATE_NA_FROM indNA resNA NaWideInt -
][coda NaWideInt] [
    J_CREATE_NA_FROM indNA resNA double -
][coda double] [
    J_CREATE_NA_FROM indNA resNA NumArray_Complex -
][coda NumArray_Complex] -] [J_BAD_TYPE indNA -] [J_BAD_TYPE indNA -]