blob: 63450d0ffb4062d5e719c0f50608095bf19fac2a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
--# -path=.:../abstract:../common
concrete CompatibilityEng of Compatibility = CatEng ** open Prelude, ResEng in {
-- from Noun 19/4/2008
lin
NumInt n = {s = addGenitiveS n.s ; n = Pl ; hasCard = True} ;
OrdInt n = {s = \\c => n.s ++ (regGenitiveS "th")!c } ;
oper
-- Note: this results in a space before 's, but there's
-- not mauch we can do about that.
addGenitiveS : Str -> Case => Str = \s ->
table { Gen => s ++ "'s"; _ => s } ;
}
|
