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

(Ara) add a few words in Structural and Construction

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-15 22:32:20 +01:00
parent 738091d170
commit 92126763c7
2 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/arabic/ConstructionAra.gf
View File

@@ -85,9 +85,12 @@ lin
myAge : NP = E.ApposNP me (mkNP (mkDet subjPron) L.name_N) ; myAge : NP = E.ApposNP me (mkNP (mkDet subjPron) L.name_N) ;
in mkQCl what_IP myAge ; in mkQCl what_IP myAge ;
-- hungry_VP = hungry_VP = mkVP hungry_A ;
-- thirsty_VP = thirsty_VP = mkVP thirsty_A ;
oper
hungry_A = mkA "جءع" "فَاعِل" ;
thirsty_A = mkA True "عطش" "فَعْلَان" "فَعْلَى" ;
lincat Language = N ; lincat Language = N ;
lin InLanguage l = mkAdv in_Prep (mkNP l) ; lin InLanguage l = mkAdv in_Prep (mkNP l) ;

8
src/arabic/StructuralAra.gf
View File

@@ -38,8 +38,8 @@ concrete StructuralAra of Structural = CatAra **
from_Prep = mkPrep "مِنَ" ; from_Prep = mkPrep "مِنَ" ;
he_Pron = ResAra.he_Pron ; he_Pron = ResAra.he_Pron ;
here_Adv = ss "هُنا" ; here_Adv = ss "هُنا" ;
-- here7to_Adv = ss ["تْ هري"] ; here7to_Adv = ss "إلَىَ هُنَا" ;
-- here7from_Adv = ss ["فرْم هري"] ; here7from_Adv = ss "مِنْ هُنَا" ;
how_IAdv = ss "كَيفَ" ; how_IAdv = ss "كَيفَ" ;
how8many_IDet = { how8many_IDet = {
s = \\g,s,c => "كَمْ عَدَد" + caseTbl ! c ; s = \\g,s,c => "كَمْ عَدَد" + caseTbl ! c ;
@@ -91,10 +91,10 @@ concrete StructuralAra of Structural = CatAra **
----b this_NP = indeclNP "هَذا" Sg ; ----b this_NP = indeclNP "هَذا" Sg ;
----b those_NP = indeclNP "هَؤُلَاءكَ" Pl ; ----b those_NP = indeclNP "هَؤُلَاءكَ" Pl ;
through_Prep = mkPrep "عَبْرَ" ; through_Prep = mkPrep "عَبْرَ" ;
-- too_AdA = ss "تّْ" ; too_AdA = very_AdA ;
to_Prep = mkPrep "إِلَى" ; to_Prep = mkPrep "إِلَى" ;
under_Prep = mkPrep "تَحْتَ" ; under_Prep = mkPrep "تَحْتَ" ;
very_AdA = ss "جِدّاً" ; very_AdA = ss "جِدَّاً" ;
want_VV = mkVV (mkV "رود" FormIV) ; want_VV = mkVV (mkV "رود" FormIV) ;
we_Pron = ResAra.we_Pron ; we_Pron = ResAra.we_Pron ;
whatPl_IP = mkIP "ما" "ماذا" Pl ; whatPl_IP = mkIP "ما" "ماذا" Pl ;