/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* funassgs.h - APL2 V1.0.0 ********************************************
* Assignment statements included in funinit.c for scalar functions.    *
***********************************************************************/
#if !defined(FUNASSGS_INCL)
#define FUNASSGS_INCL
/* SCDO - Rela (boolean) */
  rela_init(x03, iand    , dbland  , and     ,
                 iandp   , dblandp , andp    , NULL    , NULL    );
  rela_init(x23, inand   , dblnand , nand    ,
                 inandp  , dblnandp, nandp   , NULL    , NULL    );
  rela_init(x28, ior     , dblor   , or      ,
                 iorp    , dblorp  , orp     , NULL    , NULL    );
  rela_init(x37, inor    , dblnor  , nor     ,
                 inorp   , dblnorp , norp    , NULL    , NULL    );
/* SCDO - Rela (relationals) */
  rela_init(x07, ilt     , dbllt   , lt      ,
                 iltp    , dblltp  , ltp     , NULL    , NULL    );
  rela_init(x09, igt     , dblgt   , gt      ,
                 igtp    , dblgtp  , gtp     , NULL    , NULL    );
  rela_init(x19, ile     , dblle   , le      ,
                 ilep    , dbllep  , lep     , NULL    , NULL    );
  rela_init(x32, ige     , dblge   , ge      ,
                 igep    , dblgep  , gep     , NULL    , NULL    );
/* SCMD - Scalars */
  scalars_init(x01, ifactorl, factorl , NULL    ,
                    NULL    , factorlp, NULL    , factorlx,
                    NULL    , binom   , NULL    ,
                    NULL    , binomp  , NULL    ,
                    NULL    , binomx  , NULL);
  scalars_init(x02, NULL    , recip   , NULL    ,
                    NULL    , recipp  , NULL    , recipx  ,
                    NULL    , divide  , NULL    ,
                    NULL    , dividep , NULL    ,
                    NULL    , dividex , NULL);
  scalars_init(x05, iconjug , conjug  , NULL    ,
                    NULL    , conjugp , NULL    , conjugx ,
                    NULL    , plus    , NULL    ,
                    NULL    , plusp   , NULL    ,
                    NULL    , plusx   , NULL);
  scalars_init(x15, iconjug , floor   , NULL    ,
                    NULL    , floorp  , NULL    , floorx  ,
                    imin    , dblmin  , NULL    ,
                    iminp   , dblminp , NULL    ,
                    NULL    , NULL    , NULL);
  scalars_init(x25, NULL    , ceil    , NULL    ,
                    NULL    , ceilp   , NULL    , ceilx   ,
                    imax    , dblmax  , NULL    ,
                    imaxp   , dblmaxp , NULL    ,
                    NULL    , NULL    , NULL);
  scalars_init(x30, isign   , signdbl , NULL    ,
                    NULL    , signdblp, NULL    , signdblx,
                    NULL    , times   , NULL    ,
                    NULL    , timesp  , NULL    ,
                    NULL    , timesx  , NULL);
  scalars_init(x34, inegativ, negative, NULL    ,
                    NULL    , negativp, NULL    , negativx,
                    NULL    , minus   , NULL    ,
                    NULL    , minusp  , NULL    ,
                    NULL    , minusx  , NULL);
  scalars_init(x40, iabs    , dabs    , NULL    ,
                    NULL    , dabsp   , NULL    , dabsx   ,
                    NULL    , residue , NULL    ,
                    NULL    , residuep, NULL    ,
                    NULL    , residuex, NULL);
/* SCMD - Scalars (but integer not supported) */
  scalars_init(x04, NULL    , exp     , NULL    ,
                    NULL    , expp    , NULL    , expx    ,
                    NULL    , power   , NULL    ,
                    NULL    , powerp  , NULL    ,
                    NULL    , powerx  , NULL);
  scalars_init(x11, NULL    , log     , NULL    ,
                    NULL    , logp    , NULL    , logx    ,
                    NULL    , logrithm, NULL    ,
                    NULL    , logrithp, NULL    ,
                    NULL    , logrithx, NULL);
  scalars_init(x22, NULL    , pitimes , NULL    ,
                    NULL    , pitimesp, NULL    , pitimesx,
                    NULL    , circular, NULL    ,
                    NULL    , circulap, NULL    ,
                    NULL    , circulax, NULL);
  scalars_init(x53, NULL    , NULL    , NULL    ,
                    NULL    , NULL    , NULL    , logamma ,
                    NULL    , NULL    , NULL    ,
                    NULL    , NULL    , NULL    ,
                    NULL    , NULL    , NULL);
#endif