diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-30 14:37:54 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-30 14:37:54 +0000 |
| commit | bed2d9068e3bd064342639de14a02b3d8cfa366a (patch) | |
| tree | 00ee2ec18ff61a9f911a9f2f8c3bc26712bec642 /next-lib/src/english/ResEng.gf | |
| parent | 9e26b4f85224132ecf01847bb260eec3c04a4611 (diff) | |
More English morphology clean-up.
Diffstat (limited to 'next-lib/src/english/ResEng.gf')
| -rw-r--r-- | next-lib/src/english/ResEng.gf | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/next-lib/src/english/ResEng.gf b/next-lib/src/english/ResEng.gf index f867d9197..f53ea21eb 100644 --- a/next-lib/src/english/ResEng.gf +++ b/next-lib/src/english/ResEng.gf @@ -158,18 +158,6 @@ resource ResEng = ParamX ** open Prelude in { a = toAgr n p g ; }; --- These functions cover many cases; full coverage inflectional patterns are --- in $MorphoEng$. - - regN : Str -> {s : Number => Case => Str} = \car -> - mkNoun car (car + "'s") (car + "s") (car + "s'") ; - - regA : Str -> {s : AForm => Str} = \warm -> - mkAdjective warm (warm + "er") (warm + "est") (warm + "ly") ; - - regV : Str -> Verb = \walk -> - mkVerb walk (walk + "s") (walk + "ed") (walk + "ed") (walk + "ing") ; - regNP : Str -> Number -> {s : Case => Str ; a : Agr} = \that,n -> mkNP that that (that + "'s") n P3 Neutr ; |