GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42:51 -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

13
lib/resource-1.0/swedish/ParadigmsSwe.gf
View File

@@ -158,6 +158,10 @@ oper
mk3A : (galen,galet,galna : Str) -> A ;
mk2A : (bred,brett : Str) -> A ;
-- Comparison forms may be compound ("mera svensk" - "mest svensk").
compoundA : A -> A ;
--3 Two-place adjectives
--
@@ -387,7 +391,7 @@ oper
{s = table {NPPoss _ => y ; _ => x} ; a = agrP3 g n ; p = P3 ;
lock_NP = <>} ;
mkA a b c d e f g = mkAdjective a b c d e f g ** {lock_A = <>} ;
mkA a b c d e f g = mkAdjective a b c d e f g ** {isComp = False ; lock_A = <>} ;
regA fin =
let fint : Str = case fin of {
ru + "nd" => ru + "nt" ;
@@ -397,16 +401,17 @@ oper
_ => fin + "t"
}
in
mk3A fin fint (fin + "a") ** {lock_A = <>} ;
mk3A fin fint (fin + "a") ;
irregA ung yngre yngst =
mkA ung (ung + "t") (ung + "a") (ung + "a") yngre yngst (yngst+"a") ;
mk3A ljummen ljummet ljumma =
mkAdjective
mkA
ljummen ljummet ljumma ljumma
(ljumma + "re") (ljumma + "st") (ljumma + "ste") ** {lock_A = <>} ;
(ljumma + "re") (ljumma + "st") (ljumma + "ste") ;
mk2A vid vitt = mk3A vid vitt (vid + "a") ;
compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ;
mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ;