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

(Ara) add the preposition ka 'كَ' which attaches to its head

Browse Source
This commit is contained in:
Inari Listenmaa
2025-08-22 14:27:10 +02:00
parent f2afe03303
commit 97227181fe
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/arabic/MorphoAra.gf
View File

@@ -70,6 +70,8 @@ oper
_ => "لِ" _ => "لِ"
}) Dat ; }) Dat ;
biPrep : Preposition = mkPrefix "بِ" ; biPrep : Preposition = mkPrefix "بِ" ;
kaPrep : Preposition = mkPrefix "كَ" ;
accPrep : Preposition = mkPreposition [] Acc ; -- default object case in VP accPrep : Preposition = mkPreposition [] Acc ; -- default object case in VP
genPrep : Preposition = mkPreposition [] Gen ; -- default object case in N2 genPrep : Preposition = mkPreposition [] Gen ; -- default object case in N2
@@ -502,17 +504,17 @@ oper
AComp d c => comp ! Sg ! d ! c AComp d c => comp ! Sg ! d ! c
} }
} ; } ;
mascFemCompAdj : (kabir, kabira, akbar : Str) -> Adj = mascFemCompAdj : (kabir, kabira, akbar : Str) -> Adj =
\kabir, kabira, akbar -> \kabir, kabira, akbar ->
ntablesAdj (positAdj kabir ! Masc) (positAdj kabir ! Fem) (positAdj akbar ! Masc) ; ntablesAdj (positAdj kabir ! Masc) (positAdj kabir ! Fem) (positAdj akbar ! Masc) ;
mascFemAdj : (kabir, kabira : Str) -> Adj = \kabir, kabira -> mascFemAdj : (kabir, kabira : Str) -> Adj = \kabir, kabira ->
mascFemCompAdj kabir kabira kabir ; ---- comp mascFemCompAdj kabir kabira kabir ; ---- comp
mascAdj : (kabir : Str) -> Adj = \kabir -> mascAdj : (kabir : Str) -> Adj = \kabir ->
mascFemAdj kabir (kabir + "َة") ; mascFemAdj kabir (kabir + "َة") ;
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
----------------------------------------------------------------------------- -----------------------------------------------------------------------------

10
src/arabic/ParadigmsAra.gf
View File

@@ -99,7 +99,7 @@ resource ParadigmsAra = open
mkLN = overload { mkLN = overload {
mkLN : Str -> LN -- Predictable LN from a Str: fem hum if ends in ة, otherwise masc hum. mkLN : Str -> LN -- Predictable LN from a Str: fem hum if ends in ة, otherwise masc hum.
= \s -> lin LN (N.UsePN (smartPN s)) ; = \s -> lin LN (N.UsePN (smartPN s)) ;
mkLN : Str -> Gender -> LN mkLN : Str -> Gender -> LN
= \s, g -> lin LN (N.UsePN (smartPN s ** {g = g})) ; = \s, g -> lin LN (N.UsePN (smartPN s ** {g = g})) ;
mkLN : N -> LN -- Make a LN out of N. The LN is in construct state. mkLN : N -> LN -- Make a LN out of N. The LN is in construct state.
= \n -> lin LN (N.MassNP (N.UseN n)) ; = \n -> lin LN (N.MassNP (N.UseN n)) ;
@@ -202,6 +202,7 @@ resource ParadigmsAra = open
liPrep : Prep ; -- The preposition لِ, binding to its head. Vowel assimilation and def. article elision implemented. liPrep : Prep ; -- The preposition لِ, binding to its head. Vowel assimilation and def. article elision implemented.
biPrep : Prep ; -- The preposition بِ, binding to its head. biPrep : Prep ; -- The preposition بِ, binding to its head.
kaPrep : Prep ; -- The preposition كَ, binding to its head.
noPrep : Prep ; -- No preposition at all, "complement case" is nominative. noPrep : Prep ; -- No preposition at all, "complement case" is nominative.
--2 Conjunctions --2 Conjunctions
@@ -375,6 +376,7 @@ resource ParadigmsAra = open
noPrep = lin Prep ResAra.noPrep ; noPrep = lin Prep ResAra.noPrep ;
biPrep = lin Prep ResAra.biPrep ; biPrep = lin Prep ResAra.biPrep ;
liPrep = lin Prep ResAra.liPrep ; liPrep = lin Prep ResAra.liPrep ;
kaPrep = lin Prep ResAra.kaPrep ;
casePrep : Case -> Prep = \c -> lin Prep {s=[]; c=c; binds=False} ; casePrep : Case -> Prep = \c -> lin Prep {s=[]; c=c; binds=False} ;
@@ -914,7 +916,7 @@ oper
wmkN : {sg, pl : Str ; g : Gender} -> N wmkN : {sg, pl : Str ; g : Gender} -> N
= \r -> mkN r.sg r.pl r.g nohum ; --- hum/nohum not in Wikt = \r -> mkN r.sg r.pl r.g nohum ; --- hum/nohum not in Wikt
wmkN : {sg : Str} -> N wmkN : {sg : Str} -> N
= \r -> smartN r.sg ; = \r -> smartN r.sg ;
wmkN : {sg : Str ; g : Gender ; root : Str} -> N wmkN : {sg : Str ; g : Gender ; root : Str} -> N
= \r -> smartN r.sg ** {g = r.g} ; ---- = \r -> smartN r.sg ** {g = r.g} ; ----
wmkN : {sg : Str; g : Gender} -> N wmkN : {sg : Str; g : Gender} -> N
@@ -924,8 +926,8 @@ oper
wmkN : {sg : Str; pl : Str} -> N wmkN : {sg : Str; pl : Str} -> N
= \r -> mkN r.sg r.pl masc nohum ; ---- ** {g = (smartN r.sg).g} ; = \r -> mkN r.sg r.pl masc nohum ; ---- ** {g = (smartN r.sg).g} ;
wmkN : {sg, pl : Str ; root : Str} -> N wmkN : {sg, pl : Str ; root : Str} -> N
= \r -> mkN r.sg r.pl masc nohum ; ---- = \r -> mkN r.sg r.pl masc nohum ; ----
wmkN : {sg : Str; root : Str} -> N wmkN : {sg : Str; root : Str} -> N
= \r -> smartN r.sg ; = \r -> smartN r.sg ;
} ; } ;