new structure of much in Rules

This commit is contained in:
aarne
2005-01-23 20:09:31 +00:00
parent 43ab2e2ac2
commit 852474e908
18 changed files with 875 additions and 219 deletions

View File

@@ -121,4 +121,12 @@ instance SyntaxSwe of SyntaxScand = TypesSwe **
adjPastPart : Verb -> Adjective = \verb -> {
s = \\af,c => verb.s1 ++ verb.s ! VI (PtPret af c) --- på slagen
} ;
reflPron : Number -> Person -> Str = \n,p -> case <n,p> of {
<Sg,P1> => "mig" ;
<Sg,P2> => "mig" ;
<Pl,P1> => "oss" ;
<Pl,P2> => "er" ;
_ => "sig"
} ;
}