GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-31 02:38:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Extend) Rename WhatSSC to EmbedSSlash and change type to SSlash -> SC

Browse Source
This commit is contained in:
Inari Listenmaa
2019-04-20 10:27:59 +02:00
parent dc819e2320
commit 40c8c5f923
9 changed files with 32 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/persian/ExtendPes.gf
View File

@@ -3,7 +3,7 @@
concrete ExtendPes of Extend =
CatPes ** ExtendFunctor - [
GenNP, ApposNP, ICompAP, AdvIsNP, InOrderToVP, ByVP
,GerundNP,GerundCN,GerundAdv,EmbedPresPart
,GerundNP,GerundCN,GerundAdv,EmbedPresPart,EmbedSSlash
]
with (Grammar=GrammarPes)
** open Prelude, ResPes in {
@@ -33,6 +33,9 @@ lin
-- : VP -> SC ;
EmbedPresPart vp = lin SC {s = showVPH Inf defaultAgr vp} ;
-- : SSlash -> SC
EmbedSSlash ss = {s = conjThat ++ ss.s ! Indic ++ ss.c2.s} ;
-- : Adv -> NP -> Cl -- here is the car / here are the cars
AdvIsNP adv np = mkClause (indeclNP adv.s ** {a = np.a}) (UseComp (CompNP np)) ;