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

(Ara) Fix geminate verb constructor

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-01 17:48:57 +02:00
parent d8debc25c4
commit aadc00f971
1 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/arabic/ResAra.gf
View File

@@ -323,12 +323,14 @@ oper
} }
} ; } ;
--macro for geminate verbs: same behaviour as hollow verbs, except for jussive. -- macro for geminate verbs: same behaviour as hollow verbs,
-- IL -- to be tested: there are no geminate verbs in LexiconAra -- except for jussive and imperative. /IL
verbGeminate : DefForms -> Verb = \vforms -> verbGeminate : DefForms -> Verb = \vforms ->
let verbHol = verbHollow vforms let verbHol = verbHollow vforms ;
in { s = table { patImp = patGeminateImp (vforms ! 8) (vforms ! 9)
in { s = table { -- Jussive and imperative have fatha instead of sukun
VImpf Jus v pgn => verbHol.s ! VImpf Cnj v pgn ; VImpf Jus v pgn => verbHol.s ! VImpf Cnj v pgn ;
VImp g n => patImp ! g ! n + suffixImpfCJ Cnj ! Per2 g n ;
x => verbHol.s ! x x => verbHol.s ! x
} }
} ; } ;
@@ -1002,6 +1004,12 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
Fem => table { Pl => xaf ; _ => xAf} Fem => table { Pl => xaf ; _ => xAf}
} ; } ;
patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
\\g,n => case <g,n> of {
<Fem,Pl> => facic ;
_ => facc
} ;
--Nominal Morphology --Nominal Morphology
caseTbl : Case => Str = caseTbl : Case => Str =