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

Danish lexicon improved (but still unfinished)

Browse Source
This commit is contained in:
aarne
2006-05-26 12:00:09 +00:00
parent 40dcf1c0d6
commit db8d378b1f
6 changed files with 118 additions and 112 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -86,6 +86,11 @@ oper
mk2N : (bil,bilen : Str) -> N ;
-- This function takes the singular indefinite and definite and the plural
-- indefinite
mk3N : (bil,bilen,biler : Str) -> N ;
--3 Compound nouns
--
@@ -304,17 +309,19 @@ oper
Neutr => mkN x (x + "t") (x + "r") (init x + "ene")
} ;
_ => case g of {
Utr => mkN x (x + "en") (x + "er") (x + "rene") ;
Utr => mkN x (x + "en") (x + "er") (x + "erne") ;
Neutr => mkN x (x + "et") (x + "") (x + "ene")
}
} ;
mk2N x y = case last y of {
"n" => regGenN x utrum ;
_ => regGenN x neutrum
"n" => mk3N x y (init y + "r") ;
_ => mk3N x y x
} ;
mk3N x y z = let u = ifTok Str x z "ene" "ne" in mkN x y z (z + u) ;
mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ;
regN2 n g = mkN2 (regGenN n g) (mkPreposition "av") ;
mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ;
@@ -325,7 +332,7 @@ oper
{s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ;
lock_NP = <>} ;
mkA a b c = (mkAdject a b c [] []) ** {lock_A = <>} ;
mkA = mk3ADeg ;
mk2A a b = mkA a b (a + "e") ;
regA a = (regADeg a) ** {lock_A = <>} ;
@@ -341,7 +348,7 @@ oper
}} ** {lock_A = <>} ;
irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** {lock_A = <>} ;
mk3ADeg a b c = mkAdject a b c (a + "ere") (a + "est") ** {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 = <>} ;
mkAdv x = ss x ** {lock_Adv = <>} ;