From d5f68970b9a782290b1ca75a09fe55ede89e49b2 Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@digitalgrammars.com>
Date: Tue, 9 Feb 2021 10:54:51 +0100
Subject: [PATCH] Add FoodsSwe (fails)

---
 testsuite/lpgf/Foods.treebank |  5 +++++
 testsuite/lpgf/FoodsI.gf      | 29 +++++++++++++++++++++++++++++
 testsuite/lpgf/FoodsSwe.gf    |  6 ++++++
 testsuite/lpgf/LexFoods.gf    | 15 +++++++++++++++
 testsuite/lpgf/LexFoodsSwe.gf | 17 +++++++++++++++++
 testsuite/lpgf/mkTreebank.sh  |  2 +-
 6 files changed, 73 insertions(+), 1 deletion(-)
 create mode 100644 testsuite/lpgf/FoodsI.gf
 create mode 100644 testsuite/lpgf/FoodsSwe.gf
 create mode 100644 testsuite/lpgf/LexFoods.gf
 create mode 100644 testsuite/lpgf/LexFoodsSwe.gf

diff --git a/testsuite/lpgf/Foods.treebank b/testsuite/lpgf/Foods.treebank
index 9e5aee9a0..6e56e7206 100644
--- a/testsuite/lpgf/Foods.treebank
+++ b/testsuite/lpgf/Foods.treebank
@@ -3,28 +3,33 @@ FoodsBul: онова вино е превъзходно
 FoodsChi: 那 瓶 酒 是 美 味 的
 FoodsEng: that wine is delicious
 FoodsHeb: היין ההוא טעים
+FoodsSwe: det där vinet är läckert
 
 Foods: Pred (This Pizza) (Very Boring)
 FoodsBul: тази пица е много еднообразна
 FoodsChi: 这 张 比 萨 饼 是 非 常 难 吃 的
 FoodsEng: this pizza is very boring
 FoodsHeb: הפיצה הזאת מאוד משעממת
+FoodsSwe: den här pizzan är mycket tråkig
 
 Foods: Pred (This Cheese) Fresh
 FoodsBul: това сирене е свежо
 FoodsChi: 这 块 奶 酪 是 新 鲜 的
 FoodsEng: this cheese is fresh
 FoodsHeb: הגבינה הזאת טריה
+FoodsSwe: den här osten är färsk
 
 Foods: Pred (Those Fish) Warm
 FoodsBul: онези риби са горещи
 FoodsChi: 那 几 条 鱼 是 温 热 的
 FoodsEng: those fish are warm
 FoodsHeb: הדגים ההם חמים
+FoodsSwe: de där fiskarna är varma
 
 Foods: Pred (That (Mod Boring (Mod Italian Pizza))) Expensive
 FoodsBul: онази еднообразна италианска пица е скъпа
 FoodsChi: 那 张 又 难 吃 又 意 大 利 式 的 比 萨 饼 是 昂 贵 的
 FoodsEng: that boring Italian pizza is expensive
 FoodsHeb: הפיצה האיטלקית המשעממת ההיא יקרה
+FoodsSwe: den där tråkiga italienska pizzan är dyr
 
diff --git a/testsuite/lpgf/FoodsI.gf b/testsuite/lpgf/FoodsI.gf
new file mode 100644
index 000000000..f4113b724
--- /dev/null
+++ b/testsuite/lpgf/FoodsI.gf
@@ -0,0 +1,29 @@
+-- (c) 2009 Aarne Ranta under LGPL
+
+incomplete concrete FoodsI of Foods = 
+    open Syntax, LexFoods in {
+  lincat
+    Comment = Utt ; 
+    Item = NP ;
+    Kind = CN ;
+    Quality = AP ;
+  lin
+    Pred item quality = mkUtt (mkCl item quality) ;
+    This kind = mkNP this_Det kind ;
+    That kind = mkNP that_Det kind ;
+    These kind = mkNP these_Det kind ;
+    Those kind = mkNP those_Det kind ;
+    Mod quality kind = mkCN quality kind ;
+    Very quality = mkAP very_AdA quality ;
+
+    Wine = mkCN wine_N ;
+    Pizza = mkCN pizza_N ;
+    Cheese = mkCN cheese_N ;
+    Fish = mkCN fish_N ;
+    Fresh = mkAP fresh_A ;
+    Warm = mkAP warm_A ;
+    Italian = mkAP italian_A ;
+    Expensive = mkAP expensive_A ;
+    Delicious = mkAP delicious_A ;
+    Boring = mkAP boring_A ;
+}
diff --git a/testsuite/lpgf/FoodsSwe.gf b/testsuite/lpgf/FoodsSwe.gf
new file mode 100644
index 000000000..c3ed38abb
--- /dev/null
+++ b/testsuite/lpgf/FoodsSwe.gf
@@ -0,0 +1,6 @@
+
+-- (c) 2009 Aarne Ranta under LGPL
+
+concrete FoodsSwe of Foods = FoodsI with 
+  (Syntax = SyntaxSwe),
+  (LexFoods = LexFoodsSwe) ** {flags language = sv_SE;} ;
diff --git a/testsuite/lpgf/LexFoods.gf b/testsuite/lpgf/LexFoods.gf
new file mode 100644
index 000000000..12ace208c
--- /dev/null
+++ b/testsuite/lpgf/LexFoods.gf
@@ -0,0 +1,15 @@
+-- (c) 2009 Aarne Ranta under LGPL
+
+interface LexFoods = open Syntax in {
+  oper
+    wine_N : N ;
+    pizza_N : N ;
+    cheese_N : N ;
+    fish_N : N ;
+    fresh_A : A ;
+    warm_A : A ;
+    italian_A : A ;
+    expensive_A : A ;
+    delicious_A : A ;
+    boring_A : A ;
+}
diff --git a/testsuite/lpgf/LexFoodsSwe.gf b/testsuite/lpgf/LexFoodsSwe.gf
new file mode 100644
index 000000000..6718e9fab
--- /dev/null
+++ b/testsuite/lpgf/LexFoodsSwe.gf
@@ -0,0 +1,17 @@
+-- (c) 2009 Aarne Ranta under LGPL
+--# -coding=latin1
+
+instance LexFoodsSwe of LexFoods = 
+    open SyntaxSwe, ParadigmsSwe in {
+  oper
+    wine_N = mkN "vin" "vinet" "viner" "vinerna" ;
+    pizza_N = mkN "pizza" ;
+    cheese_N = mkN "ost" ;
+    fish_N = mkN "fisk" ;
+    fresh_A = mkA "f�rsk" ;
+    warm_A = mkA "varm" ;
+    italian_A = mkA "italiensk" ;
+    expensive_A = mkA "dyr" ;
+    delicious_A = mkA "l�cker" ;
+    boring_A = mkA "tr�kig" ;
+}
diff --git a/testsuite/lpgf/mkTreebank.sh b/testsuite/lpgf/mkTreebank.sh
index 0f62230c0..890c42558 100755
--- a/testsuite/lpgf/mkTreebank.sh
+++ b/testsuite/lpgf/mkTreebank.sh
@@ -12,7 +12,7 @@ TREEBANK="$ABSNAME.treebank"
 
 : > $TREEBANK
 while read tree; do
-  echo "linearize -treebank $tree | write_file -file=$TREEBANK -append" | gf --run --quiet $ABSNAME*.gf
+  echo "linearize -treebank $tree | write_file -file=$TREEBANK -append" | gf --run $ABSNAME*.gf > /dev/null
   echo "" >> $TREEBANK
 done < $TREES