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

(Extend) Add RelVPS : RP -> VPS -> RS

Browse Source 
Implemented in Swe and Eng, empty variants in ExtendFunctor.
This commit is contained in:
Inari Listenmaa
2021-05-04 12:17:40 +08:00
parent 310e143bea
commit cc75637704
4 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/english/ExtendEng.gf
View File

@@ -5,7 +5,7 @@ concrete ExtendEng of Extend =
[
VPS, ListVPS, VPI, ListVPI, VPS2, ListVPS2, VPI2, ListVPI2, RNP, RNPList,
AdAdV, AdjAsCN, AdjAsNP, ApposNP, AdvIsNP,
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, QuestVPS, SQuestVPS,
MkVPS, BaseVPS, ConsVPS, ConjVPS, PredVPS, QuestVPS, SQuestVPS, RelVPS,
MkVPI, BaseVPI, ConsVPI, ConjVPI, ComplVPIVV,
MkVPS2, BaseVPS2, ConsVPS2, ConjVPS2, ComplVPS2, ReflVPS2,
MkVPI2, BaseVPI2, ConsVPI2, ConjVPI2, ComplVPI2,
@@ -127,6 +127,11 @@ concrete ExtendEng of Extend =
QuestVPS ip vps = let vp = vps.s ! oDir ! toAgr ip.n P3 Neutr in {
s = \\q => ip.s ! npNom ++ vp.fin ++ vp.inf
} ;
RelVPS rp vps = {
s = \\agr => let vp = vps.s ! oDir ! agr in
rp.s ! RC (fromAgr agr).g npNom ++ vp.fin ++ vp.inf ;
c = npNom ;
} ;
MkVPI vp = mkVPI (lin VP vp) ;