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

QueryFin improved

Browse Source
This commit is contained in:
aarne
2011-09-19 14:37:30 +00:00
parent d1b32d0fef
commit eda239b053
4 changed files with 48 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
examples/query/small/QuerySwe.gf
View File

@@ -117,21 +117,11 @@ oper
-- lexicon
lincat
Country = {np : NP ; a : A} ;
JobTitle = CN ;
lin
NCountry c = c.np ;
PCountry c = mkAP c.a ;
Located i = mkAP (mkA2 (mkA "belägen" "beläget") in_Prep) i ;
Located i =
mkAP (mkA2 (mkA "belägen" "beläget") in_Prep) i ;
-- | mkAP (mkA2 (mkA "situated") in_Prep) i ;
Employed i =
mkAP (mkA2 (mkA "anställd") by8agent_Prep) i
-- | mkAP (mkA2 (mkA "paid") by8agent_Prep) i
-- | mkAP (mkA2 (mkA "aktiv") at_Prep) i
| mkAP (mkA2 (mkA "professionellt aktiv") at_Prep) i ;
Employed i = mkAP (mkA2 (mkA "anställd") by8agent_Prep) i ;
Work i =
mkVP (mkV2 (mkV "jobba") at_Prep) i
@@ -178,8 +168,4 @@ lin
Person3 = mkName "'Person3" ;
Person4 = mkName "'Person4" ;
oper
mkCountry : Str -> Str -> {np : NP ; a : A} =
\n,a -> {np = mkNP (mkPN n neutrum) ; a = mkA a} ;
}