char *continu
= "continue";
aprintf("exec "); aprintf(opname
[i
]); aputchar('\n');
if(p
->type
!=DA
||p1
->type
!=DA
) {
if(p
->type
==CH
&&p1
->type
==CH
) {
if(!p
->rank
||p
->rank
==1&&p
->size
==1) {
for(i
=0; i
<p
->size
; i
++) {
if(!p1
->rank
||p1
->rank
==1&&p1
->size
==1) {
for(i
=0; i
<p
->size
; i
++) {
if(p
->dim
[i
] != p1
->dim
[i
])
for(i
=0; i
<p
->size
; i
++) {
*dp
= (*f
)(p
->datap
[i
], *dp
);
for(i
=0; i
<p
->size
; i
++) {
case MENC
: /* monadic encode */
p
= newdat(j
, i
==1?0:1, i
);
s
+= copy(j
, s
, p
->datap
, i
);
c
= *((char*)(p
->datap
));
cxi
= (char*)(p1
->datap
);
push(newdat(DA
,p1
->rank
,p1
->size
));
copy(IN
, p1
->dim
, sp
[-1]->dim
, p1
->rank
);
for(i
=0; i
<p1
->size
; i
++)
*dxi
++ = (double)charcom(c
,*cxi
++);
c
= ((char*)(p1
->datap
))[0];
push(newdat(DA
,p
->rank
,p
->size
));
copy(IN
, p
->dim
, sp
[-1]->dim
, p
->rank
);
*dxi
++ = (double)charcom(*cxi
++,c
);
if(p
->dim
[i
]!=p1
->dim
[i
])
cxi
= (char*)(p1
->datap
);
push(newdat(DA
,p
->rank
,p
->size
));
copy(IN
, p
->dim
, sp
[-1]->dim
, p
->rank
);
*dxi
++ = (double)charcom(((char*)(p
->datap
))[i
],*cxi
++);
error("Y B"); /* "Cannot happen" */
int ex_add(), ex_plus(), ex_sub(), ex_minus(),
ex_mul(), ex_sgn(), ex_div(), ex_recip(),
ex_mod(), ex_abs(), ex_min(), ex_floor(),
ex_max(), ex_ceil(), ex_pwr(), ex_exp(),
ex_log(), ex_loge(), ex_cir(), ex_pi(),
ex_comb(), ex_fac(), ex_deal(), ex_rand(),
ex_drho(), ex_mrho(), ex_diot(), ex_miot(),
ex_rot0(), ex_rev0(), ex_dtrn(), ex_mtrn(),
ex_dibm(), ex_mibm(), ex_gdu(), ex_gduk(),
ex_gdd(), ex_gddk(), ex_exd(), ex_scan(),
ex_exdk(), ex_scnk(), ex_iprod(), ex_oprod(),
ex_br0(), ex_br(), ex_ddom(), ex_mdom(),
ex_com(), ex_red(), ex_comk(), ex_redk(),
ex_rot(), ex_rev(), ex_rotk(), ex_revk(),
ex_cat(), ex_rav(), ex_catk(), ex_ravk(),
ex_print(), ex_elid(), ex_index(), ex_hprint(),
ex_lt(), ex_le(), ex_gt(), ex_ge(),
ex_eq(), ex_ne(), ex_and(), ex_or(),
ex_nand(), ex_nor(), ex_not(), ex_eps(),
ex_meps(), ex_rep(), ex_take(), ex_drop(),
ex_exd0(), ex_asgn(), ex_immed(), ex_fun(),
ex_arg1(), ex_arg2(), ex_auto(), ex_rest(),
ex_com0(), ex_red0(), ex_exd0(), ex_scn0(),
ex_menc
, /*102 */ /* monadic encod */