From e8adb69e3de69dba87beb59279365ecadee22085 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 7 Dec 2010 12:32:57 +0000 Subject: slight refactoring of Phrasebook, with less start words --- examples/phrasebook/SentencesFin.gf | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'examples/phrasebook/SentencesFin.gf') 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"))) ; + + } -- cgit v1.2.3