Swedish resource almost ready.

This commit is contained in:
aarne
2003-11-05 14:41:34 +00:00
parent c75a0ee920
commit ed1d2a2954
4 changed files with 128 additions and 4 deletions

View File

@@ -147,6 +147,20 @@ oper sSak : Str -> Subst = \sak ->
h1 = Utr
} ;
oper sVarelse : Str -> Subst = \varelse ->
{s = table {
SF Sg Indef Nom => varelse ;
SF Sg Indef Gen => varelse + "s" ;
SF Sg Def Nom => varelse + "n" ;
SF Sg Def Gen => varelse + "ns" ;
SF Pl Indef Nom => varelse + "r" ;
SF Pl Indef Gen => varelse + "rs" ;
SF Pl Def Nom => varelse + "rna" ;
SF Pl Def Gen => varelse + "rnas"
} ;
h1 = Utr
} ;
oper sNivå : Str -> Subst = \nivå ->
{s = table {
SF Sg Indef Nom => nivå ;