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

(Romance) Remove Degree from A, new field for comp

Browse Source
This commit is contained in:
Inari Listenmaa
2021-09-13 15:15:17 +08:00
parent 3d703856a6
commit 862c50e936
5 changed files with 44 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/romance/NounRomance.gf
+8 -2
View File
@@ -101,9 +101,15 @@ incomplete concrete NounRomance of Noun =
AdNum adn num = {s = \\a => adn.s ++ num.s ! a ; isNum = num.isNum ; n = num.n} ;
OrdSuperl adj = {s = \\a => adj.s ! Superl ! genNum2Aform a.g a.n} ;
OrdSuperl adj = {
s = \\a => case adj.isDeg of {
True => adj.compar ! a.n ;
False => piuComp ++ adj.s ! genNum2Aform a.g a.n }
} ;
OrdNumeralSuperl num adj = {s = \\a => num.s ! NOrd a.g a.n ++ adj.s ! Superl ! genNum2Aform a.g a.n} ; -- la terza più grande
OrdNumeralSuperl num adj =
let ordSuperl : Ord = OrdSuperl adj
in {s = \\a => num.s ! NOrd a.g a.n ++ ordSuperl.s ! a} ; -- la terza più grande
---- could be discontinuous: la terza città più grande
DefArt = {