diff options
| author | aarne <aarne@chalmers.se> | 2010-05-27 20:44:39 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-05-27 20:44:39 +0000 |
| commit | d156c5bccf33b3d143134520ee614b58d20565b3 (patch) | |
| tree | f941f30889d56781d28920d0a70710e327255c60 /examples/phrasebook/WordsDan.gf | |
| parent | 857c9e83a05339118014b738025547c8d1cfadf5 (diff) | |
adjustments in Phrasebook
Diffstat (limited to 'examples/phrasebook/WordsDan.gf')
| -rw-r--r-- | examples/phrasebook/WordsDan.gf | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/examples/phrasebook/WordsDan.gf b/examples/phrasebook/WordsDan.gf index 97d7a6467..b44ba3dcd 100644 --- a/examples/phrasebook/WordsDan.gf +++ b/examples/phrasebook/WordsDan.gf @@ -212,11 +212,17 @@ concrete WordsDan of Words = SentencesDan ** -- transports - HowFar place = mkQS (mkQCl long_IAdv (mkCl (mkVP (SyntaxDan.mkAdv to_Prep place.name)))) ; - HowFarFrom place x = mkQS (mkQCl long_IAdv (mkCl place.name (SyntaxDan.mkAdv from_Prep x.name))) ; + HowFar place = + mkQS (mkQCl far_IAdv (mkCl (mkVP place.to))) ; + HowFarFrom x y = + mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP y.to) + (SyntaxDan.mkAdv from_Prep x.name)))) ; HowFarFromBy x y t = - mkQS (mkQCl long_IAdv (mkNP (mkNP y.name (SyntaxDan.mkAdv from_Prep x.name)) t)) ; - HowFarBy y t = mkQS (mkQCl long_IAdv (mkNP y.name t)) ; + mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP y.to) + (SyntaxDan.mkAdv from_Prep x.name)) t))) ; + HowFarBy place t = + mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) t))) ; + -- not sure ! WhichTranspPlace trans place = mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ; @@ -250,7 +256,6 @@ concrete WordsDan of Words = SentencesDan ** by = SyntaxDan.mkAdv by8means_Prep (mkNP n) } ; - far_IAdv = ExtraDan.IAdvAdv L.far_Adv ; - long_IAdv : IAdv = ss "hvor langt" ** {lock_IAdv = <>}; + far_IAdv : IAdv = ss "hvor langt" ** {lock_IAdv = <>}; how8much_IAdv : IAdv = ss "hvad" ** {lock_IAdv = <>}; } |