forked from GitHub/gf-core
116 lines
4.4 KiB
Plaintext
116 lines
4.4 KiB
Plaintext
concrete StructuralAra of Structural = CatAra **
|
|
open MorphoAra, ResAra, ParadigmsAra, Prelude in {
|
|
|
|
flags optimize=all ;
|
|
|
|
lin
|
|
-- above_Prep = ss "َبْثي" ;
|
|
-- after_Prep = ss "َفتر" ;
|
|
-- all_Predet = ss "َلّ" ;
|
|
-- almost_AdA, almost_AdN = ss "َلمْست" ;
|
|
-- although_Subj = ss "َلتهُْغه" ;
|
|
-- always_AdV = ss "َلوَيس" ;
|
|
and_Conj = ss "وَ" ** {n = Pl} ;
|
|
-- because_Subj = ss "بعَُسي" ;
|
|
-- before_Prep = ss "بفْري" ;
|
|
-- behind_Prep = ss "بهِند" ;
|
|
-- between_Prep = ss "بتوّن" ;
|
|
-- both7and_DConj = sd2 "بْته" "َند" ** {n = Pl} ;
|
|
-- but_PConj = ss "بُت" ;
|
|
-- by8agent_Prep = ss "بي" ;
|
|
-- by8means_Prep = ss "بي" ;
|
|
-- can8know_VV, can_VV = {
|
|
-- s = table VVForm [["بي َبلي تْ"] ; "عَن" ; "عُْلد" ;
|
|
-- ["بّن َبلي تْ"] ; ["بِنغ َبلي تْ"] ; "عَنءت" ; "عُْلدنءت"] ;
|
|
-- isAux = True
|
|
-- } ;
|
|
-- during_Prep = ss "دُرِنغ" ;
|
|
-- either7or_DConj = sd2 "ِتهر" "ْر" ** {n = Sg} ;
|
|
-- everybody_NP = regNP "ثريبْدي" Sg ;
|
|
every_Det = mkDet "كُلّ" Sg Const ;
|
|
-- everything_NP = regNP "ثريتهِنغ" Sg ;
|
|
-- everywhere_Adv = ss "ثريوهري" ;
|
|
few_Det = mkDet "بَعض" Pl Const ;
|
|
-- first_Ord = ss "فِرست" ;
|
|
-- from_Prep = ss "فرْم" ;
|
|
he_Pron = mkNP "هُوَ" "هُ" "هُ" (Per3 Masc Sg) ;
|
|
here_Adv = ss "هُنا" ;
|
|
-- here7to_Adv = ss ["تْ هري"] ;
|
|
-- here7from_Adv = ss ["فرْم هري"] ;
|
|
how_IAdv = ss "كَيفَ" ;
|
|
-- how8many_IDet = mkDeterminer Pl ["هْو مَني"] ;
|
|
-- if_Subj = ss "ِف" ;
|
|
-- in8front_Prep = ss ["ِن فرْنت ْف"] ;
|
|
i_Pron = mkNP "أَنَا" "نِي" "ِي" (Per1 Sing);
|
|
in_Prep = ss "فِي" ;
|
|
-- it_Pron = mkNP "ِت" "ِت" "ِتس" Sg P3 ;
|
|
-- less_CAdv = ss "لسّ" ;
|
|
many_Det = mkDet "جَمِيع" Pl Const ;
|
|
-- more_CAdv = ss "مْري" ;
|
|
-- most_Predet = ss "مْست" ;
|
|
much_Det = mkDet "الكَثِير" Pl Const ;
|
|
-- must_VV = {
|
|
-- s = table VVForm [["بي هَثي تْ"] ; "مُست" ; ["هَد تْ"] ;
|
|
-- ["هَد تْ"] ; ["هَثِنغ تْ"] ; "مُستنءت" ; ["هَدنءت تْ"]] ; ----
|
|
-- isAux = True
|
|
-- } ;
|
|
-- no_Phr = ss "نْ" ;
|
|
-- on_Prep = ss "ْن" ;
|
|
one_Quant = mkQuantNum "واحِد" Sg Indef ;
|
|
-- only_Predet = ss "ْنلي" ;
|
|
-- or_Conj = ss "ْر" ** {n = Sg} ;
|
|
-- otherwise_PConj = ss "ْتهروِسي" ;
|
|
-- part_Prep = ss "ْف" ;
|
|
-- please_Voc = ss "ةلَسي" ;
|
|
-- possess_Prep = ss "ْف" ;
|
|
-- quite_Adv = ss "قُِتي" ;
|
|
-- she_Pron = mkNP "سهي" "هر" "هر" Sg P3 ;
|
|
-- so_AdA = ss "سْ" ;
|
|
-- somebody_NP = regNP "سْمبْدي" Sg ;
|
|
someSg_Det = mkDet "أَحَد" Pl Const ;
|
|
somePl_Det = mkDet "بَعض" Pl Const ;
|
|
-- something_NP = regNP "سْمتهِنغ" Sg ;
|
|
-- somewhere_Adv = ss "سْموهري" ;
|
|
that_Quant = mkQuant3 "ذَلِكَ" "تِلكَ" "أُلٱِكَ" Def;
|
|
-- that_NP = regNP "تهَت" Sg ;
|
|
there_Adv = ss "هُناك" ;
|
|
-- there7to_Adv = ss "تهري" ;
|
|
-- there7from_Adv = ss ["فرْم تهري"] ;
|
|
-- therefore_PConj = ss "تهرفْري" ;
|
|
-- these_NP = regNP "تهسي" Pl ;
|
|
they_Pron = mkNP "هُمْ" "هُمْ" "هُمْ" (Per3 Masc Pl) ;
|
|
this_Quant = mkQuant7 "هَذا" "هَذِهِ" "هَذَان" "هَذَيْن" "هَاتَان" "هَاتَيْن" "هَؤُلَاء" Def;
|
|
-- this_NP = regNP "تهِس" Sg ;
|
|
-- those_NP = regNP "تهْسي" Pl ;
|
|
-- through_Prep = ss "تهرُْغه" ;
|
|
-- too_AdA = ss "تّْ" ;
|
|
-- to_Prep = ss "تْ" ;
|
|
-- under_Prep = ss "ُندر" ;
|
|
-- very_AdA = ss "ثري" ;
|
|
-- want_VV = P.mkVV (P.regV "وَنت") ;
|
|
we_Pron = mkNP "نَحنُ" "نا" "نا" (Per1 Plur) ;
|
|
whatPl_IP = mkIP "ماذا" Pl ;
|
|
whatSg_IP = mkIP "ماذا" Sg ;
|
|
when_IAdv = ss "مَتَى" ;
|
|
-- when_Subj = ss "وهن" ;
|
|
where_IAdv = ss "أَينَ" ;
|
|
-- whichPl_IDet = mkDeterminer Pl ["وهِعه"] ;
|
|
-- whichSg_IDet = mkDeterminer Sg ["وهِعه"] ;
|
|
whoSg_IP = mkIP "مَنْ" Sg ;
|
|
whoPl_IP = mkIP "مَنْ" Pl ;
|
|
-- why_IAdv = ss "وهي" ;
|
|
-- without_Prep = ss "وِتهُْت" ;
|
|
with_Prep = ss "مَع" ;
|
|
-- yes_Phr = ss "يس" ;
|
|
youSg_Pron = mkNP "أَنتَ" "كَ" "كَ" (Per2 Masc Sg) ;
|
|
youPl_Pron = mkNP "أَنتُمْ" "كُمْ" "كُمْ" (Per2 Masc Sg) ;
|
|
youPol_Pron = mkNP "أَنتِ" "كِ" "كِ" (Per2 Fem Sg) ;
|
|
--
|
|
--
|
|
--oper
|
|
-- mkQuant : Str -> Str -> {s : Number => Str} = \x,y -> {
|
|
-- s = table Number [x ; y]
|
|
-- } ;
|
|
--
|
|
}
|