resource examples

7 files changed, 79 insertions, 0 deletions

diff --git a/doc/tutorial/applications/Comments.gf b/doc/tutorial/applications/Comments.gf
new file mode 100644
index 000000000..3801ee77a
--- /dev/null
+++ b/doc/tutorial/applications/Comments.gf
@@ -0,0 +1,12 @@
+abstract Comments = {
+
+  cat
+    S ; Item ; Kind ; Quality ;
+
+  fun
+    Is : Item -> Quality -> S ;
+    This, That, These, Those : Kind -> Item ;
+    QKind : Quality -> Kind -> Kind ;
+    Very : Quality -> Quality ;
+
+}
diff --git a/doc/tutorial/applications/CommentsEng.gf b/doc/tutorial/applications/CommentsEng.gf
new file mode 100644
index 000000000..cd8879118
--- /dev/null
+++ b/doc/tutorial/applications/CommentsEng.gf
@@ -0,0 +1,2 @@
+concrete CommentsEng of Comments = CommentsI with
+  (Syntax = SyntaxEng) ;
diff --git a/doc/tutorial/applications/CommentsI.gf b/doc/tutorial/applications/CommentsI.gf
new file mode 100644
index 000000000..d21150ff0
--- /dev/null
+++ b/doc/tutorial/applications/CommentsI.gf
@@ -0,0 +1,21 @@
+--# -path=.:prelude
+
+incomplete concrete CommentsI of Comments = open Syntax in {
+
+  lincat
+    S = Syntax.S ;
+    Quality = AP ; 
+    Kind = CN ;
+    Item = NP ;
+
+  lin
+    Is item quality = PosVP item (PredAP quality) ;
+    This  = DetCN this_Det ;
+    That  = DetCN that_Det ;
+    These = DetCN these_Det ;
+    Those = DetCN those_Det ;
+    QKind = ModCN ;
+    Very  = AdAP very_AdA ;
+
+}
+    
\ No newline at end of file
diff --git a/doc/tutorial/applications/CommentsIta.gf b/doc/tutorial/applications/CommentsIta.gf
new file mode 100644
index 000000000..eb60a8935
--- /dev/null
+++ b/doc/tutorial/applications/CommentsIta.gf
@@ -0,0 +1,2 @@
+concrete CommentsIta of Comments = CommentsI with
+  (Syntax = SyntaxIta) ;
diff --git a/doc/tutorial/applications/FoodComments.gf b/doc/tutorial/applications/FoodComments.gf
new file mode 100644
index 000000000..2d9f7013b
--- /dev/null
+++ b/doc/tutorial/applications/FoodComments.gf
@@ -0,0 +1,7 @@
+abstract FoodComments = Comments ** {
+
+  fun
+    Wine, Cheese, Fish, Pizza : Kind ;
+    Fresh, Warm, Italian, Expensive, Delicious, Boring : Quality ;
+
+}
diff --git a/doc/tutorial/applications/FoodCommentsEng.gf b/doc/tutorial/applications/FoodCommentsEng.gf
new file mode 100644
index 000000000..4ac054dd3
--- /dev/null
+++ b/doc/tutorial/applications/FoodCommentsEng.gf
@@ -0,0 +1,18 @@
+--# -path=.:../resource:prelude
+
+
+concrete FoodCommentsEng of FoodComments = CommentsEng ** open LexEng in {
+
+  lin
+    Wine = regN "wine" ;
+    Cheese = regN "cheese" ;
+    Fish = mkN "fish" "fish" ;
+    Pizza = regN "pizza" ;
+    Fresh = mkA "fresh" ;
+    Warm = mkA "warm" ;
+    Italian = mkA "Italian" ;
+    Expensive = mkA "expensive" ;
+    Delicious = mkA "delicious" ;
+    Boring = mkA "boring" ;
+
+}
diff --git a/doc/tutorial/applications/FoodCommentsIta.gf b/doc/tutorial/applications/FoodCommentsIta.gf
new file mode 100644
index 000000000..a75c4a8b7
--- /dev/null
+++ b/doc/tutorial/applications/FoodCommentsIta.gf
@@ -0,0 +1,17 @@
+--# -path=.:../resource:prelude
+
+concrete FoodCommentsIta of FoodComments = CommentsIta ** open LexIta in {
+
+  lin
+    Wine = regN "vino" ;
+    Cheese = mkN masculine "formaggio" "formaggi" ;
+    Fish = regN "pesce" ;
+    Pizza = regN "pizza" ;
+    Fresh = mkA "fresco" "fresca" "freschi" "fresche" ;
+    Warm = regA "caldo" ;
+    Italian = regA "italiano" ;
+    Expensive = regA "caro" ;
+    Delicious = regA "delizioso" ;
+    Boring = regA "noioso" ;
+
+}