forked from GitHub/gf-core
future tense 'komma att' in scandinavian
This commit is contained in:
@@ -1,2 +1,2 @@
|
||||
concrete CatDan of Cat = CommonX ** CatScand with
|
||||
concrete CatDan of Cat = CommonX -[Tense, Temp] ** CatScand with
|
||||
(ResScand = ResDan) ;
|
||||
|
||||
@@ -47,6 +47,8 @@ instance DiffDan of DiffScand = open CommonScand, Prelude in {
|
||||
{part = [] ; isVaere = True} ;
|
||||
|
||||
auxFut = "vil" ; -- "skal" in ExtDan
|
||||
auxFutKommer = "vil" ;
|
||||
auxFutPart = "" ;
|
||||
auxCond = "ville" ;
|
||||
|
||||
negation : Polarity => Str = table {
|
||||
|
||||
@@ -8,7 +8,7 @@ concrete IdiomDan of Idiom = CatDan **
|
||||
GenericCl vp = mkClause "man" (agrP3 MorphoDan.utrum Sg) vp ;
|
||||
|
||||
CleftNP np rs = mkClause "det" (agrP3 MorphoDan.neutrum Sg)
|
||||
(insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a) (predV verbBe)) ;
|
||||
(insertObj (\\_ => np.s ! rs.c ++ rs.s ! np.a ! RNom) (predV verbBe)) ;
|
||||
|
||||
CleftAdv ad s = mkClause "det" (agrP3 MorphoDan.neutrum Sg)
|
||||
(insertObj (\\_ => ad.s ++ s.s ! Sub) (predV verbBe)) ;
|
||||
|
||||
Reference in New Issue
Block a user