summaryrefslogtreecommitdiff
path: root/src-3.0/GF/API/MyParser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src-3.0/GF/API/MyParser.hs')
-rw-r--r--src-3.0/GF/API/MyParser.hs25
1 files changed, 25 insertions, 0 deletions
diff --git a/src-3.0/GF/API/MyParser.hs b/src-3.0/GF/API/MyParser.hs
new file mode 100644
index 000000000..c926fe865
--- /dev/null
+++ b/src-3.0/GF/API/MyParser.hs
@@ -0,0 +1,25 @@
+----------------------------------------------------------------------
+-- |
+-- Module : MyParser
+-- Maintainer : Peter Ljunglöf
+-- Stability : (stable)
+-- Portability : (portable)
+--
+-- > CVS $Date: 2005/04/21 16:21:07 $
+-- > CVS $Author: bringert $
+-- > CVS $Revision: 1.6 $
+--
+-- template to define your own parser (obsolete?)
+-----------------------------------------------------------------------------
+
+module GF.API.MyParser (myParser) where
+
+import GF.Compile.ShellState
+import GF.CF.CFIdent
+import GF.CF.CF
+import GF.Data.Operations
+
+-- type CFParser = [CFTok] -> ([(CFTree,[CFTok])],String)
+
+myParser :: StateGrammar -> CFCat -> CFParser
+myParser gr cat toks = ([],"Would you like to add your own parser?")