GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) add how_old_QCl and why_IAdv

Browse Source
This commit is contained in:
Inari Listenmaa
2018-12-29 21:25:51 +02:00
parent 8ce0578b53
commit 57101f7808
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 ; what_IP : R.IP = R.mkIP "مَا هُوَ" R.Sg ;
in mkQCl what_IP myName ; 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 = -- hungry_VP =
-- thirsty_VP = -- thirsty_VP =

2
src/arabic/StructuralAra.gf
View File

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