GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-26 04:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

treebank to test Query

Browse Source
This commit is contained in:
aarne
2011-09-19 15:39:48 +00:00
parent eda239b053
commit acd9c78a43
5 changed files with 58 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
examples/query/small/QueryEng.gf
View File

@@ -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) ;