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

kein Deutsch and some other Phrasebook fixes

Browse Source
This commit is contained in:
aarne
2010-09-03 09:02:00 +00:00
parent da15326109
commit dc64e18ef2
5 changed files with 23 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
examples/phrasebook/SentencesGer.gf
View File

@@ -1,7 +1,8 @@
concrete SentencesGer of Sentences = NumeralGer ** SentencesI -
[PYesToNo,SHaveNo,SHaveNoMass,
Proposition, Action, Is, IsMass, SProp, SPropNot, QProp,
AHaveCurr, ACitizen, ABePlace, AKnowSentence, AKnowPerson, AKnowQuestion
AHaveCurr, ACitizen, ABePlace, AKnowSentence, AKnowPerson, AKnowQuestion,
Nationality, Language
] with
(Syntax = SyntaxGer),
(Symbolic = SymbolicGer),
@@ -33,4 +34,8 @@ concrete SentencesGer of Sentences = NumeralGer ** SentencesI -
AKnowQuestion p s = prop (mkCl p.name Lexicon.know_VQ s) ;
AKnowPerson p q = prop (mkCl p.name Lexicon.know_V2 q.name) ;
lincat
Nationality = {lang : CN ; country : NP ; prop : A} ;
Language = CN ; -- kein Deutsch
}

2
examples/phrasebook/SentencesI.gf
View File

@@ -102,7 +102,7 @@ incomplete concrete SentencesI of Sentences = Numeral **
ThePlace kind = let dd = if_then_else Det kind.isPl thePl_Det theSg_Det
in placeNP dd kind ;
APlace kind = let dd = if_then_else Det kind.isPl thePl_Det theSg_Det
APlace kind = let dd = if_then_else Det kind.isPl aPl_Det aSg_Det
in placeNP dd kind ;
IMale, IFemale = mkPerson i_Pron ;

8
examples/phrasebook/WordsFin.gf
View File

@@ -195,10 +195,10 @@ concrete WordsFin of Words = SentencesFin **
-- transports
HowFar place = mkQS (mkQCl far_IAdv place.name) ;
HowFarFrom place x =
mkQS (mkQCl far_IAdv (mkCl place.name (SyntaxFin.mkAdv from_Prep x.name))) ;
HowFarFromBy place x t =
mkQS (mkQCl far_IAdv (mkCl place.name
HowFarFrom x y =
mkQS (mkQCl far_IAdv (mkCl y.name (SyntaxFin.mkAdv from_Prep x.name))) ;
HowFarFromBy x y t =
mkQS (mkQCl far_IAdv (mkCl y.name
(mkVP (mkVP (SyntaxFin.mkAdv from_Prep x.name)) t))) ;
HowFarBy place t =
mkQS (mkQCl far_IAdv (mkCl place.name t)) ;

8
examples/phrasebook/WordsFre.gf
View File

@@ -224,12 +224,12 @@ lin
-- transports
HowFar place = mkQS (mkQCl what_distance_IAdv place.name) ;
HowFarFrom place x =
HowFarFrom x y =
mkQS (mkQCl (E.CompIQuant which_IQuant)
(mkNP (mkNP distance_NP (SyntaxFre.mkAdv from_Prep x.name)) place.to)) ;
HowFarFromBy place x t =
(mkNP (mkNP distance_NP (SyntaxFre.mkAdv from_Prep x.name)) y.to)) ;
HowFarFromBy x y t =
mkQS (mkQCl (E.CompIQuant which_IQuant)
(mkNP (mkNP (mkNP distance_NP (SyntaxFre.mkAdv from_Prep x.name)) place.to) t)) ;
(mkNP (mkNP (mkNP distance_NP (SyntaxFre.mkAdv from_Prep x.name)) y.to) t)) ;
HowFarBy place t =
mkQS (mkQCl what_distance_IAdv (mkNP place.name t)) ;

15
examples/phrasebook/WordsGer.gf
View File

