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

make leaner param for CN (morpho still as wrong as always)

Browse Source
This commit is contained in:
Inari Listenmaa
2025-08-20 16:42:24 +02:00
parent cabf56aea9
commit 4f5e67a581
3 changed files with 50 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
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 ! det.n ! det.d ! c ;
s = \\c => det.s ++ cn.s ! getNForm det.n det.d c ;
d = det.d
} ;
{-
@@ -54,7 +54,7 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-}
-- MassNP : CN -> NP ;
MassNP cn = emptyNP ** {
s = cn.s ! Sg ! Indef
s = \\c => cn.s ! getNForm Sg Indefinite c
} ;
@@ -123,10 +123,10 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-}
-- : Quant
DefArt = mkQuant "an" "nan" Def ;
DefArt = mkQuant "an" "nan" Definite ;
-- : Quant
IndefArt = mkQuant [] [] Indef ;
IndefArt = mkQuant [] [] Indefinite ;
{-
-- : Pron -> Quant -- my