msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

Finnish negative NPs: retaining 'ei' in UttNP and ExistNPAdv

Browse Source
This commit is contained in:
Aarne Ranta
2019-01-02 19:32:32 +01:00
parent 96ed277830
commit 7bd08f9bde
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/finnish/IdiomFin.gf
View File

@@ -75,7 +75,7 @@ concrete IdiomFin of Idiom = CatFin **
} ;
ExistNPAdv np adv =
mkClause (\_ -> adv.s) np.a (insertObj
mkClausePol np.isNeg (\_ -> adv.s) np.a (insertObj
(\\_,b,_ => np.s ! NPSep) (predV vpVerbOlla)) ;
ExistIPAdv ip adv =

6
src/finnish/PhraseFin.gf
View File

@@ -11,8 +11,8 @@ concrete PhraseFin of Phrase = CatFin ** open ResFin, StemFin, (P = Prelude) in
UttIP ip = {s = ip.s ! NPCase Nom} ;
UttIAdv iadv = iadv ;
UttNP np = {s = np.s ! NPSep} ;
UttVP vp = {s = infVP SCNom Pos (agrP3 Sg) vp Inf1} ;
UttNP np = {s = addNegation np.isNeg ++ np.s ! NPSep} ;
UttVP vp = {s = addNegation vp.vptyp.isNeg ++ infVP SCNom Pos (agrP3 Sg) vp Inf1} ;
UttAdv adv = adv ;
UttCN np = {s = np.s ! NCase Sg Nom} ;
UttAP np = {s = np.s ! P.False ! NCase Sg Nom} ;
@@ -25,4 +25,6 @@ concrete PhraseFin of Phrase = CatFin ** open ResFin, StemFin, (P = Prelude) in
NoVoc = {s = []} ;
VocNP np = {s = "," ++ np.s ! NPSep} ;
oper
addNegation : P.Bool -> Str = \isNeg -> case isNeg of {P.True => "ei" ; _ => []} ;
}