msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

test script for query

Browse Source
This commit is contained in:
aarne
2010-06-18 07:07:32 +00:00
parent 992a7ffb38
commit 0493f640d3
3 changed files with 566 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
examples/query/QueryEng.gf
View File

@@ -30,7 +30,7 @@ lin
let
ss : NP = s
| mkNP (mkNP thePl_Det L.name_N) (mkAdv possess_Prep s)
---- s's names
| mkNP (GenNP s) plNum L.name_N ;
in
mkUtt (mkImp (mkVP give_V3 ss (mkNP i_Pron)))
| mkUtt (mkQS (mkQCl (L.CompIP whatSg_IP) ss))
@@ -52,6 +52,7 @@ lin
AAct s p = mkUtt (mkCl s p) ;
SAll k = mkNP all_Predet (mkNP aPl_Det k) | mkNP thePl_Det k ;
SRel s r = mkNP (GenNP s) plNum r.cn ;
SOne k = mkNP n1_Numeral k ;
SIndef k = mkNP a_Det k ;
SPlural k = mkNP aPl_Det k ;
@@ -61,7 +62,6 @@ lin
KRelSet r s =
mkCN r.cn (mkAdv r.prep s) ;
---- | S's R
---- KRelsSet r q s =
---- mkCN r.cn (mkAdv r.prep s) ;
@@ -138,7 +138,7 @@ lin
Location = mkRelation "location" ;
Region = mkRelation "region" ;
Subregion = mkRelation "subregion" ;
Subregion = mkRelation "subregion" | mkRelation "sub-region" ;
RName = mkRelation "name" ;
RNickname = mkRelation "nickname" ;