summaryrefslogtreecommitdiff
path: root/examples/phrasebook/SentencesFre.gf
diff options
context:
space:
mode:
authoraarne <aarne@chalmers.se>2010-05-26 14:11:23 +0000
committeraarne <aarne@chalmers.se>2010-05-26 14:11:23 +0000
commit231c63aa419dfb442a9225126bca064b5287666f (patch)
treed21c9625f5de1ccfaa5a4debdd9087d4d36b7705 /examples/phrasebook/SentencesFre.gf
parent0f82695c310d571b5cce8e806581acd604508551 (diff)
Ita and Fre superlatives, Ita possessives, in Phrasebook
Diffstat (limited to 'examples/phrasebook/SentencesFre.gf')
-rw-r--r--examples/phrasebook/SentencesFre.gf5
1 files changed, 4 insertions, 1 deletions
diff --git a/examples/phrasebook/SentencesFre.gf b/examples/phrasebook/SentencesFre.gf
index cbc6db8c4..84d7b8cf0 100644
--- a/examples/phrasebook/SentencesFre.gf
+++ b/examples/phrasebook/SentencesFre.gf
@@ -1,7 +1,8 @@
concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [
QProp,
IFemale, YouFamFemale, YouPolFemale,
- PYesToNo
+ PYesToNo,
+ Superlative
]
with
(Syntax = SyntaxFre),
@@ -9,6 +10,8 @@ concrete SentencesFre of Sentences = NumeralFre ** SentencesI - [
(Lexicon = LexiconFre) **
open SyntaxFre, ExtraFre, Prelude in {
+ lincat
+ Superlative = {s : Ord ; isPre : Bool} ;
lin
QProp a =
lin QS {s = \\_ => (EstcequeS (mkS a)).s} ;