GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-02 12:08:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) misc small fixes

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-15 16:54:08 +01:00
parent 25275794cf
commit 5957dcf301
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/arabic/ResAra.gf
+3 -3
View File
@@ -194,7 +194,7 @@ resource ResAra = PatternsAra ** open Prelude, Predef, OrthoAra, ParamX in {
} ;
uttNum : NumOrdCard -> (Gender => Str) ;
uttNum n = \\g => n.s ! g ! Const ! Bare ;
uttNum n = \\g => n.s ! Fem ! Const ! Bare ;
param
VForm =
@@ -2031,8 +2031,8 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
regNum : Str -> Str ->
{s : DForm => CardOrd => Gender => State => Case => Str} =
\xams,xAmis ->
let { xamsa = xams + "َة";
\xams{-card-}, xAmis{-ord-} ->
let { xamsa = xams ; -- + "َة";
xAmisa = xAmis + "َة"} in
mkNum xamsa xAmis xAmisa;