From 7da592fecc73bb057bd2fe86d8cb3866c7680127 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 19 Sep 2011 15:39:48 +0000 Subject: treebank to test Query --- examples/query/small/QueryEng.gf | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'examples/query/small/QueryEng.gf') diff --git a/examples/query/small/QueryEng.gf b/examples/query/small/QueryEng.gf index 6117c9b3c..c2db9880a 100644 --- a/examples/query/small/QueryEng.gf +++ b/examples/query/small/QueryEng.gf @@ -43,7 +43,7 @@ lin QWhere s = mkUtt (mkQS (mkQCl where_IAdv s)) ; QInfo s = let - info : NP = mkNP (all_NP | (mkNP information_N)) (mkAdv about_Prep s) ; + info : NP = mkNP all_Predet (mkNP (mkNP information_N) (mkAdv about_Prep s)) ; in mkUtt (mkImp (mkVP give_V3 (mkNP i_Pron) info)) | mkUtt info ; @@ -127,7 +127,11 @@ lin mkVP (mkV2 (mkV "work") at_Prep) i | mkVP (mkV2 (mkV "collaborate") in_Prep) i ; - HaveTitle t i = + HaveTitle t = + mkVP (mkAP (mkA2 (mkA "employed") as_Prep) (mkNP t)) + | mkVP (mkV2 (mkV "work") as_Prep) (mkNP t) ; + + HaveTitleOrg t i = mkVP (mkVP (mkAP (mkA2 (mkA "employed") as_Prep) (mkNP t))) (mkAdv at_Prep i) | mkVP (mkVP (mkV2 (mkV "work") as_Prep) (mkNP t)) (mkAdv at_Prep i) ; -- | mkVP (mkVP have_V2 (mkNP the_Det (mkCN (mkN2 (mkN "title")) (mkNP t)))) (mkAdv at_Prep i) ; -- cgit v1.2.3