Ftpageh

記述例（app/src/Arithmetic.hs）

main :: IO ()
main = do
    input <- getLine
    result <- runProcessor mkProcessor input
    case result of
        Right sexp -> print sexp
        Left err -> putStrLn $ "error: " ++ show err

mkProcessor :: ProcessorT IO ArithmeticToken ArithmeticRule (SExp _ _)
mkProcessor = ProcessorT $ do
    token <- lex
    events <- parse token
    consume events

Library

• Copager2 : Copager2 本体
• ErrHandling : エラーハンドリング用ライブラリ
• Language : 言語定義ライブラリ

Example

普通のパーサ

• lang-arithmetic : 四則演算
• lang-json : JSON
• lang-pl0 : Pl/0
• lang-xml : Xml

エラーハンドリング

• errh-panicmode : パニックモード
• errh-corchuelo : Corchuelo (※)