summaryrefslogtreecommitdiff
path: root/examples/phrasebook/SentencesFin.gf
diff options
context:
space:
mode:
Diffstat (limited to 'examples/phrasebook/SentencesFin.gf')
-rw-r--r--examples/phrasebook/SentencesFin.gf9
1 files changed, 7 insertions, 2 deletions
diff --git a/examples/phrasebook/SentencesFin.gf b/examples/phrasebook/SentencesFin.gf
index 62ccf7247..1b1febf6a 100644
--- a/examples/phrasebook/SentencesFin.gf
+++ b/examples/phrasebook/SentencesFin.gf
@@ -1,10 +1,12 @@
concrete SentencesFin of Sentences = NumeralFin ** SentencesI -
[Is, IsMass, NameNN, ObjMass,
- IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale
+ IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale,
+ GObjectPlease
] with
(Syntax = SyntaxFin),
(Symbolic = SymbolicFin),
- (Lexicon = LexiconFin) ** open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin) in {
+ (Lexicon = LexiconFin) **
+ open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin), Prelude in {
lin
Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- tämä pizza on herkullista
@@ -20,4 +22,7 @@ concrete SentencesFin of Sentences = NumeralFin ** SentencesI -
ObjMass = PartCN ;
+ GObjectPlease o = lin Text (mkPhr noPConj (mkUtt o) (lin Voc (ss "kiitos"))) ;
+
+
}