/* Copyright (C) 1993 by Thomas Glen Smith. All Rights Reserved. */ /* funassgn.h - APL2 V1.0.0 ******************************************** * Assignment statements included in funinit.c for mixed functions. * ***********************************************************************/ #if !defined(FUNASSGN_INCL) #define FUNASSGN_INCL /* DYAD - Dmxo */ dmxo_init(x27,epdixe,drop2); dmxo_init(x43,epdix,find); dmxo_init(x51,epdixf,squadix); dmxo_init(x52,epdix,execalt); /* DYDB - Dmxo */ dmxo_init(x13,epdix,decode); dmxo_init(x21,epdix,encodbl); /* EQNE - Eqne (equal/not equal) */ /* A B C D E F G H I J K L M N */ eqne_init(x08,ieq,dbleq,eq,NULL,dbleqp,eqp,NULL,NULL,eqx,ceq,ceqp,ceqpd,intzero); eqne_init(x33,ine,dblne,ne,NULL,dblnep,nep,NULL,NULL,nex,cne,cnep,cnepd,intone); /* MIXA - Mixa */ mixa_init(x16,epmix ,enlist ,epdix ,member ); mixa_init(x17,epmix ,formdft ,epdix ,form ); mixa_init(x18,epmix ,indexgen,epdix ,indexof ); mixa_init(x20,epmix ,matinv ,epdix ,mdivide ); mixa_init(x24,epmix ,shape ,epdix ,reshape ); mixa_init(x31,epmix ,first ,epdixe,take2 ); mixa_init(x35,epmixa,reverse ,epdixa,rotate ); mixa_init(x36,epmixa,reverse ,epdixa,rotate ); mixa_init(x38,epmixe,disclose,epdixe,pick ); mixa_init(x39,epmixe,enclose ,epdixe,partitn ); mixa_init(x42,epmix ,depth ,epdix ,match ); /* MIXC - Mixa */ mixa_init(x06,epmixe,ravel2 ,epdixa,cat ); /* MSMD - Msmd */ msmd_init(x10,iroll ,roll ,NULL , irollp ,rollp ,NULL ,NULL , epdix ,deal ); msmd_init(x41,inot ,dblnot ,not , NULL ,dblnotp ,NULL ,NULL , epdix ,without ); /* MXMO - Mixa */ mixa_init(x14,epmix ,compute ,epdix ,NULL ); /* SAME - Dmxo */ dmxo_init(x12,epdix ,gradeup2); dmxo_init(x26,epdix ,transpos); dmxo_init(x29,epdix ,gradedn2); #endif