summaryrefslogtreecommitdiff
path: root/examples/extmini/ParadigmsCmn.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2012-08-24 06:30:10 +0000
committeraarne <aarne@chalmers.se>2012-08-24 06:30:10 +0000
commit2b77d3e0b05d59c9e7c5a9d50b3a850ddeed82dd (patch)
treecb40c4fda2f40d68d3ae1b16c0eae10bd7d67279 /examples/extmini/ParadigmsCmn.gf
parent57b260508c2fac00c15843003154d1cdf0ad083b (diff)
extended mini resource grammar in examples, with Eng, Ita, Cmn (Mandarin Chinese by Jolene)
Diffstat (limited to 'examples/extmini/ParadigmsCmn.gf')
-rw-r--r--examples/extmini/ParadigmsCmn.gf21
1 files changed, 21 insertions, 0 deletions
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) ;
+ } ;
+
+}