GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -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

10
next-lib/src/english/CompatibilityEng.gf
View File

@@ -5,7 +5,13 @@ concrete CompatibilityEng of Compatibility = CatEng ** open Prelude, ResEng in {
-- from Noun 19/4/2008 -- from Noun 19/4/2008
lin lin
NumInt n = {s = n.s ; n = Pl ; hasCard = True} ; NumInt n = {s = addGenitiveS n.s ; n = Pl ; hasCard = True} ;
OrdInt n = {s = n.s ++ "th"} ; 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 } ;
} }

2
next-lib/src/english/SymbolEng.gf
View File

@@ -23,7 +23,7 @@ lin
SymbS sy = sy ; SymbS sy = sy ;
SymbNum sy = { s = addGenitiveS sy.s ; n = Pl ; hasCard = True } ; SymbNum sy = { s = addGenitiveS sy.s ; n = Pl ; hasCard = True } ;
SymbOrd sy = { s = addGenitiveS (sy.s ++ "th")} ; SymbOrd sy = { s = \\c => sy.s ++ (regGenitiveS "th")!c} ;
lincat lincat