From 8f9eb4f7f32560803d690be2b75e9dcc6cb08502 Mon Sep 17 00:00:00 2001 From: "ramona.enache" Date: Fri, 28 May 2010 12:15:28 +0000 Subject: added inherent number to places, fixed places in French --- examples/phrasebook/WordsFin.gf | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'examples/phrasebook/WordsFin.gf') diff --git a/examples/phrasebook/WordsFin.gf b/examples/phrasebook/WordsFin.gf index b36461c7a..29494ccb2 100644 --- a/examples/phrasebook/WordsFin.gf +++ b/examples/phrasebook/WordsFin.gf @@ -58,7 +58,7 @@ concrete WordsFin of Words = SentencesFin ** School = mkPlace (mkN "koulu") lla ; CitRestaurant cit = { - name = mkCN cit (mkN "ravintola") ; at = casePrep inessive ; to = casePrep illative + name = mkCN cit (mkN "ravintola") ; at = casePrep inessive ; to = casePrep illative; isPl = False } ; Parking = mkPlace (mkN "pysäköinti" (mkN "alue")) lla ; Supermarket = mkPlace (mkN "supermarket") ssa ; @@ -238,11 +238,12 @@ concrete WordsFin of Words = SentencesFin ** habitual = ParadigmsFin.mkAdv s } ; - mkPlace : N -> Bool -> {name : CN ; at : Prep ; to : Prep} = \p,e -> { + mkPlace : N -> Bool -> {name : CN ; at : Prep ; to : Prep; isPl : Bool} = \p,e -> { name = mkCN p ; at = casePrep (if_then_else Case e adessive inessive) ; -- True: external to = casePrep (if_then_else Case e allative illative) ; - } ; + isPl = False + } ; ssa = False ; lla = True ; -- cgit v1.2.3