GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 18:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

nominalization in Extra Dut and Eng (from Ramona)

Browse Source
This commit is contained in:
aarne
2012-06-06 09:48:05 +00:00
parent 694564d275
commit 1838781123
6 changed files with 51 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/dutch/ExtraDut.gf
View File

@@ -1,5 +1,5 @@
concrete ExtraDut of ExtraDutAbs = CatDut **
open ResDut, Coordination, Prelude, IrregDut in
open ResDut, MorphoDut, Coordination, Prelude, IrregDut in
{
--{
--
@@ -113,4 +113,14 @@ lin
ConjVPS = conjunctDistrTable2 Order Agr ;
lin
NominalizeVPSlashNP vpslash np =
let vp : ResDut.VP = insertObjNP np.isPron (\\_ => appPrep vpslash.c2 np.s) vpslash ;
agrDef : Agr = agrP3 Sg ;
compl : Str = vp.n0 ! agrDef ++ vp.a1 ! Pos ++ vp.n2 ! agrDef ++ vp.s.prefix ;
inf : Str = vp.inf.p1 ;
extra : Str = vp.ext
in
lin NP (MorphoDut.mkNP (vp.s.s ! VInf ++ "van" ++ compl ++ inf ++ extra ) Utr Sg) ;
}