diff options
| author | aarne <aarne@chalmers.se> | 2010-04-12 20:10:48 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-04-12 20:10:48 +0000 |
| commit | 0b224424a6ea4bbcd68830599e863d3e0b922424 (patch) | |
| tree | b57ad36db94cc15cc66bdbfc0e2ec65932934cb5 /examples/phrasebook/WordsFin.gf | |
| parent | 24d2acf097b029abf1cba87d3debc6488534c88f (diff) | |
a module to compile Phrasebook in different lang combinations
Diffstat (limited to 'examples/phrasebook/WordsFin.gf')
| -rw-r--r-- | examples/phrasebook/WordsFin.gf | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/examples/phrasebook/WordsFin.gf b/examples/phrasebook/WordsFin.gf index d779859ef..6be95ba29 100644 --- a/examples/phrasebook/WordsFin.gf +++ b/examples/phrasebook/WordsFin.gf @@ -84,17 +84,9 @@ concrete WordsFin of Words = SentencesFin ** AHasAge p num = mkCl p.name (mkNP num L.year_N) ; AHasChildren p num = mkCl p.name have_V2 (mkNP num L.child_N) ; AHasName p name = mkCl (nameOf p) name ; - AHasRoom p num = mkCl p.name have_V2 ----- (mkNP (E.PartCN (mkN "huone")) ---- partitive works in questions - (mkNP (mkNP a_Det (mkN "huone")) - (SyntaxFin.mkAdv for_Prep (mkNP num (mkN "henki" "henkiä")))) ; - AHasTable p num = mkCl p.name have_V2 ----- (mkNP (E.PartCN (mkN "pöytä")) - (mkNP (mkNP a_Det (mkN "pöytä")) - (SyntaxFin.mkAdv for_Prep (mkNP num (mkN "henki" "henkiä")))) ; - - - AHungry p = mkCl p.name have_V2 (mkNP (mkN "nälkä")) ; + AHasRoom p = haveForPerson p.name (mkCN (mkN "huone")) ; + AHasTable p = haveForPerson p.name (mkCN (mkN "pöytä")) ; + AHungry p = E.AdvExistNP (SyntaxFin.mkAdv on_Prep p.name) (mkNP (mkN "nälkä")) ; AIll p = mkCl p.name (mkA "sairas") ; AKnow p = mkCl p.name (mkV "tietää") ; ALike p item = mkCl p.name L.like_V2 item ; @@ -104,7 +96,7 @@ concrete WordsFin of Words = SentencesFin ** AReady p = mkCl p.name (ParadigmsFin.mkA "valmis") ; AScared p = mkCl p.name (caseV partitive (mkV "pelottaa")) ; ASpeak p lang = mkCl p.name (mkV2 (mkV "puhua") partitive) lang ; - AThirsty p = mkCl p.name have_V2 (mkNP (mkN "jano")) ; + AThirsty p = E.AdvExistNP (SyntaxFin.mkAdv on_Prep p.name) (mkNP (mkN "jano")) ; ATired p = mkCl p.name (caseV partitive (mkV "väsyttää")) ; AUnderstand p = mkCl p.name (mkV "ymmärtää") ; AWant p obj = mkCl p.name (mkV2 "haluta") obj ; @@ -184,6 +176,14 @@ concrete WordsFin of Words = SentencesFin ** nameOf : NPPerson -> NP = \p -> (xOf sing L.name_N p).name ; + oper + -- do you have a table for five persons + haveForPerson : NP -> CN -> Card -> Cl = \p,a,n -> + mkCl p have_V2 +---- (mkNP (E.PartCN a) ---- partitive works in questions + (mkNP (mkNP a_Det a) + (SyntaxFin.mkAdv for_Prep (mkNP n (mkN "henki" "henkiä")))) ; + open_Adv = ParadigmsFin.mkAdv "avoinna" ; closed_Adv = ParadigmsFin.mkAdv "kiinni" ; |