p.h

/* Copyright 1990-2011, Jsoftware Inc.  All rights reserved. */
/* License in license.txt.                                   */
/*                                                                         */
/* Parsing: Macros and Defined Constants                                   */


#define NCASES          9L           /* # of rows in cases parses table    */
#define ACTION(f)       A  f(J jt,I b,I e,A* stack)
#define TACT(f)         TA f(J jt,I b,I e,TA*stack)
#define IS(name,val)    symbis(name,val,jt->local)

typedef TA(*TAF)();
typedef struct{I c[4];AF f;TAF vf;I b,e,k;} PT;

/* c:  4-patterns for AT(x) of top 4 parser stack elements      */
/* f:  action                                                   */
/* vf: action for tacit verb translator                         */
/* b:  beginning index in stack that action applies to          */
/* e:  ending    index in stack that action applies to          */
/* k:  index in stack of error indicator                        */

extern PT       cases[];

extern TACT(jtvadv);
extern TACT(jtvconj);
extern TACT(jtvdyad);
extern TACT(jtvfolk);
extern TACT(jtvhook);
extern TACT(jtvis);
extern TACT(jtvmonad);
extern TACT(jtvpunc);

extern ACTION(jtadv);
extern ACTION(jtbident);
extern ACTION(jtconj);
extern ACTION(jtdyad);
extern ACTION(jtis);
extern ACTION(jtmonad);
extern ACTION(jtpunc);