From 3edc34ed56491dfe5aa56b364b7391376499cb0c Mon Sep 17 00:00:00 2001 From: Inari Listenmaa Date: Mon, 1 Oct 2018 11:52:46 +0200 Subject: [PATCH] =?UTF-8?q?(Ara)=20Add=20can=5FVV;=20make=20=D8=A3=D9=8E?= =?UTF-8?q?=D9=86=D9=92=20a=20default=20c2=20for=20VVs?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/arabic/ParadigmsAra.gf | 2 +- src/arabic/StructuralAra.gf | 5 +++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf index 5645c7368..6edfea7c3 100644 --- a/src/arabic/ParadigmsAra.gf +++ b/src/arabic/ParadigmsAra.gf @@ -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 ; diff --git a/src/arabic/StructuralAra.gf b/src/arabic/StructuralAra.gf index 36ba135be..fb7ae0b12 100644 --- a/src/arabic/StructuralAra.gf +++ b/src/arabic/StructuralAra.gf @@ -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