mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-08 02:32:50 -06:00
GF/src is now for 2.9, and the new sources are in src-3.0 - keep it this way until the release of GF 3
This commit is contained in:
45
src-3.0/GF/CFGM/AbsCFG.hs
Normal file
45
src-3.0/GF/CFGM/AbsCFG.hs
Normal file
@@ -0,0 +1,45 @@
|
||||
module GF.CFGM.AbsCFG where
|
||||
|
||||
-- Haskell module generated by the BNF converter
|
||||
|
||||
newtype Ident = Ident String deriving (Eq,Ord,Show)
|
||||
newtype SingleQuoteString = SingleQuoteString String deriving (Eq,Ord,Show)
|
||||
data Grammars =
|
||||
Grammars [Grammar]
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Grammar =
|
||||
Grammar Ident [Flag] [Rule]
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Flag =
|
||||
StartCat Category
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Rule =
|
||||
Rule Fun Profiles Category [Symbol]
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Fun =
|
||||
Cons Ident
|
||||
| Coerce
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Profiles =
|
||||
Profiles [Profile]
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Profile =
|
||||
UnifyProfile [Integer]
|
||||
| ConstProfile Ident
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Symbol =
|
||||
CatS Category
|
||||
| TermS String
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
data Category =
|
||||
Category SingleQuoteString
|
||||
deriving (Eq,Ord,Show)
|
||||
|
||||
Reference in New Issue
Block a user