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

adjustments in Phrasebook

Browse Source
This commit is contained in:
aarne
2010-05-27 20:44:39 +00:00
parent 857c9e83a0
commit d156c5bccf
4 changed files with 24 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
examples/phrasebook/WordsDan.gf
View File

@@ -212,11 +212,17 @@ concrete WordsDan of Words = SentencesDan **
-- transports -- transports
HowFar place = mkQS (mkQCl long_IAdv (mkCl (mkVP (SyntaxDan.mkAdv to_Prep place.name)))) ; HowFar place =
HowFarFrom place x = mkQS (mkQCl long_IAdv (mkCl place.name (SyntaxDan.mkAdv from_Prep x.name))) ; 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 = HowFarFromBy x y t =
mkQS (mkQCl long_IAdv (mkNP (mkNP y.name (SyntaxDan.mkAdv from_Prep x.name)) t)) ; mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP y.to)
HowFarBy y t = mkQS (mkQCl long_IAdv (mkNP y.name t)) ; (SyntaxDan.mkAdv from_Prep x.name)) t))) ;
HowFarBy place t =
mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) t))) ;
-- not sure ! -- not sure !
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)) ;
@@ -250,7 +256,6 @@ concrete WordsDan of Words = SentencesDan **
by = SyntaxDan.mkAdv by8means_Prep (mkNP n) by = SyntaxDan.mkAdv by8means_Prep (mkNP n)
} ; } ;
far_IAdv = ExtraDan.IAdvAdv L.far_Adv ; far_IAdv : IAdv = ss "hvor langt" ** {lock_IAdv = <>};
long_IAdv : IAdv = ss "hvor langt" ** {lock_IAdv = <>};
how8much_IAdv : IAdv = ss "hvad" ** {lock_IAdv = <>}; how8much_IAdv : IAdv = ss "hvad" ** {lock_IAdv = <>};
} }

10
examples/phrasebook/WordsFin.gf
View File

@@ -214,11 +214,11 @@ concrete WordsFin of Words = SentencesFin **
-- modifiers of places -- modifiers of places
TheBest = mkSuperl L.good_A ; TheBest = mkSuperl L.good_A ;
TheClosest = mkSuperl L.near_A ; TheClosest = mkSuperl (mkA (mkN "läheinen") "lähempi" "lähin") ;
TheCheapest = mkSuperl (mkA "halpa") ; TheCheapest = mkSuperl (mkA (mkN "halpa") "halvempi" "halvin") ;
TheMostExpensive = mkSuperl (mkA "kallis") ; TheMostExpensive = mkSuperl (mkA (mkN "kallis") "kalliimpi" "kallein") ;
TheMostPopular = mkSuperl (mkA "suosittu") ; TheMostPopular = mkSuperl (mkA "suosittu") ;
TheWorst = mkSuperl L.bad_A ; TheWorst = mkSuperl (mkA "huono") ;
SuperlPlace sup p = placeNP sup p ; SuperlPlace sup p = placeNP sup p ;
@@ -267,7 +267,7 @@ concrete WordsFin of Words = SentencesFin **
by = SyntaxFin.mkAdv (casePrep adessive) (mkNP n) by = SyntaxFin.mkAdv (casePrep adessive) (mkNP n)
} ; } ;
mkSuperl : A -> Det = \a -> mkDet the_Art (mkOrd a) ; mkSuperl : A -> Det = \a -> mkDet the_Quant (mkOrd a) ;
far_IAdv = E.IAdvAdv L.far_Adv ; far_IAdv = E.IAdvAdv L.far_Adv ;
} }

8
examples/phrasebook/WordsNor.gf
View File

@@ -213,11 +213,11 @@ concrete WordsNor of Words = SentencesNor **
HowFar place = HowFar place =
mkQS (mkQCl far_IAdv (mkCl (mkVP place.to))) ; mkQS (mkQCl far_IAdv (mkCl (mkVP place.to))) ;
HowFarFrom place x = HowFarFrom x y =
mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP y.to)
(SyntaxNor.mkAdv from_Prep x.name)))) ; (SyntaxNor.mkAdv from_Prep x.name)))) ;
HowFarFromBy place x t = HowFarFromBy x y t =
mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP place.to) mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP y.to)
(SyntaxNor.mkAdv from_Prep x.name)) t))) ; (SyntaxNor.mkAdv from_Prep x.name)) t))) ;
HowFarBy place t = HowFarBy place t =
mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) t))) ; mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) t))) ;

8
examples/phrasebook/WordsSwe.gf
View File

@@ -191,11 +191,11 @@ concrete WordsSwe of Words = SentencesSwe **
HowFar place = HowFar place =
mkQS (mkQCl far_IAdv (mkCl (mkVP place.to))) ; mkQS (mkQCl far_IAdv (mkCl (mkVP place.to))) ;
HowFarFrom place x = HowFarFrom x y =
mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP y.to)
(SyntaxSwe.mkAdv from_Prep x.name)))) ; (SyntaxSwe.mkAdv from_Prep x.name)))) ;
HowFarFromBy place x t = HowFarFromBy x y t =
mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP place.to) mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP (mkVP y.to)
(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 (mkVP (mkVP place.to) t))) ; mkQS (mkQCl far_IAdv (mkCl (mkVP (mkVP place.to) t))) ;