diff options
Diffstat (limited to 'examples/phrasebook/SentencesFin.gf')
| -rw-r--r-- | examples/phrasebook/SentencesFin.gf | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/examples/phrasebook/SentencesFin.gf b/examples/phrasebook/SentencesFin.gf index 68644d1bf..1fcbb7b9b 100644 --- a/examples/phrasebook/SentencesFin.gf +++ b/examples/phrasebook/SentencesFin.gf @@ -1,6 +1,7 @@ concrete SentencesFin of Sentences = NumeralFin ** SentencesI - [Is, IsMass, NameNN, ObjMass, IFemale, YouFamFemale, YouPolFemale, IMale, YouFamMale, YouPolMale, + NPPlace, CNPlace, placeNP, mkCNPlace, mkCNPlacePl, GObjectPlease ] with (Syntax = SyntaxFin), @@ -10,6 +11,18 @@ concrete SentencesFin of Sentences = NumeralFin ** SentencesI - flags optimize = noexpand ; + oper + NPPlace = {name : NP ; at : Adv ; to : Adv ; from : Adv} ; + CNPlace = {name : CN ; at : Prep ; to : Prep ; from : Prep ; isPl : Bool} ; + + placeNP : Det -> CNPlace -> NPPlace = \det,kind -> + let name : NP = mkNP det kind.name in { + name = name ; + at = mkAdv kind.at name ; + to = mkAdv kind.to name ; + from = mkAdv kind.from name + } ; + lin Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- tämä pizza on herkullista IsMass mass prop = mkCl (mkNP a_Det mass) (V.UseComp (CompPartAP prop)) ; -- pizza on herkullista |