diff options
| author | aarne <aarne@chalmers.se> | 2012-08-24 06:30:10 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2012-08-24 06:30:10 +0000 |
| commit | 2b77d3e0b05d59c9e7c5a9d50b3a850ddeed82dd (patch) | |
| tree | cb40c4fda2f40d68d3ae1b16c0eae10bd7d67279 /examples/extmini/ParadigmsCmn.gf | |
| parent | 57b260508c2fac00c15843003154d1cdf0ad083b (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.gf | 21 |
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) ; + } ; + +} |
