mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-06-28 20:36:28 -06:00
Added case inflection to English numerals and adjectives, in order to get genitive forms of stand-alone determiners that use Num or Ord right.
This commit is contained in:
@@ -21,15 +21,6 @@ resource MorphoEng = open Prelude, (Predef=Predef), ResEng in {
|
||||
sp = regGenitiveS s ;
|
||||
n = n} ;
|
||||
|
||||
regGenitiveS : Str -> Case => Str = \s ->
|
||||
table { Gen => genitiveS s; _ => s } ;
|
||||
|
||||
genitiveS : Str -> Str = \dog ->
|
||||
case last dog of {
|
||||
"s" => dog + "'" ;
|
||||
_ => dog + "'s"
|
||||
};
|
||||
|
||||
--2 Pronouns
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user