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

(Fin) Add CompoundN

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-05 10:39:06 +02:00
parent 479a44b6a0
commit c0ce537104
1 changed files with 21 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/finnish/ExtendFin.gf
View File

@@ -4,6 +4,7 @@ concrete ExtendFin of Extend =
CatFin ** ExtendFunctor - [ CatFin ** ExtendFunctor - [
VPI2,VPS2,MkVPS2,ConjVPS2,ComplVPS2,MkVPI2,ConjVPI2,ComplVPI2,ComplVPIVV VPI2,VPS2,MkVPS2,ConjVPS2,ComplVPS2,MkVPI2,ConjVPI2,ComplVPI2,ComplVPIVV
,ExistCN, ExistMassCN ,ExistCN, ExistMassCN
,CompoundN
] ]
with with
(Grammar = GrammarFin) ** (Grammar = GrammarFin) **
@@ -109,4 +110,10 @@ oper
s = \\vt,agr => S.infVP vp.s.sc Pos agr vp (vvtype2infform vt) ; s = \\vt,agr => S.infVP vp.s.sc Pos agr vp (vvtype2infform vt) ;
sc = vp.s.sc } ; sc = vp.s.sc } ;
lin
CompoundN n1 n2 =
let ukkos_ = (S.snoun2nounBind n1).s ! NCompound in {
s = \\c => ukkos_ ++ BIND ++ n2.s ! c ;
h = n2.h
} ;
} }