/* Copyright (C) 1993 by Thomas Glen Smith.  All Rights Reserved. */
/* funmacs.h - APL2 V1.0.0 *********************************************
* Macros to facilitate funstruc initialization.                        *
***********************************************************************/
#if !defined(FUNMACS_INCL)
#define FUNMACS_INCL
#define dmxo_init(A,B,C) A.dyad.B=C
#define eqne_init(A,B,C,D,E,F,G,H,I,J,K,L,M,N)\
A.rel.dyad.funcs.epint=B; A.rel.dyad.funcs.epdbl=C; A.rel.dyad.funcs.epmix=D;\
A.rel.dyad.procs.ppint=E; A.rel.dyad.procs.ppdbl=F; A.rel.dyad.procs.ppmix=G;\
A.rel.dyad.procs.ppchr=H; A.rel.dyad.procs.ppcpx=I; A.rel.dyad.procs.ppmpx=J;\
A.ch=K; A.ph=L; A.pd=M; A.eqnedum=N;
#define mixa_init(A,B,C,D,E) A.mona.B=C; A.dyad.D=E
#define scalars_init(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q)\
A.mona.funcs.epint=B; A.mona.funcs.epdbl=C; A.mona.funcs.epmix=D;\
A.mona.procs.ppint=E; A.mona.procs.ppdbl=F; A.mona.procs.ppmix=G;\
A.mona.procs.ppcpx=H;\
A.dyad.funcs.epint=I; A.dyad.funcs.epdbl=J; A.dyad.funcs.epmix=K;\
A.dyad.procs.ppint=L; A.dyad.procs.ppdbl=M; A.dyad.procs.ppmix=N;\
A.dyad.procs.ppchr=O; A.dyad.procs.ppcpx=P; A.dyad.procs.ppmpx=Q
#define msmd_init(A,B,C,D,E,F,G,H,I,J)\
A.mona.funcs.epint=B; A.mona.funcs.epdbl=C; A.mona.funcs.epmix=D;\
A.mona.procs.ppint=E; A.mona.procs.ppdbl=F; A.mona.procs.ppmix=G;\
A.mona.procs.ppcpx=H; A.dyad.I=J
#define rela_init(A,B,C,D,E,F,G,H,I)\
A.dyad.funcs.epint=B; A.dyad.funcs.epdbl=C; A.dyad.funcs.epmix=D;\
A.dyad.procs.ppint=E; A.dyad.procs.ppdbl=F; A.dyad.procs.ppmix=G;\
A.dyad.procs.ppchr=H; A.dyad.procs.ppcpx=I
#endif