src/GF/API/MyParser.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module MyParser where

import ShellState
import CFIdent
import CF
import Operations

-- template to define your own parser

-- type CFParser = [CFTok] -> ([(CFTree,[CFTok])],String)

myParser :: StateGrammar -> CFCat -> CFParser
myParser gr cat toks = ([],"Would you like to add your own parser?")