summaryrefslogtreecommitdiff
path: root/examples/phrasebook/SentencesFre.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2010-03-30 15:39:11 +0000
committeraarne <aarne@chalmers.se>2010-03-30 15:39:11 +0000
commitde909a4e44419562ca4ba071e15cf9b8e00288be (patch)
treefdae4da7fbce3edb0276a93219495c019fdaca08 /examples/phrasebook/SentencesFre.gf
parent4bae49c6341fc831f474f1fffc0f763892ef696d (diff)
disambiguation in Phrasebook grammars, PGF server, and the GUI
Diffstat (limited to 'examples/phrasebook/SentencesFre.gf')
-rw-r--r--examples/phrasebook/SentencesFre.gf9
1 files changed, 6 insertions, 3 deletions
diff --git a/examples/phrasebook/SentencesFre.gf b/examples/phrasebook/SentencesFre.gf
index d4415e74a..3402c2db0 100644
--- a/examples/phrasebook/SentencesFre.gf
+++ b/examples/phrasebook/SentencesFre.gf
@@ -1,9 +1,12 @@
-concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs]
+concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [WhetherIs, QAction]
with
(DiffPhrasebook = DiffPhrasebookFre),
(Syntax = SyntaxFre) ** open SyntaxFre, ExtraFre in {
- lin WhetherIs item quality =
- lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s} ;
+ lin
+ WhetherIs item quality =
+ {s = \\_ => lin QS {s = \\_ => (EstcequeS (mkS (mkCl item quality))).s}} ;
+ QAction a =
+ {s = \\r => lin QS {s = \\_ => (EstcequeS (mkS (a.s ! r))).s}} ;
}