local AbSyn abqParseSrcLines(SrcLineList sll) { AbSyn ab; TokenList tl; tl = scan(sll); tl = linearize(tl); ab = parse(&tl); ab = abNormal(ab, false); ab = macroExpand(ab); ab = abNormal(ab, true); return ab; }
local AbSyn shexpParse(String txt) { AbSyn ab; TokenList tl; SrcLineList sll; SrcLine srcLine = slineNew(sposNone, 0, txt); sll = listList(SrcLine)(1, srcLine); tl = scan(sll); tl = linearize(tl); ab = parse(&tl); ab = abNormal(ab, false); ab = macroExpand(ab); ab = abNormal(ab, true); return ab; }
AbSyn compPhaseAbNorm(EmitInfo finfo, AbSyn ab, Bool afterMacex) { phStart(PH_AbNorm); ab = abNormal(ab, afterMacex); /* modifies the tree in-place */ phEnd((PhPrFun) abPrint, (PhPrFun) abPrettyPrint, (Pointer) ab); return ab; }