Norwegian

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

View File

@@ -105,4 +105,15 @@ instance SyntaxSwe of SyntaxScand = TypesSwe **
pronVems = "vems" ;
pronVad = "vad" ;
--- added with Nor
conjGender : Gender -> Gender -> Gender = \m,n ->
case <m,n> of {
<Utr,Utr> => Utr ;
_ => Neutr
} ;
mkDeterminerSgGender3 : Str -> Str -> Str -> SpeciesP -> Determiner = \en,_,ett ->
mkDeterminerSgGender (table {Utr => en ; Neutr => ett}) ;
}