GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 19:48:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Romance) add lins

Browse Source 
- add AdVVPSlash, AdvVPSlash, CountNP, PartNP
- simplify opers using record extension
- rm CountNP from NounPor
This commit is contained in:
odanoburu
2018-06-26 17:35:37 -03:00
parent a730a3194b
commit 29c044a315
4 changed files with 18 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/romance/ResRomance.gf
+6 -20
View File
@@ -77,7 +77,6 @@ oper
oper
predV : Verb -> VP = \verb ->
let
typ = verb.vtyp ;
@@ -111,16 +110,9 @@ oper
ext = vp.ext ;
} ;
insertComplement : (Agr => Str) -> VP -> VP = \co,vp -> {
s = vp.s ;
agr = vp.agr ;
clit1 = vp.clit1 ;
clit2 = vp.clit2 ;
clit3 = vp.clit3 ;
isNeg = vp.isNeg ; --- can be in compl as well
neg = vp.neg ;
insertComplement : (Agr => Str) -> VP -> VP ;
insertComplement co vp = vp ** {
comp = \\a => vp.comp ! a ++ co ! a ;
ext = vp.ext ;
} ;
@@ -141,16 +133,10 @@ oper
comp = \\a => vp.comp ! a ++ co ;
} ;
insertAdV : Str -> VP -> VP = \co,vp -> {
s = vp.s ;
agr = vp.agr ;
clit1 = vp.clit1 ;
clit2 = vp.clit2 ;
clit3 = vp.clit3 ;
isNeg = vp.isNeg ;
neg = \\b => let vpn = vp.neg ! b in {p1 = vpn.p1 ; p2 = vpn.p2 ++ co} ;
comp = vp.comp ;
ext = vp.ext ;
insertAdV : Str -> VP -> VP ;
insertAdV co vp = vp ** {
neg = \\b => let vpn = vp.neg ! b
in {p1 = vpn.p1 ; p2 = vpn.p2 ++ co}
} ;
insertClit3 : Str -> VP -> VP = \co,vp -> {