From 2b77d3e0b05d59c9e7c5a9d50b3a850ddeed82dd Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 24 Aug 2012 06:30:10 +0000 Subject: extended mini resource grammar in examples, with Eng, Ita, Cmn (Mandarin Chinese by Jolene) --- examples/extmini/ParadigmsCmn.gf | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 examples/extmini/ParadigmsCmn.gf (limited to 'examples/extmini/ParadigmsCmn.gf') diff --git a/examples/extmini/ParadigmsCmn.gf b/examples/extmini/ParadigmsCmn.gf new file mode 100644 index 000000000..0b779f24d --- /dev/null +++ b/examples/extmini/ParadigmsCmn.gf @@ -0,0 +1,21 @@ +resource ParadigmsCmn = GrammarCmn [N,A,V] ** + open ResCmn, GrammarCmn, Prelude in { +flags coding=utf8; +oper + mkN : (man : Str) -> Str -> N + = \n,c -> lin N (regNoun n c) ; + + mkPN : (john : Str) -> Number -> PN + = \s,n -> lin PN (PropN s n) ; + + mkA : (small : Str) -> Bool -> A + = \a,b -> lin A (mkAdj a b) ; + + mkV = overload { + mkV : (walk : Str) -> V + = \walk -> lin V (regVerb walk) ; + mkV : (arrive : Str) -> Str -> Str -> Str -> Str -> V + = \arrive,pp,ds,dp,ep -> lin V (mkVerb arrive pp ds dp ep) ; + } ; + +} -- cgit v1.2.3