/* 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