GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-28 20:36:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Hun) Change lincat of Ord + add OrdSuperl, DetQuantOrd

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-17 14:46:44 +02:00
parent cc85e4aaeb
commit 822cfc4bef
3 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/hungarian/NounHun.gf
+9 -7
View File
@@ -67,9 +67,11 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude in {
} ;
-- : Quant -> Num -> Ord -> Det ; -- these five best
-- DetQuantOrd quant num ord =
-- let theseFive = DetQuant quant num in theseFive ** {
-- } ;
DetQuantOrd quant num ord =
let theseFive = DetQuant quant num in theseFive ** {
s = \\c => theseFive.s ! c ++ ord.s ! num.n ;
sp = \\c => theseFive.sp ! c ++ ord.s ! num.n ;
} ;
-- Whether the resulting determiner is singular or plural depends on the
-- cardinal.
@@ -106,18 +108,18 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude in {
OrdNumeral num = num ** {
s = \\_ => num.ord
} ;
-}
-- : A -> Ord ;
OrdSuperl a = {
s = \\af => "제일" ++ a.s ! af ;
s = a.s ! Superl ;
n = Sg -- ?? is this meaningful?
} ;
-- One can combine a numeral and a superlative.
-- : Numeral -> A -> Ord ; -- third largest
OrdNumeralSuperl num a = num ** { } ;
-}
-- OrdNumeralSuperl num a = num ** { } ;
-- : Quant
DefArt = {
s,