summaryrefslogtreecommitdiff
path: root/examples/extmini/ParadigmsCmn.gf
diff options
context:
space:
mode:
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) ;
+ } ;
+
+}