GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-25 10:56:27 -06:00
Code Issues Packages Projects Releases Wiki Activity

Updated CompatibilityEng to compile with case-inflected Num and Ord.

Browse Source
This commit is contained in:
bjorn
2008-11-19 14:28:50 +00:00
parent 9d1d7dd3c8
commit 86878c0cf4
2 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
next-lib/src/english/CompatibilityEng.gf
+8 -2
View File
@@ -5,7 +5,13 @@ concrete CompatibilityEng of Compatibility = CatEng ** open Prelude, ResEng in {
-- from Noun 19/4/2008
lin
NumInt n = {s = n.s ; n = Pl ; hasCard = True} ;
OrdInt n = {s = n.s ++ "th"} ;
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 } ;
}