future tense 'komma att' in scandinavian

This commit is contained in:
malin
2011-11-09 19:23:46 +00:00
parent 18ca88f9ed
commit 1ba9ffcff7
21 changed files with 82 additions and 50 deletions

View File

@@ -1,2 +1,2 @@
concrete CatNor of Cat = CommonX ** CatScand with
concrete CatNor of Cat = CommonX - [Tense, Temp] ** CatScand with
(ResScand = ResNor) ;

View File

@@ -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 {

View File

@@ -6,4 +6,6 @@ concrete ExtraNor of ExtraNorAbs = ExtraScandNor ** open CommonScand, ResNor, Pr
a = np.a
} ;
TFutKommer = {s = []} ** {t = SFutKommer} ; --# notpresent
}

View File

@@ -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)) ;