GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki 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.
-- IL -- to be tested: there are no geminate verbs in LexiconAra
-- macro for geminate verbs: same behaviour as hollow verbs,
-- except for jussive and imperative. /IL
verbGeminate : DefForms -> Verb = \vforms ->
let verbHol = verbHollow vforms
in { s = table {
let verbHol = verbHollow vforms ;
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 ;
VImp g n => patImp ! g ! n + suffixImpfCJ Cnj ! Per2 g n ;
x => verbHol.s ! x
}
} ;
@@ -1002,6 +1004,12 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\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
caseTbl : Case => Str =