forked from GitHub/gf-rgl
18 lines
518 B
Plaintext
Executable File
18 lines
518 B
Plaintext
Executable File
--# -path=.:../abstract:../common:../prelude
|
|
|
|
concrete CompatibilityZul of Compatibility = CatZul ** open Prelude, ResZul in {
|
|
|
|
-- from Noun 19/4/2008
|
|
|
|
-- lin
|
|
-- NumInt n = {s,sp = \\_ => 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 } ;
|
|
|
|
}
|