From ae7f33bec015edfbf7393c2cc09a9803705107ae Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 4 Mar 2006 14:58:11 +0000
Subject: [PATCH] treebank creating script; duplicated consonants in LexiconEng

---
 resource-1.0/Makefile                  |  3 +++
 resource-1.0/english/LexiconEng.gf     | 14 +++++++-------
 resource-1.0/minimal/MinStructural.gf  |  1 +
 resource-1.0/minimal/MinStructuralI.gf |  1 +
 resource-1.0/mkTreebank.gfs            | 10 ++++++++++
 5 files changed, 22 insertions(+), 7 deletions(-)
 create mode 100644 resource-1.0/mkTreebank.gfs

diff --git a/resource-1.0/Makefile b/resource-1.0/Makefile
index 91e08f4d6..911744438 100644
--- a/resource-1.0/Makefile
+++ b/resource-1.0/Makefile
@@ -23,6 +23,9 @@ multimodal:
 compiled:
 	cd .. ; tar cvfz compiled.tgz alltenses/ mathematical/ multimodal/ present/ 
 
+treebank:
+	gf <mkTreebank.gfs
+
 stat:
 	wc */*.gfc
 
diff --git a/resource-1.0/english/LexiconEng.gf b/resource-1.0/english/LexiconEng.gf
index a9adf4aaa..0415381e5 100644
--- a/resource-1.0/english/LexiconEng.gf
+++ b/resource-1.0/english/LexiconEng.gf
@@ -13,13 +13,13 @@ lin
   art_N = regN "art" ;
   ask_V2Q = mkV2Q (regV "ask") [] ;
   baby_N = regN "baby" ;
-  bad_A = regADeg "bad" ;
+  bad_A = mkADeg "bad" "badly" "worse" "worst" ;
   bank_N = regN "bank" ;
   beautiful_A = regADeg "beautiful" ;
   become_VA = mkVA (irregV "become" "became" "become") ;
   beer_N = regN "beer" ;
   beg_V2V = mkV2V (regDuplV "beg") [] "to" ;
-  big_A = regADeg "big" ;
+  big_A = duplADeg "big" ;
   bike_N = regN "bike" ;
   bird_N = regN "bird" ;
   black_A = regADeg "black" ;
@@ -74,7 +74,7 @@ lin
   find_V2 = dirV2 (irregV "find" "found" "found") ;
   fish_N = mk2N "fish" "fish" ;
   floor_N = regN "floor" ;
-  forget_V2 = dirV2 (irregV "forget" "forgot" "forgotten") ;
+  forget_V2 = dirV2 (irregDuplV "forget" "forgot" "forgotten") ;
   fridge_N = regN "fridge" ;
   friend_N = regN "friend" ;
   fruit_N = regN "fruit" ;
@@ -94,7 +94,7 @@ lin
   hill_N = regN "hill" ;
   hope_VS = mkVS (regV "hope") ;
   horse_N = regN "horse" ;
-  hot_A = regADeg "hot" ;
+  hot_A = duplADeg "hot" ;
   house_N = regN "house" ;
   important_A = compoundADeg (regA "important") ;
   industry_N = regN "industry" ;
@@ -142,7 +142,7 @@ lin
   radio_N = regN "radio" ;
   rain_V0 = mkV0 (regV "rain") ;
   read_V2 = dirV2 (irregV "read" "read" "read") ;
-  red_A = regADeg "red" ;
+  red_A = duplADeg "red" ;
   religion_N = regN "religion" ;
   restaurant_N = regN "restaurant" ;
   river_N = regN "river" ;
@@ -186,7 +186,7 @@ lin
   teach_V2 = dirV2 (irregV "teach" "taught" "taught") ;
   television_N = regN "television" ;
   thick_A = regADeg "thick" ;
-  thin_A = regADeg "thin" ;
+  thin_A = duplADeg "thin" ;
   train_N = regN "train" ;
   travel_V = (regDuplV "travel") ;
   tree_N = regN "tree" ;
@@ -204,7 +204,7 @@ lin
   white_A = regADeg "white" ;
   window_N = regN "window" ;
   wine_N = regN "wine" ;
-  win_V2 = dirV2 (irregV "win" "won" "won") ;
+  win_V2 = dirV2 (irregDuplV "win" "won" "won") ;
   woman_N = mk2N "woman" "women" ;
   wonder_VQ = mkVQ (regV "wonder") ;
   wood_N = regN "wood" ;
diff --git a/resource-1.0/minimal/MinStructural.gf b/resource-1.0/minimal/MinStructural.gf
index 26ccda9e7..a83a5425c 100644
--- a/resource-1.0/minimal/MinStructural.gf
+++ b/resource-1.0/minimal/MinStructural.gf
@@ -18,6 +18,7 @@ abstract MinStructural = Cat ** {
   if_Subj : Subj ;
   in_Prep : Prep ;
   that_NP : NP ;
+  this_NP : NP ;
   we_Pron : Pron ;
   whichPl_IDet : IDet ;
   whichSg_IDet : IDet ;
diff --git a/resource-1.0/minimal/MinStructuralI.gf b/resource-1.0/minimal/MinStructuralI.gf
index d3c00d6f3..cce21bba6 100644
--- a/resource-1.0/minimal/MinStructuralI.gf
+++ b/resource-1.0/minimal/MinStructuralI.gf
@@ -13,6 +13,7 @@ incomplete concrete MinStructuralI of MinStructural = open Structural in {
   if_Subj = if_Subj ;
   in_Prep = in_Prep ;
   that_NP = that_NP ;
+  this_NP = this_NP ;
   we_Pron = we_Pron ;
   whichPl_IDet = whichPl_IDet ;
   whichSg_IDet = whichSg_IDet ;
diff --git a/resource-1.0/mkTreebank.gfs b/resource-1.0/mkTreebank.gfs
new file mode 100644
index 000000000..e1b79cf9d
--- /dev/null
+++ b/resource-1.0/mkTreebank.gfs
@@ -0,0 +1,10 @@
+-- to create a treebank with 3066 trees, for all languages
+
+i minimal/MinimalEng.gf
+gt -depth=4 -cat=S   | tb -xml | grep -v "/treebank>" | wf min.xml
+gt -depth=4 -cat=QS  | tb -xml | grep -v "treebank>"  | af min.xml
+gt -depth=3 (UttImpSg ? ?) | tb -xml | grep -v "treebank>"  | af min.xml
+gt -depth=4 -cat=NP  | tb -xml | grep -v "<treebank"  | af min.xml
+e
+i -nocf langs.gfcm
+rf min.xml | tb -trees | tb -xml | wf langs.xml