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

Query/small packaged

Browse Source
This commit is contained in:
aarne
2011-09-26 06:56:36 +00:00
parent 1a3a26563b
commit ff4929e25e
5 changed files with 327 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -5,7 +5,7 @@ concrete QueryEng of Query = open
IrregEng,
SyntaxEng,
ExtraEng,
(L = LangEng),
(L = GrammarEng),
Prelude
in {
@@ -32,7 +32,7 @@ lin
QSet s =
let
ss : NP = s
| mkNP (mkNP thePl_Det L.name_N) (mkAdv possess_Prep s)
| mkNP (mkNP thePl_Det name_N) (mkAdv possess_Prep s)
---- s's names
in
mkUtt (mkImp (mkVP give_V3 (mkNP i_Pron) ss))
@@ -101,6 +101,7 @@ oper
give_V3 = mkV3 give_V ;
information_N = mkN "information" ;
other_A = mkA "other" ;
name_N = mkN "name" ;
-- lexical constructors
mkName : Str -> NP =