--# -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 } ;

}