GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -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

2
src/arabic/AdverbAra.gf
View File

@@ -13,7 +13,7 @@ concrete AdverbAra of Adverb = CatAra ** open ResAra, Prelude in {
PrepNP prep np = {s = prep.s ++ bindIf (orB np.a.isPron prep.binds) ++ np.s ! prep.c} ; PrepNP prep np = {s = prep.s ++ bindIf (orB np.a.isPron prep.binds) ++ np.s ! prep.c} ;
AdAdv ad av = cc2 av ad ; AdAdv ad av = cc2 ad av ;
-- : Subj -> S -> Adv ; -- when she sleeps -- : Subj -> S -> Adv ; -- when she sleeps
SubjS subj s = {s = subj.s ++ s.s ! subj.o} ; SubjS subj s = {s = subj.s ++ s.s ! subj.o} ;

6
src/arabic/ResAra.gf
View File

@@ -194,7 +194,7 @@ resource ResAra = PatternsAra ** open Prelude, Predef, OrthoAra, ParamX in {
} ; } ;
uttNum : NumOrdCard -> (Gender => Str) ; uttNum : NumOrdCard -> (Gender => Str) ;
uttNum n = \\g => n.s ! g ! Const ! Bare ; uttNum n = \\g => n.s ! Fem ! Const ! Bare ;
param param
VForm = VForm =
@@ -2031,8 +2031,8 @@ patGeminateImp : (_,_ :Str) -> Gender => Number => Str = \facc,facic ->
regNum : Str -> Str -> regNum : Str -> Str ->
{s : DForm => CardOrd => Gender => State => Case => Str} = {s : DForm => CardOrd => Gender => State => Case => Str} =
\xams,xAmis -> \xams{-card-}, xAmis{-ord-} ->
let { xamsa = xams + "َة"; let { xamsa = xams ; -- + "َة";
xAmisa = xAmis + "َة"} in xAmisa = xAmis + "َة"} in
mkNum xamsa xAmis xAmisa; mkNum xamsa xAmis xAmisa;

4
src/arabic/StructuralAra.gf
View File

@@ -72,7 +72,7 @@ concrete StructuralAra of Structural = CatAra **
possess_Prep = liPrep ; possess_Prep = liPrep ;
-- quite_Adv = ss "قُِتي" ; -- quite_Adv = ss "قُِتي" ;
she_Pron = ResAra.she_Pron ; she_Pron = ResAra.she_Pron ;
-- so_AdA = ss "سْ" ; so_AdA = very_AdA ;
somebody_NP = regNP "أَحَد" Sg Indef ; somebody_NP = regNP "أَحَد" Sg Indef ;
someSg_Det = mkDet "أَحَد" Sg Const ; someSg_Det = mkDet "أَحَد" Sg Const ;
somePl_Det = mkDet "بَعض" Pl Const ; somePl_Det = mkDet "بَعض" Pl Const ;
@@ -94,7 +94,7 @@ concrete StructuralAra of Structural = CatAra **
-- too_AdA = ss "تّْ" ; -- too_AdA = ss "تّْ" ;
to_Prep = mkPrep "إِلَى" ; to_Prep = mkPrep "إِلَى" ;
under_Prep = mkPrep "تَحْتَ" ; under_Prep = mkPrep "تَحْتَ" ;
-- very_AdA = ss "ثري" ; very_AdA = ss "جِدّاً" ;
want_VV = mkVV (mkV "رود" FormIV) ; want_VV = mkVV (mkV "رود" FormIV) ;
we_Pron = ResAra.we_Pron ; we_Pron = ResAra.we_Pron ;
whatPl_IP = mkIP "ما" "ماذا" Pl ; whatPl_IP = mkIP "ما" "ماذا" Pl ;