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

Merge pull request #112 from inariksit/arabic

Browse Source 
(Ara) add how_old_QCl and why_IAdv
This commit is contained in:
Inari Listenmaa
2018-12-29 21:30:51 +02:00
committed by GitHub
parent 8ce0578b53 57101f7808
commit 459e51f9b9
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/arabic/ConstructionAra.gf
View File

@@ -69,7 +69,12 @@ lin
what_IP : R.IP = R.mkIP "مَا هُوَ" R.Sg ;
in mkQCl what_IP myName ;
-- how_old_QCl
how_old_QCl np =
let subjPron : Pron = R.np2pron np ;
me : R.NP = toNP np.a.isPron np ;
age_N = mkN "عُمر" ;
myAge : NP = E.ApposNP me (mkNP (mkDet subjPron) L.name_N) ;
in mkQCl what_IP myAge ;
-- hungry_VP =
-- thirsty_VP =

2
src/arabic/StructuralAra.gf
View File

@@ -114,7 +114,7 @@ concrete StructuralAra of Structural = CatAra **
} ;
whoSg_IP = mkIP "مَنْ" "مَنْ" Sg ;
whoPl_IP = mkIP "مَنْ" "مَنْ" Pl ;
-- why_IAdv = ss "وهي" ;
why_IAdv = ss "لِمَاذَا" ;
without_Prep = mkPrep "بِدُونِ" ;
with_Prep = mkPrep "مَع" ;
yes_Utt = {s = \\_ => "نَعَم"} ;