GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) Add new constructor irregFemA

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-30 14:12:28 +01:00
parent cb90184a95
commit fc0c504107
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/arabic/ParadigmsAra.gf
View File

@@ -145,6 +145,8 @@ resource ParadigmsAra = open
degrA : (posit,compar,plur : Str) -> A ; degrA : (posit,compar,plur : Str) -> A ;
irregFemA : (masc : A) -> (fem : A) -> A ; -- adjective with irregular feminine. Takes two adjectives (masc. "regular" and fem. "regular") and puts them together.
--Takes a root string and a pattern string --Takes a root string and a pattern string
sndA : (root,patt : Str) -> Adj ; sndA : (root,patt : Str) -> Adj ;
@@ -623,6 +625,8 @@ resource ParadigmsAra = open
degrA : (posit,compar,plur : Str) -> A degrA : (posit,compar,plur : Str) -> A
= \posit,compar,plur -> lin A {s = clr posit compar plur} ; = \posit,compar,plur -> lin A {s = clr posit compar plur} ;
sndA root pat = sndA root pat =
let raw = sndA' root pat in { let raw = sndA' root pat in {
s = \\af => s = \\af =>
@@ -643,6 +647,13 @@ resource ParadigmsAra = open
} }
}; };
irregFemA : (masc : A) -> (fem : A) -> A = \m,f -> m ** {
s = table {
APosit Masc n d c => m.s ! APosit Masc n d c ;
APosit Fem n d c => f.s ! APosit Masc n d c ; -- The fem. adjective is built as if the irregular fem. forms were Masc. This is on purpose.
x => m.s ! x }
} ;
nisbaA : Str -> Adj = \Haal -> nisbaA : Str -> Adj = \Haal ->
let Haaliyy = Haal + "ِيّ" in { let Haaliyy = Haal + "ِيّ" in {
s = table { s = table {