@@ -94,7 +94,7 @@ CitRestaurant cit = mkCNPlace (mkCN cit (mkN "Restaurant" "Restaurants" neuter)
Dutch = mkNat "den Niederlanden" "Niederländisch" "niederländisch" ;
English = mkNat "England" "Englisch" "englisch" ;
Finnish = mkNat "Finnland" "Finnisch" "finnisch" ;
Flemish = mkNP (mkPN "Flämisch") ;
Flemish = mkCN (mkN "Flämisch" "Flämisch" neuter) ;
French = mkNat "Frankreich" "Französisch" "französisch" ;
German = mkNat "Deutschland" "Deutsch" "deutsche" ;
Italian = mkNat "Italien" "Italienisch" "italienisch" ;
@@ -127,7 +127,8 @@ CitRestaurant cit = mkCNPlace (mkCN cit (mkN "Restaurant" "Restaurants" neuter)
AMarried p = prop (mkCl p.name (mkA "verheiratet")) ;
AReady p = prop (mkCl p.name (mkA "bereit")) ;
AScared p = prop (mkCl p.name have_V2 (mkNP (mkN "Angst" "Angsten" feminine))) ;
ASpeak p lang = prop (mkCl p.name (mkV2 sprechen_V) lang) ;
ASpeak p lang = mkProp (mkCl p.name (mkV2 sprechen_V) (mkNP lang))
(mkS (mkCl p.name (mkV2 sprechen_V) (mkNP no_Quant lang))) ;
AThirsty p = prop (mkCl p.name (mkA "durstig")) ;
ATired p = prop (mkCl p.name (mkA "müde")) ;
AUnderstand p = prop (mkCl p.name (fixprefixV "ver" stehen_V)) ;
@@ -209,8 +210,8 @@ CitRestaurant cit = mkCNPlace (mkCN cit (mkN "Restaurant" "Restaurants" neuter)
HowFar place = mkQS (mkQCl far_IAdv place.name) ;
HowFarFrom x y = mkQS (mkQCl far_IAdv (mkNP (mkNP y.name (SyntaxGer.mkAdv from_Prep x.name)) (ParadigmsGer.mkAdv "entfernt"))) ;
HowFarFromBy x y t =
mkQS (mkQCl how_long_IAdv (mkCl (mkVP (SyntaxGer.mkAdv zu_Prep (mkNP (mkNP y.name (SyntaxGer.mkAdv from_Prep x.name)) t))))) ;
HowFarBy y t = mkQS (mkQCl how_long_IAdv (mkCl (mkVP (SyntaxGer.mkAdv zu_Prep (mkNP y.name t))))) ;
mkQS (mkQCl far_IAdv (mkCl (mkVP (SyntaxGer.mkAdv zu_Prep (mkNP (mkNP y.name (SyntaxGer.mkAdv from_Prep x.name)) t))))) ;
HowFarBy y t = mkQS (mkQCl far_IAdv (mkCl (mkVP (SyntaxGer.mkAdv zu_Prep (mkNP y.name t))))) ;
WhichTranspPlace trans place =
mkQS (mkQCl (mkIP which_IDet trans.name) (mkVP (mkVP L.go_V) place.to)) ;
@@ -223,8 +224,8 @@ CitRestaurant cit = mkCNPlace (mkCN cit (mkN "Restaurant" "Restaurants" neuter)
oper
mkNat : Str -> Str -> Str -> {lang : NP ; prop : A ; country : NP} = \co, la, adj ->
{lang = mkNP (mkPN la) ;
mkNat : Str -> Str -> Str -> {lang : CN ; prop : A ; country : NP} = \co, la, adj ->
{lang = mkCN (mkN la la neuter) ;
prop = mkA adj ; country = mkNP (mkPN co)} ;
mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
@@ -256,5 +257,5 @@ CitRestaurant cit = mkCNPlace (mkCN cit (mkN "Restaurant" "Restaurants" neuter)
} ;
far_IAdv = ss "wie weit" ** {lock_IAdv = <>} ;
how_long_IAdv = ss "wie lange dauert" ** {lock_IAdv=<>} ;
}