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 committed 2025-08-25 17:01:43 +02:00
1 parent b8d9098aaa
commit a539db3d55
2 files changed
+71 -22
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/gaelic/NounGla.gf
+5 -5
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