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

yep the morpho sucks, but let's fix it in next commits

Browse Source
This commit is contained in:
Inari Listenmaa
2025-08-20 15:35:56 +02:00
parent c9c1723090
commit 4b78bd6c67
7 changed files with 47 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/gaelic/NounGla.gf
View File

@@ -8,7 +8,8 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-- : Det -> CN -> NP
DetCN det cn = emptyNP ** {
s = det.s ++ cn.s ! det.n
s = \\c => det.s ++ cn.s ! det.n ! det.d ! c ;
d = det.d
} ;
{-
-- : PN -> NP ;
@@ -53,7 +54,7 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-}
-- MassNP : CN -> NP ;
MassNP cn = emptyNP ** {
s = linCN cn
s = cn.s ! Sg ! Indef
} ;
@@ -65,6 +66,7 @@ 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
n = num.n ;
} ;
@@ -121,10 +123,10 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
-}
-- : Quant
DefArt = mkQuant "the" "the" ;
DefArt = mkQuant "an" "nan" Def ;
-- : Quant
IndefArt = mkQuant "a" [] ;
IndefArt = mkQuant [] [] Indef ;
{-
-- : Pron -> Quant -- my
@@ -136,7 +138,7 @@ concrete NounGla of Noun = CatGla ** open ResGla, Prelude in {
--2 Common nouns
-- : N -> CN
UseN n = n ;
UseN = useN ;
{-
-- : N2 -> CN ;