diff options
| author | aarne <aarne@chalmers.se> | 2010-04-06 20:35:12 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-04-06 20:35:12 +0000 |
| commit | b9fcba00cf1936887e86a98e4992c0f5565e47d2 (patch) | |
| tree | d46544b009ea7ebdc1a118b467aef17fd8ea4f06 /examples/phrasebook/WordsSwe.gf | |
| parent | a66d2186fe0df7e72d2ebd7fc7c70629fe555ec4 (diff) | |
improved the performance of Romance while retaining correct agreement ; removed Diff modules from Phrasebook
Diffstat (limited to 'examples/phrasebook/WordsSwe.gf')
| -rw-r--r-- | examples/phrasebook/WordsSwe.gf | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/examples/phrasebook/WordsSwe.gf b/examples/phrasebook/WordsSwe.gf index e70deeec0..02672f541 100644 --- a/examples/phrasebook/WordsSwe.gf +++ b/examples/phrasebook/WordsSwe.gf @@ -77,6 +77,9 @@ concrete WordsSwe of Words = SentencesSwe ** PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; + HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "kosta"))) ; + ItCost item price = mkCl item (mkV2 (mkV "kosta")) price ; + oper mkNat : Str -> Str -> {lang : NP ; prop : A ; country : NP} = \nat,co -> {lang = mkNP (mkPN (nat + "a")) ; |