1: #define RECURSE(p,v,r)  { for (r = 0; r < CHILDNUM(v); ++r) if (DEFINED(LCHILD(v,r))) p(LCHILD(v,r)); if (DEFINED(RSIB(v))) p(RSIB(v)); }
   2: 
   3: #define IFTHEN(v)       ( NTYPE(v) == IFVX && !DEFINED(LCHILD(v,ELSE)))
   4: 
   5: #define BRK(v)  FATH(v)     /* lexical successor of v, for ITERVX only */
   6: #define LABEL(v)    REACH(v)
Last modified: 1981-07-10
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 612
Valid CSS Valid XHTML 1.0 Strict