msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixed how far in PhrasebookSwe

Browse Source
This commit is contained in:
aarne
2010-05-18 08:15:18 +00:00
parent d1748049aa
commit ec227abe43
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
examples/phrasebook/WordsSwe.gf
View File

@@ -189,15 +189,16 @@ concrete WordsSwe of Words = SentencesSwe **
-- transports -- transports
HowFar place = mkQS (mkQCl far_IAdv place.name) ; HowFar place =
mkQS (mkQCl far_IAdv (mkCl (mkVP place.to))) ;
HowFarFrom place x = HowFarFrom place x =
mkQS (mkQCl far_IAdv (mkCl place.name (SyntaxSwe.mkAdv from_Prep x.name))) ; mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to)
(SyntaxSwe.mkAdv from_Prep x.name)))) ;
HowFarFromBy place x t = HowFarFromBy place x t =
mkQS (mkQCl far_IAdv (mkCl place.name mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP place.to)
(mkVP (mkVP (SyntaxSwe.mkAdv from_Prep x.name)) t))) ; (SyntaxSwe.mkAdv from_Prep x.name)) t))) ;
HowFarBy place t = HowFarBy place t =
mkQS (mkQCl far_IAdv (mkCl place.name t)) ; mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) t))) ;
-- mkQS (mkQCl (mkIAdv far_IAdv t) y.name) ;
WhichTranspPlace trans place = WhichTranspPlace trans place =
mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ; mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;