mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-24 02:12:50 -06:00
added the GF version of Talbanken which was imported by Malin
This commit is contained in:
27
treebanks/talbanken/Structure.hs
Normal file
27
treebanks/talbanken/Structure.hs
Normal file
@@ -0,0 +1,27 @@
|
||||
module Structure where
|
||||
|
||||
data SentenceType = Q | Dir | Top
|
||||
deriving (Show,Eq)
|
||||
|
||||
data NPType = Generic | Impers | Normal | Exist
|
||||
deriving (Show,Eq)
|
||||
|
||||
data VPForm = Cop | Sup | VV | VA
|
||||
| V | V2 | V2A | V2Pass
|
||||
| Fut | FutKommer
|
||||
| VS
|
||||
|
||||
deriving (Eq,Show)
|
||||
|
||||
data VForm a
|
||||
= VInf | VPart | VSupin | VImp | VTense a
|
||||
deriving (Show,Eq)
|
||||
|
||||
instance Functor VForm where
|
||||
fmap f VInf = VInf
|
||||
fmap f VPart = VPart
|
||||
fmap f VSupin = VSupin
|
||||
fmap f VImp = VImp
|
||||
fmap f (VTense t) = VTense (f t)
|
||||
|
||||
|
||||
Reference in New Issue
Block a user