GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-17 23:30:14 -06:00
Code Issues Packages Projects Releases Wiki Activity

pos-neg and ExistCN in Finnish

Browse Source
This commit is contained in:
Aarne Ranta
2017-11-08 14:47:33 +01:00
parent 72b257b9b7
commit 9c762efcb4
2 changed files with 31 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/finnish/ExtendFin.gf
View File

@@ -1,7 +1,10 @@
--# -path=.:../common:../abstract
concrete ExtendFin of Extend =
CatFin ** ExtendFunctor - [VPI2,VPS2,MkVPS2,ConjVPS2,ComplVPS2,MkVPI2,ConjVPI2,ComplVPI2,ComplVPIVV]
CatFin ** ExtendFunctor - [
VPI2,VPS2,MkVPS2,ConjVPS2,ComplVPS2,MkVPI2,ConjVPI2,ComplVPI2,ComplVPIVV
,ExistCN, ExistMassCN
]
with
(Grammar = GrammarFin) **
@@ -15,6 +18,26 @@ concrete ExtendFin of Extend =
MorphoFin,
ParadigmsFin in {
lin
ExistCN cn =
let
pos = ExistNP (DetCN (DetQuant IndefArt NumSg) cn) ;
neg = ExistNP (partCN cn) ;
in posNegClause pos neg ;
ExistMassCN cn = ExistNP (partCN cn) ;
oper
partCN : CN -> GrammarFin.NP ;
partCN cn =
let
acn = DetCN (DetQuant IndefArt NumSg) cn
in acn ** {
s = table {
NPCase Nom | NPAcc => acn.s ! NPCase ResFin.Part ;
c => acn.s ! c
}
} ;
lincat
VPS = {s : Agr => Str } ;