GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 17:12:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

scandinavian compound comparison

Browse Source
This commit is contained in:
aarne
2006-05-31 12:24:48 +00:00
parent 993f2b3e1e
commit 0694e0e1bb
11 changed files with 52 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/resource-1.0/danish/ParadigmsDan.gf
View File

@@ -179,7 +179,7 @@ oper
-- If comparison is formed by "mer, "mest", as in general for
-- long adjective, the following pattern is used:
compoundADeg : A -> A ; -- -/mer/mest norsk
compoundA : A -> A ; -- -/mer/mest norsk
--2 Adverbs
@@ -346,18 +346,23 @@ oper
mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ;
mkADeg a b c d e = mkAdject a b c d e ** {lock_A = <>} ;
mkADeg a b c d e = mkAdject a b c d e ** {isComp = False ; lock_A = <>} ;
regADeg a = case Predef.dp 2 a of {
"sk" => aRask a ;
_ => case last a of {
"t" => aAbstrakt a ;
_ => aRod a
}} ** {lock_A = <>} ;
}} ** {isComp = False ; lock_A = <>} ;
irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** {lock_A = <>} ;
mk3ADeg a b c = mkAdject a b c (c + "re") (c + "st") ** {lock_A = <>} ;
mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") ** {lock_A = <>} ;
irregADeg a b c = mkAdject a (a + "t") (a + "e") b c **
{isComp = False ; lock_A = <>} ;
mk3ADeg a b c = mkAdject a b c (c + "re") (c + "st") **
{isComp = False ; lock_A = <>} ;
mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") **
{isComp = False ; lock_A = <>} ;
compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ;
mkAdv x = ss x ** {lock_Adv = <>} ;
mkAdV x = ss x ** {lock_AdV = <>} ;