diff options
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) ; + } ; + +} |
