summaryrefslogtreecommitdiff
path: root/doc/tutorial/arithm/ArithmEng.gf
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2006-06-01 16:16:18 +0000
committeraarne <aarne@cs.chalmers.se>2006-06-01 16:16:18 +0000
commit013f3ce803cac0d6b0d6f100f4561fb8a0e892fe (patch)
tree1a0e76c97ec0a73ec35b2ce29b86481994609049 /doc/tutorial/arithm/ArithmEng.gf
parent89bd3aff33b7775dd0b1b6290828806c3e5f1c90 (diff)
resource examples in tutorial
Diffstat (limited to 'doc/tutorial/arithm/ArithmEng.gf')
-rw-r--r--doc/tutorial/arithm/ArithmEng.gf27
1 files changed, 27 insertions, 0 deletions
diff --git a/doc/tutorial/arithm/ArithmEng.gf b/doc/tutorial/arithm/ArithmEng.gf
new file mode 100644
index 000000000..5d2cd966d
--- /dev/null
+++ b/doc/tutorial/arithm/ArithmEng.gf
@@ -0,0 +1,27 @@
+--# -path=.:alltenses:prelude
+
+concrete ArithmEng of Arithm = ArithmI with
+ (Lang = LangEng),
+ (Lex = LexEng) ;
+
+{-
+
+concrete ArithmEng of Arithm = open LangEng, ParadigmsEng in {
+
+ lincat
+ Prop = S ;
+ Nat = NP ;
+
+ lin
+ Zero =
+ UsePN (regPN "zero" nonhuman) ;
+ Succ n =
+ DetCN (DetSg (SgQuant DefArt) NoOrd) (ComplN2 (regN2 "successor") n) ;
+ Even n =
+ UseCl TPres ASimul PPos
+ (PredVP n (UseComp (CompAP (PositA (regA "even"))))) ;
+ And x y =
+ ConjS and_Conj (BaseS x y) ;
+
+}
+-}