Parsing a Token

satisfy p = do s<-readState

case s of

[] -> failure

x:xs -> if p x then do writeState xs

return x

else failure

literal tok = satisfy (==tok)

Föregående bild

Nästa bild

Tillbaka till första bilden

Visa grafisk version