1: /*	3.def.h	4.2	83/08/11	*/
   2: 
   3: #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)); }
   4: 
   5: #define IFTHEN(v)       ( NTYPE(v) == IFVX && !DEFINED(LCHILD(v,ELSE)))
   6: 
   7: #define BRK(v)  FATH(v)     /* lexical successor of v, for ITERVX only */
   8: #define LABEL(v)    REACH(v)
Last modified: 1983-08-12
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 582
Valid CSS Valid XHTML 1.0 Strict