msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

allomorphs for definite article

Browse Source
This commit is contained in:
Inari Listenmaa
2025-08-21 16:42:20 +02:00
parent b8d9098aaa
commit a539db3d55
2 changed files with 71 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/gaelic/NounGla.gf
View File

@@ -8,7 +8,7 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-- : Det -> CN -> NP
DetCN det cn = emptyNP ** {
s = \\c => det.s ++ cn.s ! getNForm det.n det.d c ;
s = \\c => det.s ! cn.g ! c ++ cn.s ! getNForm det.n det.d c ;
d = det.d
} ;
{-
@@ -65,8 +65,8 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-- : Quant -> Num -> Det ;
DetQuant quant num = quant ** {
s = quant.s ! num.n ++ num.s ;
s2 = "DUMMY" ; -- "teen" from numbers like seventeen
s = \\g,c => getArt quant num.n g c ++ num.s ;
s2 = \\g,c => "DUMMY" ; -- "teen" from numbers like seventeen
n = num.n ;
} ;
@@ -123,10 +123,10 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-}
-- : Quant
DefArt = mkQuant "an" "nan" Definite ;
DefArt = ResGla.defArt ;
-- : Quant
IndefArt = mkQuant [] [] Indefinite ;
IndefArt = mkQuant [] Indefinite ;
{-
-- : Pron -> Quant -- my