parser-c 0.3.0

Macros for parser-c.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29


{
module Parser (parse) where

import Lexer (lex_tok)
import ParserM (Token(..), Tree(..), ParserM, run_parser, get_pos, show_pos,
                happyError)
}

%name      parsex tree
%tokentype { Token }
%monad     { ParserM }
%lexer     { lex_tok } { TEOF }

%token
    fork { TFork }
    leaf { TLeaf }

%%

tree :: { Tree }
tree : leaf           { Leaf }
     | fork tree tree { Fork $2 $3 }

{
parse :: String -> Either String Tree
parse = run_parser parsex
}