Swedish relatives

This commit is contained in:
aarne
2005-12-08 09:56:15 +00:00
parent 0ca556122c
commit a8a5080693
8 changed files with 78 additions and 41 deletions

View File

@@ -50,4 +50,14 @@ instance DiffSwe of DiffScand = open ResScand, Prelude in {
Neutr => allt
} ;
relPron : GenNum => RCase => Str = \\gn,c => case c of {
RNom => "som" ;
RGen => "vars" ;
RPrep => gennumForms "vilken" "vilket" "vilka" ! gn
} ;
pronSuch = gennumForms "sådan" "sådant" "sådana" ;
}