Metropoli BBS
VIEWER: funassgn.h MODE: TEXT (ASCII)
/* 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
[ RETURN TO DIRECTORY ]