1
0
forked from GitHub/gf-rgl

Norwegian

This commit is contained in:
aarne
2005-01-20 14:03:48 +00:00
parent a794f9148e
commit 29cc3bc26d
8 changed files with 46 additions and 15 deletions

View File

@@ -10,6 +10,7 @@
instance TypesSwe of TypesScand = {
param
Gender = Utr | Neutr ;
NounGender = NUtr Sex | NNeutr ;
oper
@@ -17,6 +18,8 @@ oper
sexNoun = \s -> case s of {NUtr x => x ; NNeutr => NoMasc} ;
gen2nounGen = \s -> case s of {Utr => NUtr NoMasc ; Neutr => NNeutr} ;
utrum = Utr ; neutrum = Neutr ;
param
AdjFormPos = Strong GenNum | Weak SexNum ;