mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
future tense 'komma att' in scandinavian
This commit is contained in:
@@ -1,2 +1,2 @@
|
||||
concrete CatNor of Cat = CommonX ** CatScand with
|
||||
concrete CatNor of Cat = CommonX - [Tense, Temp] ** CatScand with
|
||||
(ResScand = ResNor) ;
|
||||
|
||||
@@ -57,6 +57,8 @@ instance DiffNor of DiffScand = open CommonScand, Prelude in {
|
||||
noPart = {part = []} ;
|
||||
|
||||
auxFut = "vil" ; -- "skal" in ExtNor
|
||||
auxFutKommer = "kommer" ;
|
||||
auxFutPart = "til" ;
|
||||
auxCond = "ville" ;
|
||||
|
||||
negation : Polarity => Str = table {
|
||||
|
||||
@@ -6,4 +6,6 @@ concrete ExtraNor of ExtraNorAbs = ExtraScandNor ** open CommonScand, ResNor, Pr
|
||||
a = np.a
|
||||
} ;
|
||||
|
||||
TFutKommer = {s = []} ** {t = SFutKommer} ; --# notpresent
|
||||
|
||||
}
|
||||
|
||||
@@ -9,7 +9,7 @@ concrete IdiomNor of Idiom = CatNor **
|
||||
GenericCl vp = mkClause "man" (agrP3 Utr Sg) vp ;
|
||||
|
||||
CleftNP np rs = mkClause "det" (agrP3 Neutr 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 Neutr Sg)
|
||||
(insertObj (\\_ => ad.s ++ s.s ! Sub) (predV verbBe)) ;
|
||||
|
||||
Reference in New Issue
Block a user