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

(Pes) Add ICompAP to Extend

Browse Source
This commit is contained in:
Inari Listenmaa
2019-03-13 10:59:11 +01:00
parent 7790defb9e
commit 0291ac6f75
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/persian/ExtendPes.gf
View File

@@ -2,7 +2,7 @@
concrete ExtendPes of Extend = concrete ExtendPes of Extend =
CatPes ** ExtendFunctor - [ CatPes ** ExtendFunctor - [
GenNP, ApposNP GenNP, ApposNP, ICompAP
] ]
with (Grammar=GrammarPes) with (Grammar=GrammarPes)
** open Prelude, ResPes in { ** open Prelude, ResPes in {
@@ -18,4 +18,6 @@ lin
ApposNP np1 np2 = np1 ** { ApposNP np1 np2 = np1 ** {
s = \\m => np1.s ! m ++ np2.s ! m s = \\m => np1.s ! m ++ np2.s ! m
} ; } ;
ICompAP ap = {s = "چقدر" ++ ap.s ! Bare} ;
} }