diff options
| author | aarne <aarne@chalmers.se> | 2010-05-24 14:50:07 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-05-24 14:50:07 +0000 |
| commit | 5a611b32ca60f256a38eefa7666f9db1228304af (patch) | |
| tree | dd99a34279f57b179cb112afd9a2686c526e65ac | |
| parent | 20c5bff4eac78212a2ad31c03a59741511217332 (diff) | |
started Koen's fixes in PhrasebookDut
| -rw-r--r-- | examples/phrasebook/WordsDut.gf | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/examples/phrasebook/WordsDut.gf b/examples/phrasebook/WordsDut.gf index 81829c7ee..09672164c 100644 --- a/examples/phrasebook/WordsDut.gf +++ b/examples/phrasebook/WordsDut.gf @@ -69,7 +69,8 @@ concrete WordsDut of Words = SentencesDut ** Zoo = mkPlace (P.mkN "dierentuin" "dierentuinen" P.de) "op" ; - CitRestaurant cit = mkCNPlace (mkCN cit (P.mkN "restaurant")) in_Prep to_Prep ; + CitRestaurant cit = + mkCNPlace (mkCN cit (P.mkN "restaurant" "restaurants" P.het)) in_Prep to_Prep ; -- currencies @@ -144,7 +145,7 @@ ik ga te voet/ ik ga lopend AIll p = mkCl p.name (P.mkA "ziek") ; -- to be ? AKnow p = mkCl p.name I.wijten_V ; -- ik weet het. ALike p item = mkCl p.name (P.mkV2 I.houden_V P.van_Prep) item ; -- lekker - ALive p co = mkCl p.name (mkVP (mkVP L.live_V) (SyntaxDut.mkAdv in_Prep co)) ; -- woon + ALive p co = mkCl p.name (mkVP (mkVP (P.mkV "wonen")) (SyntaxDut.mkAdv in_Prep co)) ; -- woon ALove p q = mkCl p.name (P.mkV2 (P.mkV "lief" P.hebben_V)) q.name ; -- houden van AMarried p = mkCl p.name (P.mkA "getrouwd") ; -- ik ben getrouwd AReady p = mkCl p.name (P.mkA "klaar") ; -- ik ben klaar @@ -240,7 +241,7 @@ ik ga te voet/ ik ga lopend mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> mkNPDay (mkNP (P.mkPN d)) (mkAdv on_Prep (mkNP (P.mkPN d))) - (mkAdv on_Prep (mkNP a_Quant plNum (mkCN (P.mkN d)))) ; + (mkAdv on_Prep (mkNP a_Quant plNum (mkCN (P.mkN d (d + "en") P.utrum)))) ; mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> mkCNPlace (mkCN p) (P.mkPrep i) to_Prep ; |