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

smart Arabic mkN

Browse Source
This commit is contained in:
Aarne Ranta
2018-06-12 22:34:45 +02:00
parent 75d2f66b59
commit 6c70ccf0a1
1 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/arabic/ParadigmsAra.gf
View File

@@ -44,12 +44,18 @@ resource ParadigmsAra = open
-- Overloaded operator for main cases -- Overloaded operator for main cases
mkN = overload { mkN = overload {
mkN : (sg : Str) -> N -- non-human regular nouns
= smartN ;
mkN : Species -> N -> N
= \p,n -> n ** {h = p} ;
mkN : (sg,pl : Str) -> Gender -> Species -> N
= \sg,pl -> mkFullN (reg sg pl) ;
mkN : NTable -> Gender -> Species -> N -- loan words, irregular mkN : NTable -> Gender -> Species -> N -- loan words, irregular
= mkFullN ; = mkFullN ;
mkN : (root,sgPatt,brokenPlPatt : Str) -> Gender -> Species -> N -- broken plural mkN : (root,sgPatt,brokenPlPatt : Str) -> Gender -> Species -> N -- broken plural
= brkN ; = brkN ;
mkN : (root,sgPatt : Str) -> Gender -> Species -> N -- sound feminine plural --- mkN : (root,sgPatt : Str) -> Gender -> Species -> N -- sound feminine plural
= sdfN ; --- = sdfN ;
} ; } ;
--This is used for loan words or anything that has untreated irregularities --This is used for loan words or anything that has untreated irregularities
@@ -501,6 +507,11 @@ resource ParadigmsAra = open
mkA2V v p = mkA2 v p ** {lock_A2 = <>} ; mkA2V v p = mkA2 v p ** {lock_A2 = <>} ;
smartN : Str -> N = \s -> case last s of {
"ة" => mkFullN (sndf s) Fem NoHum ;
_ => mkFullN (sndm s) Masc NoHum
} ;
smartPN : Str -> PN = \s -> case last s of { smartPN : Str -> PN = \s -> case last s of {
"ة" => mkFullPN s Fem Hum ; "ة" => mkFullPN s Fem Hum ;
_ => mkFullPN s Masc Hum _ => mkFullPN s Masc Hum