next-lib renamed to lib, lib to old-lib

lib/src/english/CompatibilityEng.gf

@@ -0,0 +1,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 } ;
+
+}