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

(Ara) Add can_VV; make أَنْ a default c2 for VVs

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-01 11:52:46 +02:00
parent cf93875bfa
commit 3edc34ed56
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/ParadigmsAra.gf
View File

@@ -536,7 +536,7 @@ resource ParadigmsAra = open
mkVS v = v ** {lock_VS = <>} ;
mkVQ v = v ** {lock_VQ = <>} ;
regVV : V -> VV = \v -> lin VV v ** {c2 = []} ;
regVV : V -> VV = \v -> lin VV v ** {c2 = "أَنْ"} ;
c2VV : V -> Str -> VV = \v,prep -> regVV v ** {c2 = prep} ;
V0 : Type = V ;

5
src/arabic/StructuralAra.gf
View File

@@ -20,7 +20,8 @@ concrete StructuralAra of Structural = CatAra **
-- but_PConj = ss "بُت" ;
by8agent_Prep = ss "بِ" ;
by8means_Prep = ss "بِ" ;
-- can8know_VV, can_VV = {
can_VV = mkVV (mkV "طوع" FormX) ;
-- can8know_VV = {
-- s = table VVForm [["بي َبلي تْ"] ; "عَن" ; "عُْلد" ;
-- ["بّن َبلي تْ"] ; ["بِنغ َبلي تْ"] ; "عَنءت" ; "عُْلدنءت"] ;
-- isAux = True
@@ -50,7 +51,7 @@ concrete StructuralAra of Structural = CatAra **
-- more_CAdv = ss "مْري" ;
most_Predet = mkPredet "أَكثَر" True ;
much_Det = mkDet "الكَثِير مِنَ" Pl Const ;
must_VV = mkVV (v1 "وجب" a i) "أن" ;
must_VV = mkVV (v1 "وجب" a i) ;
-- s = table VVForm [["بي هَثي تْ"] ; "مُست" ; ["هَد تْ"] ;
-- ["هَد تْ"] ; ["هَثِنغ تْ"] ; "مُستنءت" ; ["هَدنءت تْ"]] ; ----
-- isAux = True