/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* funcodes.h - APL2 V1.0.0 ********************************************
* Structures defined in funstruc.h are initialized describing all of   *
* the builtin APL functions.  These codes are stored in the "codes"    *
* field of each structure to identify its type.                        *
***********************************************************************/
#if !defined(FUNCODES_INCL)
#define FUNCODES_INCL
#define MONADIC    1
#define DYADIC     2
#define SCALAR     4
#define MIXED      8
#define AXIS      16
#define EQUALITY  32 /* equal/not equal is a special case             */
#define DUAL      64 /* same function called for both monadic, dyadic */
#define DBL      128 /* double numeric type only, double axis value   */
#define FIRST    256 /* default axis is first dimension               */
#define LAST     512 /* default axis is last dimension                */
#define OPER    1024 /* operator                                      */
#define AXED    2048 /* axes, may be vector, dyadic                   */
#define AXEM    4096 /* axes, may be vector, monadic                  */
#define SESP    8192 /* selective specification function              */
#define AXES AXED+AXEM                       /* 2048 + 4096    = 6144 */
#define SCDO SCALAR+DYADIC                   /* 4 + 2          =    6 */
#define SCMD SCALAR+MONADIC+DYADIC           /* 4 + 1 + 2      =    7 */
#define MXMO MIXED+MONADIC                   /* 8 + 1          =    9 */
     /* mixed, monadic only (compute)                                 */
#define DYAE MIXED+DYADIC                    /* 8 + 2          =   10 */
     /* find                                                          */
#define MIXD MIXED+MONADIC+DYADIC            /* 8 + 1 + 2      =   11 */
#define UPAR MIXD+AXED                       /* 11 + 2048      = 2059 */
#define MSMD SCMD+MIXED                      /* 7 + 8          =   15 */
     /* monadic scalar, dyadic mixed, roll/deal not/without           */
#define MIXA MIXD+AXIS                       /* 11 + 16        =   27 */
#define EQNE SCDO+EQUALITY                   /* 6 + 32         =   38 */
#define SAME MIXED+MONADIC+DYADIC+DUAL       /* 8 + 1 + 2 + 64 =   75 */
#define DYDB MIXED+DYADIC+DBL                /* 8 + 2 + 128    =  138 */
     /* decode, encode                                                */
#define MIXC MIXA+DBL                        /* 27 + 128       =  155 */
     /* axis for laminate is double                                   */
#define MIXF MIXA+FIRST                      /* 27 + 256       =  283 */
#define MIXL MIXA+LAST                       /* 27 + 512       =  539 */
#define OPAX OPER+AXIS                       /* 1024 + 16      = 1040 */
     /* compress(slash) expand(slope)                                 */
#define OPAF OPAX+FIRST                      /* 1040 + 256     = 1296 */
     /* slash-bar/slope-bar                                           */
#define OPAL OPAX+LAST                       /* 1040 + 512     = 1552 */
     /* slash/slope                                                   */
#define DIXE DYAE+AXES                       /* 10 + 6144      = 6154 */
     /* drop2                                                         */
#define MIXE MIXD+AXES                       /* 11 + 6144      = 6155 */
	/* enclose, partition, ravel2                                    */
#define MIXG MIXD+AXEM                       /* 11 + 4096      = 4107 */
     /* disclose, pick                                                */
#define DIXS DIXE+SESP                       /* 6154 + 8192    =14346 */
     /* squadix                                                       */
#endif