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

@@ -82,8 +82,8 @@ instance SyntaxDan of SyntaxScand = TypesDan **
auxHar = "har" ;
auxHade = "havde" ;
auxHa = "have" ;
auxSka = "skal" ;
auxSkulle = "skulle" ;
auxSka = "val" ;
auxSkulle = "ville" ;
infinAtt = "at" ;
@@ -101,4 +101,15 @@ instance SyntaxDan of SyntaxScand = TypesDan **
pronVems = "hvis" ; ---- ??
pronVad = "hvad" ;
--- 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}) ;
}