Lines Matching refs:zNext

185 zNext :: ZCursor a -> Zipper a
186 zNext (ZCursor c above below) =  function
207                     then loop state (zNext z)
209                                                (skipFalseConditional (zNext z))
210             "endif" -> loop state (zNext z)
213                 loop (lineSync && sync, colSync && sync) (zNext z)
216         loop state' (zNext z)
331       "if" -> either Left skipFalseConditional $ skipFullConditional 0 (zNext z)
332       "ifdef" -> either Left skipFalseConditional $ skipFullConditional 0 (zNext z)
333       "ifndef" -> either Left skipFalseConditional $ skipFullConditional 0 (zNext z)
336       "endif" -> Right $ zNext z
337       _ -> skipFalseConditional (zNext z)
338 skipFalseConditional (Zipper z) = skipFalseConditional (zNext z)
345       "if" -> skipFullConditional (nest+1) (zNext z)
346       "ifdef" -> skipFullConditional (nest+1) (zNext z)
347       "ifndef" -> skipFullConditional (nest+1) (zNext z)
348       "endif" | nest > 0 -> skipFullConditional (nest-1) (zNext z)
349       "endif" | otherwise -> Right $ zNext z
350       _ -> skipFullConditional nest (zNext z)
351 skipFullConditional nest (Zipper z) = skipFullConditional nest (zNext z)