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/additions

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-26 17:03:31 +01:00
parent 9da4ea3f5c
commit a29a4132cf
3 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/arabic/ParadigmsAra.gf
View File

@@ -50,6 +50,10 @@ resource ParadigmsAra = open
masc : Gender ; masc : Gender ;
fem : Gender ; fem : Gender ;
Number : Type ;
sg : Number ;
pl : Number ;
Species : Type ; Species : Type ;
hum : Species ; hum : Species ;
nohum : Species ; nohum : Species ;
@@ -71,8 +75,8 @@ resource ParadigmsAra = open
mkN : NTable -> Gender -> Species -> N ; -- loan words, irregular mkN : NTable -> Gender -> Species -> N ; -- loan words, irregular
mkN : (root,sgPatt,brokenPlPatt : Str) -> Gender -> Species -> N ; -- broken plural mkN : (root,sgPatt,brokenPlPatt : Str) -> Gender -> Species -> N ; -- broken plural
mkN : N -> (attr : Str) -> N ; -- Compound noun with invariant attribute mkN : N -> (attr : Str) -> N ; -- Compound noun with invariant attribute
mkN : N -> N -> N ; -- Compound noun where attribute inflects in state and case but not number mkN : N -> N -> N ; -- Compound noun where attribute inflects in state and case. Attribute in singular.
mkN : Number -> N -> N -> N ; -- Compound noun where attribute inflects in state, case and number mkN : Number -> N -> N -> N ; -- Compound noun where attribute inflects in state and case. Attribute's number specified by 1st arg.
--- mkN : (root,sgPatt : Str) -> Gender -> Species -> N -- sound feminine plural --- mkN : (root,sgPatt : Str) -> Gender -> Species -> N -- sound feminine plural
--- = sdfN ; --- = sdfN ;
} ; } ;
@@ -102,7 +106,7 @@ resource ParadigmsAra = open
mkPN : Str -> PN -- Fem Hum if ends with ة, otherwise Masc Hum mkPN : Str -> PN -- Fem Hum if ends with ة, otherwise Masc Hum
= smartPN ; = smartPN ;
mkPN : N -> PN mkPN : N -> PN
= \n -> lin PN (n ** {s = \\c => n.s ! Sg ! Const ! Bare}) ; -- no idea /IL = \n -> lin PN (n ** {s = \\c => n.s ! Sg ! Const ! c ++ n.s2 ! Sg ! Const ! c }) ; -- no idea /IL
mkPN : Str -> Gender -> Species -> PN mkPN : Str -> Gender -> Species -> PN
= mkFullPN ; = mkFullPN ;
} ; } ;
@@ -306,6 +310,10 @@ resource ParadigmsAra = open
masc = ResAra.Masc ; masc = ResAra.Masc ;
fem = ResAra.Fem ; fem = ResAra.Fem ;
Number = ResAra.Number ;
sg = ResAra.Sg ;
pl = ResAra.Pl ;
Species = ResAra.Species ; Species = ResAra.Species ;
hum = ResAra.Hum ; hum = ResAra.Hum ;
nohum = ResAra.NoHum ; nohum = ResAra.NoHum ;
@@ -608,9 +616,9 @@ resource ParadigmsAra = open
mascTbl = reg jadId judud ; mascTbl = reg jadId judud ;
femTbl = reg jadIda judud ; femTbl = reg jadIda judud ;
in { s = table { in { s = table {
APosit Masc n d c => mascTbl ! n ! d ! c ; APosit Masc n d c => rectifyHmz (mascTbl ! n ! d ! c) ;
APosit Fem n d c => femTbl ! n ! d ! c ; APosit Fem n d c => rectifyHmz (femTbl ! n ! d ! c) ;
AComp d c => indeclN akbar ! d ! c } AComp d c => rectifyHmz (indeclN akbar ! d ! c) }
} ; } ;
degrA : (posit,compar,plur : Str) -> A degrA : (posit,compar,plur : Str) -> A

7
src/arabic/ResAra.gf
View File

@@ -1231,7 +1231,7 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
<NonTeen,_> => Acc; <NonTeen,_> => Acc;
<ThreeTen,_> => Gen; <ThreeTen,_> => Gen;
<Hundreds,_> => Gen; <Hundreds,_> => Gen;
<_,Const> => Gen; <_,Const> => Gen; -- not sure if this is an actual rule /IL
_ => c _ => c
}; };
@@ -1534,7 +1534,10 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
<Verbal, False> => verbalAgr np.a.pgn; <Verbal, False> => verbalAgr np.a.pgn;
_ => np.a.pgn _ => np.a.pgn
}; };
sc : Preposition = case o of {Subord => {s=[]; c=Acc} ; _ => vp.sc} ; sc : Preposition = case o of { -- very unsure of this /IL
Subord => {s=[]; c=Acc} ; -- to prevent weird stuff with VVs
_ => case np.a.isPron of {True => noPrep; _ => vp.sc}
} ;
subj = np.empty ++ sc.s subj = np.empty ++ sc.s
++ case vp.isPred of { ++ case vp.isPred of {
False => (proDrop np).s ! sc.c ; -- prodrop if it's not predicative False => (proDrop np).s ! sc.c ; -- prodrop if it's not predicative

6
src/arabic/VerbAra.gf
View File

@@ -69,6 +69,12 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {
UseCopula = predV copula ; UseCopula = predV copula ;
-- : VP -> Prep -> VPSlash ; -- live in (it)
VPSlashPrep vp prep = vp ** {
c2 = prep ;
agrObj = \\_ => []
} ;
AdvVP vp adv = insertStr adv.s vp ; AdvVP vp adv = insertStr adv.s vp ;
AdVVP adv = insertStr adv.s ; AdVVP adv = insertStr adv.s ;