From ba78322409e2086a83c03b7b32e84940a24030b0 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 15 Aug 2008 12:41:04 +0000 Subject: examples of morphological synthesis/analysis as top-level grammars --- examples/morpho/EngReal.gf | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 examples/morpho/EngReal.gf (limited to 'examples/morpho/EngReal.gf') diff --git a/examples/morpho/EngReal.gf b/examples/morpho/EngReal.gf new file mode 100644 index 000000000..b28f1e0eb --- /dev/null +++ b/examples/morpho/EngReal.gf @@ -0,0 +1,31 @@ +--# -path=.:alltenses + +concrete EngReal of Eng = IrregEng ** open (R = ResEng) in { + +lincat + Display = Str ; + Word = R.VForm => Str ; + Form = {s : Str ; v : R.VForm} ; + +lin + +-- select the forms to display (here all forms) + + DAll w = w ! R.VInf ++ w ! R.VPres ++ w ! R.VPast ++ w ! R.VPPart ++ w ! R.VPresPart ; + +-- this code should be generated automatically + + DForm w f = w ! f.v ++ f.s ; + + VInf = vf R.VInf ; + VPres = vf R.VPres ; + VPast = vf R.VPast ; + VPPart = vf R.VPPart ; + VPresPart = vf R.VPresPart ; + + WVerb v = v.s ; + +oper + vf : R.VForm -> {s : Str ; v : R.VForm} = \f -> {s = [] ; v = f} ; --- + +} -- cgit v1.2.3