working towards sprdata sem

This commit is contained in:
aarne
2005-02-27 21:04:11 +00:00
parent 36edab3fd5
commit a7d6f99165
3 changed files with 475 additions and 9 deletions

View File

@@ -255,7 +255,7 @@ adj2Reg : Str -> Str -> Adj = \vid,vitt -> adjAlmostReg vid vitt (vid + "a") ;
mkCase : Case -> Str -> Str = \c,f -> case c of {
Nom => f ;
Gen => f + case last f of {
"s" => [] ;
"s" | "x" => [] ;
_ => "s"
}
} ;