mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-13 00:50:11 -06:00
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 } ;
|
|
|
|
}
|