From 242670a6cbdf32069b9876b50aadb67e468017ee Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 7 Apr 2010 21:05:29 +0000 Subject: [PATCH] cloned the rest of resource languages in Phrasebook --- examples/phrasebook/GreetingsDan.gf | 28 ++++++ examples/phrasebook/GreetingsDut.gf | 28 ++++++ examples/phrasebook/GreetingsNor.gf | 28 ++++++ examples/phrasebook/GreetingsPol.gf | 28 ++++++ examples/phrasebook/GreetingsRus.gf | 28 ++++++ examples/phrasebook/Makefile | 9 +- examples/phrasebook/PhrasebookCat.gf | 2 +- examples/phrasebook/PhrasebookDan.gf | 12 +++ examples/phrasebook/PhrasebookDut.gf | 12 +++ examples/phrasebook/PhrasebookNor.gf | 12 +++ examples/phrasebook/PhrasebookPol.gf | 12 +++ examples/phrasebook/PhrasebookRus.gf | 12 +++ examples/phrasebook/PhrasebookSpa.gf | 2 +- examples/phrasebook/SentencesDan.gf | 4 + examples/phrasebook/SentencesDut.gf | 4 + examples/phrasebook/SentencesFin.gf | 9 +- examples/phrasebook/SentencesNor.gf | 4 + examples/phrasebook/SentencesPol.gf | 4 + examples/phrasebook/SentencesRus.gf | 10 ++ examples/phrasebook/WordsDan.gf | 134 +++++++++++++++++++++++++++ examples/phrasebook/WordsDut.gf | 134 +++++++++++++++++++++++++++ examples/phrasebook/WordsNor.gf | 134 +++++++++++++++++++++++++++ examples/phrasebook/WordsPol.gf | 134 +++++++++++++++++++++++++++ examples/phrasebook/WordsRus.gf | 134 +++++++++++++++++++++++++++ examples/phrasebook/missing.txt | 20 ++-- examples/phrasebook/phrasebook.html | 21 +++-- examples/phrasebook/phrasebook.txt | 15 +-- 27 files changed, 943 insertions(+), 31 deletions(-) create mode 100644 examples/phrasebook/GreetingsDan.gf create mode 100644 examples/phrasebook/GreetingsDut.gf create mode 100644 examples/phrasebook/GreetingsNor.gf create mode 100644 examples/phrasebook/GreetingsPol.gf create mode 100644 examples/phrasebook/GreetingsRus.gf create mode 100644 examples/phrasebook/PhrasebookDan.gf create mode 100644 examples/phrasebook/PhrasebookDut.gf create mode 100644 examples/phrasebook/PhrasebookNor.gf create mode 100644 examples/phrasebook/PhrasebookPol.gf create mode 100644 examples/phrasebook/PhrasebookRus.gf create mode 100644 examples/phrasebook/SentencesDan.gf create mode 100644 examples/phrasebook/SentencesDut.gf create mode 100644 examples/phrasebook/SentencesNor.gf create mode 100644 examples/phrasebook/SentencesPol.gf create mode 100644 examples/phrasebook/SentencesRus.gf create mode 100644 examples/phrasebook/WordsDan.gf create mode 100644 examples/phrasebook/WordsDut.gf create mode 100644 examples/phrasebook/WordsNor.gf create mode 100644 examples/phrasebook/WordsPol.gf create mode 100644 examples/phrasebook/WordsRus.gf diff --git a/examples/phrasebook/GreetingsDan.gf b/examples/phrasebook/GreetingsDan.gf new file mode 100644 index 000000000..c7af6cbe3 --- /dev/null +++ b/examples/phrasebook/GreetingsDan.gf @@ -0,0 +1,28 @@ +concrete GreetingsDan of Greetings = open Prelude in { + +-- lincat +-- Greeting = SS ; +-- +-- lin +-- GBye = ss "hej då" ; +-- GCheers = ss "skål" ; +-- GDamn = ss "fan" ; +-- GExcuse, GExcusePol = ss "ursäkta" ; +-- GGoodDay = ss "god dag" ; +-- GGoodEvening = ss "god afton" ; +-- GGoodMorning = ss "god morgon" ; +-- GGoodNight = ss "god natt" ; +-- GGoodbye = ss "hej då" ; +-- GHello = ss "hej" ; +-- GHelp = ss "hjälp" ; +-- GHowAreYou = ss "hur står det till" ; +-- GLookOut = ss "se upp" ; +-- GNiceToMeetYou = ss "trevligt att träffas" ; +-- GPleaseGive, GPleaseGivePol = ss "var så god" ; +-- GSeeYouSoon = ss "vi ses snart" ; +-- GSorry, GSorryPol = ss "förlåt" ; +-- GThanks = ss "tack" ; +-- GTheCheck = ss "notan" ; +-- +-- } +} diff --git a/examples/phrasebook/GreetingsDut.gf b/examples/phrasebook/GreetingsDut.gf new file mode 100644 index 000000000..7b02497be --- /dev/null +++ b/examples/phrasebook/GreetingsDut.gf @@ -0,0 +1,28 @@ +concrete GreetingsDut of Greetings = open Prelude in { + +-- lincat +-- Greeting = SS ; +-- +-- lin +-- GBye = ss "hej då" ; +-- GCheers = ss "skål" ; +-- GDamn = ss "fan" ; +-- GExcuse, GExcusePol = ss "ursäkta" ; +-- GGoodDay = ss "god dag" ; +-- GGoodEvening = ss "god afton" ; +-- GGoodMorning = ss "god morgon" ; +-- GGoodNight = ss "god natt" ; +-- GGoodbye = ss "hej då" ; +-- GHello = ss "hej" ; +-- GHelp = ss "hjälp" ; +-- GHowAreYou = ss "hur står det till" ; +-- GLookOut = ss "se upp" ; +-- GNiceToMeetYou = ss "trevligt att träffas" ; +-- GPleaseGive, GPleaseGivePol = ss "var så god" ; +-- GSeeYouSoon = ss "vi ses snart" ; +-- GSorry, GSorryPol = ss "förlåt" ; +-- GThanks = ss "tack" ; +-- GTheCheck = ss "notan" ; +-- +-- } +} diff --git a/examples/phrasebook/GreetingsNor.gf b/examples/phrasebook/GreetingsNor.gf new file mode 100644 index 000000000..469352e46 --- /dev/null +++ b/examples/phrasebook/GreetingsNor.gf @@ -0,0 +1,28 @@ +concrete GreetingsNor of Greetings = open Prelude in { + +-- lincat +-- Greeting = SS ; +-- +-- lin +-- GBye = ss "hej då" ; +-- GCheers = ss "skål" ; +-- GDamn = ss "fan" ; +-- GExcuse, GExcusePol = ss "ursäkta" ; +-- GGoodDay = ss "god dag" ; +-- GGoodEvening = ss "god afton" ; +-- GGoodMorning = ss "god morgon" ; +-- GGoodNight = ss "god natt" ; +-- GGoodbye = ss "hej då" ; +-- GHello = ss "hej" ; +-- GHelp = ss "hjälp" ; +-- GHowAreYou = ss "hur står det till" ; +-- GLookOut = ss "se upp" ; +-- GNiceToMeetYou = ss "trevligt att träffas" ; +-- GPleaseGive, GPleaseGivePol = ss "var så god" ; +-- GSeeYouSoon = ss "vi ses snart" ; +-- GSorry, GSorryPol = ss "förlåt" ; +-- GThanks = ss "tack" ; +-- GTheCheck = ss "notan" ; +-- +-- } +} diff --git a/examples/phrasebook/GreetingsPol.gf b/examples/phrasebook/GreetingsPol.gf new file mode 100644 index 000000000..2e87138a7 --- /dev/null +++ b/examples/phrasebook/GreetingsPol.gf @@ -0,0 +1,28 @@ +concrete GreetingsPol of Greetings = open Prelude in { + +-- lincat +-- Greeting = SS ; +-- +-- lin +-- GBye = ss "hej då" ; +-- GCheers = ss "skål" ; +-- GDamn = ss "fan" ; +-- GExcuse, GExcusePol = ss "ursäkta" ; +-- GGoodDay = ss "god dag" ; +-- GGoodEvening = ss "god afton" ; +-- GGoodMorning = ss "god morgon" ; +-- GGoodNight = ss "god natt" ; +-- GGoodbye = ss "hej då" ; +-- GHello = ss "hej" ; +-- GHelp = ss "hjälp" ; +-- GHowAreYou = ss "hur står det till" ; +-- GLookOut = ss "se upp" ; +-- GNiceToMeetYou = ss "trevligt att träffas" ; +-- GPleaseGive, GPleaseGivePol = ss "var så god" ; +-- GSeeYouSoon = ss "vi ses snart" ; +-- GSorry, GSorryPol = ss "förlåt" ; +-- GThanks = ss "tack" ; +-- GTheCheck = ss "notan" ; +-- +-- } +} diff --git a/examples/phrasebook/GreetingsRus.gf b/examples/phrasebook/GreetingsRus.gf new file mode 100644 index 000000000..fa6a73077 --- /dev/null +++ b/examples/phrasebook/GreetingsRus.gf @@ -0,0 +1,28 @@ +concrete GreetingsRus of Greetings = open Prelude in { + +-- lincat +-- Greeting = SS ; +-- +-- lin +-- GBye = ss "hej då" ; +-- GCheers = ss "skål" ; +-- GDamn = ss "fan" ; +-- GExcuse, GExcusePol = ss "ursäkta" ; +-- GGoodDay = ss "god dag" ; +-- GGoodEvening = ss "god afton" ; +-- GGoodMorning = ss "god morgon" ; +-- GGoodNight = ss "god natt" ; +-- GGoodbye = ss "hej då" ; +-- GHello = ss "hej" ; +-- GHelp = ss "hjälp" ; +-- GHowAreYou = ss "hur står det till" ; +-- GLookOut = ss "se upp" ; +-- GNiceToMeetYou = ss "trevligt att träffas" ; +-- GPleaseGive, GPleaseGivePol = ss "var så god" ; +-- GSeeYouSoon = ss "vi ses snart" ; +-- GSorry, GSorryPol = ss "förlåt" ; +-- GThanks = ss "tack" ; +-- GTheCheck = ss "notan" ; +-- +-- } +} diff --git a/examples/phrasebook/Makefile b/examples/phrasebook/Makefile index 530a09a01..12ec74128 100644 --- a/examples/phrasebook/Makefile +++ b/examples/phrasebook/Makefile @@ -1,14 +1,17 @@ -all: pgf missing +all: demo missing -pgf: +demo: gf -make PhrasebookEng.gf PhrasebookFin.gf PhrasebookFre.gf PhrasebookIta.gf PhrasebookRon.gf PhrasebookSwe.gf DisambPhrasebookEng.gf #DisambPhrasebookRon.gf +pgf: + gf -make Phrasebook???.gf DisambPhrasebookEng.gf + koe: gf -make PhrasebookEng.gf PhrasebookFre.gf DisambPhrasebookEng.gf missing: - echo "pg -missing | wf -file=missing.txt" | gf Phrasebook.pgf + echo "pg -missing | wf -file=missing.txt" | gf Phrasebook???.gf doc: txt2tags -thtml phrasebook.txt diff --git a/examples/phrasebook/PhrasebookCat.gf b/examples/phrasebook/PhrasebookCat.gf index cb8db7a0b..af18904ac 100644 --- a/examples/phrasebook/PhrasebookCat.gf +++ b/examples/phrasebook/PhrasebookCat.gf @@ -2,7 +2,7 @@ concrete PhrasebookCat of Phrasebook = GreetingsCat, - WordsIta + WordsCat ** open SyntaxCat, Prelude in { diff --git a/examples/phrasebook/PhrasebookDan.gf b/examples/phrasebook/PhrasebookDan.gf new file mode 100644 index 000000000..76cae66eb --- /dev/null +++ b/examples/phrasebook/PhrasebookDan.gf @@ -0,0 +1,12 @@ +--# -path=.:present + +concrete PhrasebookDan of Phrasebook = + GreetingsDan, + WordsDan ** open + SyntaxDan, + Prelude in { + +lin + PGreeting g = lin Text (ss g.s) ; + +} diff --git a/examples/phrasebook/PhrasebookDut.gf b/examples/phrasebook/PhrasebookDut.gf new file mode 100644 index 000000000..fb1cae33d --- /dev/null +++ b/examples/phrasebook/PhrasebookDut.gf @@ -0,0 +1,12 @@ +--# -path=.:present + +concrete PhrasebookDut of Phrasebook = + GreetingsDut, + WordsDut ** open + SyntaxDut, + Prelude in { + +lin + PGreeting g = lin Text (ss g.s) ; + +} diff --git a/examples/phrasebook/PhrasebookNor.gf b/examples/phrasebook/PhrasebookNor.gf new file mode 100644 index 000000000..09f77895c --- /dev/null +++ b/examples/phrasebook/PhrasebookNor.gf @@ -0,0 +1,12 @@ +--# -path=.:present + +concrete PhrasebookNor of Phrasebook = + GreetingsNor, + WordsNor ** open + SyntaxNor, + Prelude in { + +lin + PGreeting g = lin Text (ss g.s) ; + +} diff --git a/examples/phrasebook/PhrasebookPol.gf b/examples/phrasebook/PhrasebookPol.gf new file mode 100644 index 000000000..f0cb79e0f --- /dev/null +++ b/examples/phrasebook/PhrasebookPol.gf @@ -0,0 +1,12 @@ +--# -path=.:present + +concrete PhrasebookPol of Phrasebook = + GreetingsPol, + WordsPol ** open + SyntaxPol, + Prelude in { + +lin + PGreeting g = lin Text (ss g.s) ; + +} diff --git a/examples/phrasebook/PhrasebookRus.gf b/examples/phrasebook/PhrasebookRus.gf new file mode 100644 index 000000000..2432614ad --- /dev/null +++ b/examples/phrasebook/PhrasebookRus.gf @@ -0,0 +1,12 @@ +--# -path=.:present + +concrete PhrasebookRus of Phrasebook = + GreetingsRus, + WordsRus ** open + SyntaxRus, + Prelude in { + +lin + PGreeting g = lin Text (ss g.s) ; + +} diff --git a/examples/phrasebook/PhrasebookSpa.gf b/examples/phrasebook/PhrasebookSpa.gf index 60d02eabb..c31673187 100644 --- a/examples/phrasebook/PhrasebookSpa.gf +++ b/examples/phrasebook/PhrasebookSpa.gf @@ -2,7 +2,7 @@ concrete PhrasebookSpa of Phrasebook = GreetingsSpa, - WordsIta + WordsSpa ** open SyntaxSpa, Prelude in { diff --git a/examples/phrasebook/SentencesDan.gf b/examples/phrasebook/SentencesDan.gf new file mode 100644 index 000000000..6ddb444c3 --- /dev/null +++ b/examples/phrasebook/SentencesDan.gf @@ -0,0 +1,4 @@ +concrete SentencesDan of Sentences = NumeralDan ** SentencesI with + (Syntax = SyntaxDan), + (Symbolic = SymbolicDan), + (Lexicon = LexiconDan) ; diff --git a/examples/phrasebook/SentencesDut.gf b/examples/phrasebook/SentencesDut.gf new file mode 100644 index 000000000..1b029378a --- /dev/null +++ b/examples/phrasebook/SentencesDut.gf @@ -0,0 +1,4 @@ +concrete SentencesDut of Sentences = NumeralDut ** SentencesI with + (Syntax = SyntaxDut), + (Symbolic = SymbolicDut), + (Lexicon = LexiconDut) ; diff --git a/examples/phrasebook/SentencesFin.gf b/examples/phrasebook/SentencesFin.gf index bc911643c..2b6d589c7 100644 --- a/examples/phrasebook/SentencesFin.gf +++ b/examples/phrasebook/SentencesFin.gf @@ -1,8 +1,9 @@ -concrete SentencesFin of Sentences = NumeralFin ** SentencesI - [Is] with +concrete SentencesFin of Sentences = NumeralFin ** SentencesI - [Is,NameNN] with (Syntax = SyntaxFin), (Symbolic = SymbolicFin), - (Lexicon = LexiconFin) ** open SyntaxFin, ExtraFin, (V = VerbFin) in { - - lin Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- pizza on herkullista + (Lexicon = LexiconFin) ** open SyntaxFin, ExtraFin, (P = ParadigmsFin), (V = VerbFin) in { + lin + Is item prop = mkCl item (V.UseComp (CompPartAP prop)) ; -- pizza on herkullista + NameNN = mkNP (P.mkPN "NN") ; } ; diff --git a/examples/phrasebook/SentencesNor.gf b/examples/phrasebook/SentencesNor.gf new file mode 100644 index 000000000..62f0d6c90 --- /dev/null +++ b/examples/phrasebook/SentencesNor.gf @@ -0,0 +1,4 @@ +concrete SentencesNor of Sentences = NumeralNor ** SentencesI with + (Syntax = SyntaxNor), + (Symbolic = SymbolicNor), + (Lexicon = LexiconNor) ; diff --git a/examples/phrasebook/SentencesPol.gf b/examples/phrasebook/SentencesPol.gf new file mode 100644 index 000000000..1d8116c53 --- /dev/null +++ b/examples/phrasebook/SentencesPol.gf @@ -0,0 +1,4 @@ +concrete SentencesPol of Sentences = NumeralPol ** SentencesI with + (Syntax = SyntaxPol), + (Symbolic = SymbolicPol), + (Lexicon = LexiconPol) ; diff --git a/examples/phrasebook/SentencesRus.gf b/examples/phrasebook/SentencesRus.gf new file mode 100644 index 000000000..d574aeeb3 --- /dev/null +++ b/examples/phrasebook/SentencesRus.gf @@ -0,0 +1,10 @@ +concrete SentencesRus of Sentences = NumeralRus ** SentencesI - [NameNN, Today] with + (Syntax = SyntaxRus), +--- (Symbolic = SymbolicRus), + (Lexicon = LexiconRus) ** open ParadigmsRus in { + +flags coding = utf8 ; + +lin NameNN = mkNP (mkPN "нн" masculine animate) ; + +} diff --git a/examples/phrasebook/WordsDan.gf b/examples/phrasebook/WordsDan.gf new file mode 100644 index 000000000..0e5d9a140 --- /dev/null +++ b/examples/phrasebook/WordsDan.gf @@ -0,0 +1,134 @@ +-- (c) 2009 Aarne Ranta under LGPL + +concrete WordsDan of Words = SentencesDan ** + open SyntaxDan, ParadigmsDan, IrregDan, (L = LexiconDan), Prelude in { + + lin + +-- kinds of food + + Apple = mkCN L.apple_N ; + Beer = mkCN L.beer_N ; + Bread = mkCN L.bread_N ; +-- Cheese = mkCN (mkN "ost") ; +-- Coffee = mkCN (mkN "kaffe" neutrum) ; +-- Fish = mkCN L.fish_N ; +-- Milk = mkCN L.milk_N ; +-- Pizza = mkCN (mkN "pizza") ; + Salt = mkCN L.salt_N ; +-- Tea = mkCN (mkN "te" neutrum) ; + Water = mkCN L.water_N ; + Wine = mkCN L.wine_N ; + +-- properties +-- + Bad = L.bad_A ; +-- Boring = mkA "tråkig" ; + Cold = L.cold_A ; +-- Delicious = mkA "läcker" ; +-- Expensive = mkA "dyr" ; +-- Fresh = mkA "färsk" ; + Good = L.good_A ; + Warm = L.warm_A ; +-- +-- places +-- +-- Airport = mkPlace (mkN "flygplats" "flygplatser") "på" ; +-- Bar = mkPlace (mkN "bar" "barer") "i" ; +-- Church = mkPlace (mkN "kyrka") "i" ; +-- Hospital = mkPlace (mkN "sjukhus" "sjukhus") "på" ; +-- Museum = mkPlace (mkN "museum" "museet" "museer" "museerna") "på" ; +-- Restaurant = mkPlace (mkN "restaurang" "restauranger") "på" ; +-- Station = mkPlace (mkN "station" "stationer") "på" ; +-- Toilet = mkPlace (mkN "toalett" "toaletter") "på" ; +-- +-- currencies +-- +-- DanishCrown = mkCN (mkA "dansk") (mkN "krona") ; +-- Dollar = mkCN (mkN "dollar" "dollar") ; +-- Euro = mkCN (mkN "euro" "euro") ; +-- Lei = mkCN (mkN "lei" "lei") ; +-- SwedishCrown = mkCN (mkA "svensk") (mkN "krona") ; +-- +-- nationalities +-- +-- Belgian = mkA "belgisk" ; +-- Belgium = mkNP (mkPN "Belgien") ; +-- English = mkNat "engelsk" "England" ; +-- Finnish = mkNat "finsk" "Finland" ; +-- Flemish = mkNP (mkPN "flamländska") ; +-- French = mkNat "fransk" "Frankrike" ; +-- Italian = mkNat "italiensk" "Italien" ; +-- Romanian = mkNat "rumänsk" "Rumänien" ; +-- Swedish = mkNat "svensk" "Sverige" ; +-- +-- actions +-- +-- AHasName p name = mkCl (nameOf p) name ; +-- AHungry p = mkCl p.name (mkA "hungrig") ; +-- AIll p = mkCl p.name (mkA "sjuk") ; +-- AKnow p = mkCl p.name (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ; +-- ALike p item = mkCl p.name (mkV2 (mkV "tycker") (mkPrep "om")) item ; +-- ALive p co = mkCl p.name (mkVP (mkVP (mkV "bo")) (SyntaxDan.mkAdv in_Prep co)) ; +-- ALove p q = mkCl p.name (mkV2 (mkV "älska")) q.name ; +-- AScared p = mkCl p.name (mkA "rädd") ; +-- ASpeak p lang = mkCl p.name (mkV2 (mkV "tala")) lang ; +-- AThirsty p = mkCl p.name (mkA "törstig") ; +-- ATired p = mkCl p.name (mkA "trött") ; +-- AUnderstand p = mkCl p.name (mkV "förstå" "förstod" "förstått") ; +-- AWant p obj = mkCl p.name want_VV (mkVP have_V2 obj) ; +-- AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ; +-- +-- miscellaneous +-- +-- QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ; +-- +-- PropOpen p = mkCl p.name open_A ; +-- PropClosed p = mkCl p.name closed_A ; +-- PropOpenDate p d = mkCl p.name (mkVP (mkVP open_A) d) ; +-- PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ; +-- PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; +-- PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; +-- +-- HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "kosta"))) ; +-- ItCost item price = mkCl item (mkV2 (mkV "kosta")) price ; +-- +-- week days +-- +-- Monday = mkDay "måndag" ; +-- Tuesday = mkDay "tisdag" ; +-- Wednesday = mkDay "onsdag" ; +-- Thursday = mkDay "torsdag" ; +-- Friday = mkDay "fredag" ; +-- Saturday = mkDay "lördag" ; +-- Sunday = mkDay "söndag" ; +-- +-- oper +-- mkNat : Str -> Str -> {lang : NP ; prop : A ; country : NP} = \nat,co -> +-- {lang = mkNP (mkPN (nat + "a")) ; +-- prop = mkA nat ; country = mkNP (mkPN co)} ; +-- +-- mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> +-- let day = mkNP (mkPN d) in +-- {name = day ; +-- point = SyntaxDan.mkAdv on_Prep day ; +-- habitual = SyntaxDan.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d))) +-- } ; +-- +-- mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> { +-- name = mkCN p ; +-- at = mkPrep i ; +-- to = to_Prep +-- } ; +-- +-- open_A = mkA "öppen" "öppet" ; +-- closed_A = mkA "stängd" "stängt" ; +-- +-- nameOf : {name : NP ; isPron : Bool ; poss : Det} -> NP = \p -> +-- case p.isPron of { +-- True => mkNP p.poss (mkN "namn" "namn") ; +-- _ => mkNP (mkNP the_Det (mkN "namn" "namn")) +-- (SyntaxDan.mkAdv possess_Prep p.name) +-- } ; +-- } +} diff --git a/examples/phrasebook/WordsDut.gf b/examples/phrasebook/WordsDut.gf new file mode 100644 index 000000000..5b74f7952 --- /dev/null +++ b/examples/phrasebook/WordsDut.gf @@ -0,0 +1,134 @@ +-- (c) 2009 Aarne Ranta under LGPL + +concrete WordsDut of Words = SentencesDut ** + open SyntaxDut, ParadigmsDut, IrregDut, (L = LexiconDut), Prelude in { + + lin + +-- kinds of food + + Apple = mkCN L.apple_N ; + Beer = mkCN L.beer_N ; + Bread = mkCN L.bread_N ; +-- Cheese = mkCN (mkN "ost") ; +-- Coffee = mkCN (mkN "kaffe" neutrum) ; + Fish = mkCN L.fish_N ; + Milk = mkCN L.milk_N ; +-- Pizza = mkCN (mkN "pizza") ; + Salt = mkCN L.salt_N ; +-- Tea = mkCN (mkN "te" neutrum) ; + Water = mkCN L.water_N ; + Wine = mkCN L.wine_N ; + +-- properties + + Bad = L.bad_A ; +-- Boring = mkA "tråkig" ; + Cold = L.cold_A ; +-- Delicious = mkA "läcker" ; +-- Expensive = mkA "dyr" ; +-- Fresh = mkA "färsk" ; + Good = L.good_A ; + Warm = L.warm_A ; +-- +-- places +-- +-- Airport = mkPlace (mkN "flygplats" "flygplatser") "på" ; +-- Bar = mkPlace (mkN "bar" "barer") "i" ; +-- Church = mkPlace (mkN "kyrka") "i" ; +-- Hospital = mkPlace (mkN "sjukhus" "sjukhus") "på" ; +-- Museum = mkPlace (mkN "museum" "museet" "museer" "museerna") "på" ; +-- Restaurant = mkPlace (mkN "restaurang" "restauranger") "på" ; +-- Station = mkPlace (mkN "station" "stationer") "på" ; +-- Toilet = mkPlace (mkN "toalett" "toaletter") "på" ; +-- +-- currencies +-- +-- DanishCrown = mkCN (mkA "dansk") (mkN "krona") ; +-- Dollar = mkCN (mkN "dollar" "dollar") ; +-- Euro = mkCN (mkN "euro" "euro") ; +-- Lei = mkCN (mkN "lei" "lei") ; +-- SwedishCrown = mkCN (mkA "svensk") (mkN "krona") ; +-- +-- nationalities +-- +-- Belgian = mkA "belgisk" ; +-- Belgium = mkNP (mkPN "Belgien") ; +-- English = mkNat "engelsk" "England" ; +-- Finnish = mkNat "finsk" "Finland" ; +-- Flemish = mkNP (mkPN "flamländska") ; +-- French = mkNat "fransk" "Frankrike" ; +-- Italian = mkNat "italiensk" "Italien" ; +-- Romanian = mkNat "rumänsk" "Rumänien" ; +-- Swedish = mkNat "svensk" "Sverige" ; +-- +-- actions +-- +-- AHasName p name = mkCl (nameOf p) name ; +-- AHungry p = mkCl p.name (mkA "hungrig") ; +-- AIll p = mkCl p.name (mkA "sjuk") ; +-- AKnow p = mkCl p.name (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ; +-- ALike p item = mkCl p.name (mkV2 (mkV "tycker") (mkPrep "om")) item ; +-- ALive p co = mkCl p.name (mkVP (mkVP (mkV "bo")) (SyntaxDut.mkAdv in_Prep co)) ; +-- ALove p q = mkCl p.name (mkV2 (mkV "älska")) q.name ; +-- AScared p = mkCl p.name (mkA "rädd") ; +-- ASpeak p lang = mkCl p.name (mkV2 (mkV "tala")) lang ; +-- AThirsty p = mkCl p.name (mkA "törstig") ; +-- ATired p = mkCl p.name (mkA "trött") ; +-- AUnderstand p = mkCl p.name (mkV "förstå" "förstod" "förstått") ; +-- AWant p obj = mkCl p.name want_VV (mkVP have_V2 obj) ; +-- AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ; +-- +-- miscellaneous +-- +-- QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ; +-- +-- PropOpen p = mkCl p.name open_A ; +-- PropClosed p = mkCl p.name closed_A ; +-- PropOpenDate p d = mkCl p.name (mkVP (mkVP open_A) d) ; +-- PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ; +-- PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; +-- PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; +-- +-- HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "kosta"))) ; +-- ItCost item price = mkCl item (mkV2 (mkV "kosta")) price ; +-- +-- week days +-- +-- Monday = mkDay "måndag" ; +-- Tuesday = mkDay "tisdag" ; +-- Wednesday = mkDay "onsdag" ; +-- Thursday = mkDay "torsdag" ; +-- Friday = mkDay "fredag" ; +-- Saturday = mkDay "lördag" ; +-- Sunday = mkDay "söndag" ; +-- +-- oper +-- mkNat : Str -> Str -> {lang : NP ; prop : A ; country : NP} = \nat,co -> +-- {lang = mkNP (mkPN (nat + "a")) ; +-- prop = mkA nat ; country = mkNP (mkPN co)} ; +-- +-- mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> +-- let day = mkNP (mkPN d) in +-- {name = day ; +-- point = SyntaxDut.mkAdv on_Prep day ; +-- habitual = SyntaxDut.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d))) +-- } ; +-- +-- mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> { +-- name = mkCN p ; +-- at = mkPrep i ; +-- to = to_Prep +-- } ; +-- +-- open_A = mkA "öppen" "öppet" ; +-- closed_A = mkA "stängd" "stängt" ; +-- +-- nameOf : {name : NP ; isPron : Bool ; poss : Det} -> NP = \p -> +-- case p.isPron of { +-- True => mkNP p.poss (mkN "namn" "namn") ; +-- _ => mkNP (mkNP the_Det (mkN "namn" "namn")) +-- (SyntaxDut.mkAdv possess_Prep p.name) +-- } ; +-- } +} diff --git a/examples/phrasebook/WordsNor.gf b/examples/phrasebook/WordsNor.gf new file mode 100644 index 000000000..dde0e8f0f --- /dev/null +++ b/examples/phrasebook/WordsNor.gf @@ -0,0 +1,134 @@ +-- (c) 2009 Aarne Ranta under LGPL + +concrete WordsNor of Words = SentencesNor ** + open SyntaxNor, ParadigmsNor, IrregNor, (L = LexiconNor), Prelude in { + + lin + +-- kinds of food + + Apple = mkCN L.apple_N ; + Beer = mkCN L.beer_N ; + Bread = mkCN L.bread_N ; +-- Cheese = mkCN (mkN "ost") ; +-- Coffee = mkCN (mkN "kaffe" neutrum) ; + Fish = mkCN L.fish_N ; + Milk = mkCN L.milk_N ; +-- Pizza = mkCN (mkN "pizza") ; + Salt = mkCN L.salt_N ; +-- Tea = mkCN (mkN "te" neutrum) ; + Water = mkCN L.water_N ; + Wine = mkCN L.wine_N ; +-- +-- properties +-- + Bad = L.bad_A ; +-- Boring = mkA "tråkig" ; + Cold = L.cold_A ; +-- Delicious = mkA "läcker" ; +-- Expensive = mkA "dyr" ; +-- Fresh = mkA "färsk" ; + Good = L.good_A ; + Warm = L.warm_A ; +-- +-- places +-- +-- Airport = mkPlace (mkN "flygplats" "flygplatser") "på" ; +-- Bar = mkPlace (mkN "bar" "barer") "i" ; +-- Church = mkPlace (mkN "kyrka") "i" ; +-- Hospital = mkPlace (mkN "sjukhus" "sjukhus") "på" ; +-- Museum = mkPlace (mkN "museum" "museet" "museer" "museerna") "på" ; +-- Restaurant = mkPlace (mkN "restaurang" "restauranger") "på" ; +-- Station = mkPlace (mkN "station" "stationer") "på" ; +-- Toilet = mkPlace (mkN "toalett" "toaletter") "på" ; +-- +-- currencies +-- +-- DanishCrown = mkCN (mkA "dansk") (mkN "krona") ; +-- Dollar = mkCN (mkN "dollar" "dollar") ; +-- Euro = mkCN (mkN "euro" "euro") ; +-- Lei = mkCN (mkN "lei" "lei") ; +-- SwedishCrown = mkCN (mkA "svensk") (mkN "krona") ; +-- +-- nationalities +-- +-- Belgian = mkA "belgisk" ; +-- Belgium = mkNP (mkPN "Belgien") ; +-- English = mkNat "engelsk" "England" ; +-- Finnish = mkNat "finsk" "Finland" ; +-- Flemish = mkNP (mkPN "flamländska") ; +-- French = mkNat "fransk" "Frankrike" ; +-- Italian = mkNat "italiensk" "Italien" ; +-- Romanian = mkNat "rumänsk" "Rumänien" ; +-- Swedish = mkNat "svensk" "Sverige" ; +-- +-- actions +-- +-- AHasName p name = mkCl (nameOf p) name ; +-- AHungry p = mkCl p.name (mkA "hungrig") ; +-- AIll p = mkCl p.name (mkA "sjuk") ; +-- AKnow p = mkCl p.name (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ; +-- ALike p item = mkCl p.name (mkV2 (mkV "tycker") (mkPrep "om")) item ; +-- ALive p co = mkCl p.name (mkVP (mkVP (mkV "bo")) (SyntaxNor.mkAdv in_Prep co)) ; +-- ALove p q = mkCl p.name (mkV2 (mkV "älska")) q.name ; +-- AScared p = mkCl p.name (mkA "rädd") ; +-- ASpeak p lang = mkCl p.name (mkV2 (mkV "tala")) lang ; +-- AThirsty p = mkCl p.name (mkA "törstig") ; +-- ATired p = mkCl p.name (mkA "trött") ; +-- AUnderstand p = mkCl p.name (mkV "förstå" "förstod" "förstått") ; +-- AWant p obj = mkCl p.name want_VV (mkVP have_V2 obj) ; +-- AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ; +-- +-- miscellaneous +-- +-- QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ; +-- +-- PropOpen p = mkCl p.name open_A ; +-- PropClosed p = mkCl p.name closed_A ; +-- PropOpenDate p d = mkCl p.name (mkVP (mkVP open_A) d) ; +-- PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ; +-- PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; +-- PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; +-- +-- HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "kosta"))) ; +-- ItCost item price = mkCl item (mkV2 (mkV "kosta")) price ; +-- +-- week days +-- +-- Monday = mkDay "måndag" ; +-- Tuesday = mkDay "tisdag" ; +-- Wednesday = mkDay "onsdag" ; +-- Thursday = mkDay "torsdag" ; +-- Friday = mkDay "fredag" ; +-- Saturday = mkDay "lördag" ; +-- Sunday = mkDay "söndag" ; +-- +-- oper +-- mkNat : Str -> Str -> {lang : NP ; prop : A ; country : NP} = \nat,co -> +-- {lang = mkNP (mkPN (nat + "a")) ; +-- prop = mkA nat ; country = mkNP (mkPN co)} ; +-- +-- mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> +-- let day = mkNP (mkPN d) in +-- {name = day ; +-- point = SyntaxNor.mkAdv on_Prep day ; +-- habitual = SyntaxNor.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d))) +-- } ; +-- +-- mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> { +-- name = mkCN p ; +-- at = mkPrep i ; +-- to = to_Prep +-- } ; +-- +-- open_A = mkA "öppen" "öppet" ; +-- closed_A = mkA "stängd" "stängt" ; +-- +-- nameOf : {name : NP ; isPron : Bool ; poss : Det} -> NP = \p -> +-- case p.isPron of { +-- True => mkNP p.poss (mkN "namn" "namn") ; +-- _ => mkNP (mkNP the_Det (mkN "namn" "namn")) +-- (SyntaxNor.mkAdv possess_Prep p.name) +-- } ; +-- } +} diff --git a/examples/phrasebook/WordsPol.gf b/examples/phrasebook/WordsPol.gf new file mode 100644 index 000000000..dc991a1e6 --- /dev/null +++ b/examples/phrasebook/WordsPol.gf @@ -0,0 +1,134 @@ +-- (c) 2009 Aarne Ranta under LGPL + +concrete WordsPol of Words = SentencesPol ** + open SyntaxPol, ParadigmsPol, (L = LexiconPol), Prelude in { + + lin + +-- kinds of food + + Apple = mkCN L.apple_N ; + Beer = mkCN L.beer_N ; + Bread = mkCN L.bread_N ; +-- Cheese = mkCN (mkN "ost") ; +-- Coffee = mkCN (mkN "kaffe" neutrum) ; + Fish = mkCN L.fish_N ; + Milk = mkCN L.milk_N ; +-- Pizza = mkCN (mkN "pizza") ; + Salt = mkCN L.salt_N ; +-- Tea = mkCN (mkN "te" neutrum) ; + Water = mkCN L.water_N ; + Wine = mkCN L.wine_N ; +-- +-- properties +-- + Bad = L.bad_A ; +-- Boring = mkA "tråkig" ; + Cold = L.cold_A ; +-- Delicious = mkA "läcker" ; +-- Expensive = mkA "dyr" ; +-- Fresh = mkA "färsk" ; + Good = L.good_A ; + Warm = L.warm_A ; +-- +-- places +-- +-- Airport = mkPlace (mkN "flygplats" "flygplatser") "på" ; +-- Bar = mkPlace (mkN "bar" "barer") "i" ; +-- Church = mkPlace (mkN "kyrka") "i" ; +-- Hospital = mkPlace (mkN "sjukhus" "sjukhus") "på" ; +-- Museum = mkPlace (mkN "museum" "museet" "museer" "museerna") "på" ; +-- Restaurant = mkPlace (mkN "restaurang" "restauranger") "på" ; +-- Station = mkPlace (mkN "station" "stationer") "på" ; +-- Toilet = mkPlace (mkN "toalett" "toaletter") "på" ; +-- +-- currencies +-- +-- DanishCrown = mkCN (mkA "dansk") (mkN "krona") ; +-- Dollar = mkCN (mkN "dollar" "dollar") ; +-- Euro = mkCN (mkN "euro" "euro") ; +-- Lei = mkCN (mkN "lei" "lei") ; +-- SwedishCrown = mkCN (mkA "svensk") (mkN "krona") ; +-- +-- nationalities +-- +-- Belgian = mkA "belgisk" ; +-- Belgium = mkNP (mkPN "Belgien") ; +-- English = mkNat "engelsk" "England" ; +-- Finnish = mkNat "finsk" "Finland" ; +-- Flemish = mkNP (mkPN "flamländska") ; +-- French = mkNat "fransk" "Frankrike" ; +-- Italian = mkNat "italiensk" "Italien" ; +-- Romanian = mkNat "rumänsk" "Rumänien" ; +-- Swedish = mkNat "svensk" "Sverige" ; +-- +-- actions +-- +-- AHasName p name = mkCl (nameOf p) name ; +-- AHungry p = mkCl p.name (mkA "hungrig") ; +-- AIll p = mkCl p.name (mkA "sjuk") ; +-- AKnow p = mkCl p.name (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ; +-- ALike p item = mkCl p.name (mkV2 (mkV "tycker") (mkPrep "om")) item ; +-- ALive p co = mkCl p.name (mkVP (mkVP (mkV "bo")) (SyntaxPol.mkAdv in_Prep co)) ; +-- ALove p q = mkCl p.name (mkV2 (mkV "älska")) q.name ; +-- AScared p = mkCl p.name (mkA "rädd") ; +-- ASpeak p lang = mkCl p.name (mkV2 (mkV "tala")) lang ; +-- AThirsty p = mkCl p.name (mkA "törstig") ; +-- ATired p = mkCl p.name (mkA "trött") ; +-- AUnderstand p = mkCl p.name (mkV "förstå" "förstod" "förstått") ; +-- AWant p obj = mkCl p.name want_VV (mkVP have_V2 obj) ; +-- AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ; +-- +-- miscellaneous +-- +-- QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ; +-- +-- PropOpen p = mkCl p.name open_A ; +-- PropClosed p = mkCl p.name closed_A ; +-- PropOpenDate p d = mkCl p.name (mkVP (mkVP open_A) d) ; +-- PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ; +-- PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; +-- PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; +-- +-- HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "kosta"))) ; +-- ItCost item price = mkCl item (mkV2 (mkV "kosta")) price ; +-- +-- week days +-- +-- Monday = mkDay "måndag" ; +-- Tuesday = mkDay "tisdag" ; +-- Wednesday = mkDay "onsdag" ; +-- Thursday = mkDay "torsdag" ; +-- Friday = mkDay "fredag" ; +-- Saturday = mkDay "lördag" ; +-- Sunday = mkDay "söndag" ; +-- +-- oper +-- mkNat : Str -> Str -> {lang : NP ; prop : A ; country : NP} = \nat,co -> +-- {lang = mkNP (mkPN (nat + "a")) ; +-- prop = mkA nat ; country = mkNP (mkPN co)} ; +-- +-- mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> +-- let day = mkNP (mkPN d) in +-- {name = day ; +-- point = SyntaxPol.mkAdv on_Prep day ; +-- habitual = SyntaxPol.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d))) +-- } ; +-- +-- mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> { +-- name = mkCN p ; +-- at = mkPrep i ; +-- to = to_Prep +-- } ; +-- +-- open_A = mkA "öppen" "öppet" ; +-- closed_A = mkA "stängd" "stängt" ; +-- +-- nameOf : {name : NP ; isPron : Bool ; poss : Det} -> NP = \p -> +-- case p.isPron of { +-- True => mkNP p.poss (mkN "namn" "namn") ; +-- _ => mkNP (mkNP the_Det (mkN "namn" "namn")) +-- (SyntaxPol.mkAdv possess_Prep p.name) +-- } ; +-- } +} diff --git a/examples/phrasebook/WordsRus.gf b/examples/phrasebook/WordsRus.gf new file mode 100644 index 000000000..d2de86c54 --- /dev/null +++ b/examples/phrasebook/WordsRus.gf @@ -0,0 +1,134 @@ +-- (c) 2009 Aarne Ranta under LGPL + +concrete WordsRus of Words = SentencesRus ** + open SyntaxRus, ParadigmsRus, (L = LexiconRus), Prelude in { + + lin + +-- kinds of food +-- + Apple = mkCN L.apple_N ; + Beer = mkCN L.beer_N ; + Bread = mkCN L.bread_N ; +-- Cheese = mkCN (mkN "ost") ; +-- Coffee = mkCN (mkN "kaffe" neutrum) ; + Fish = mkCN L.fish_N ; + Milk = mkCN L.milk_N ; +-- Pizza = mkCN (mkN "pizza") ; + Salt = mkCN L.salt_N ; +-- Tea = mkCN (mkN "te" neutrum) ; + Water = mkCN L.water_N ; + Wine = mkCN L.wine_N ; +-- +-- properties +-- + Bad = L.bad_A ; +-- Boring = mkA "tråkig" ; + Cold = L.cold_A ; +-- Delicious = mkA "läcker" ; +-- Expensive = mkA "dyr" ; +-- Fresh = mkA "färsk" ; + Good = L.good_A ; + Warm = L.warm_A ; +-- +-- places +-- +-- Airport = mkPlace (mkN "flygplats" "flygplatser") "på" ; +-- Bar = mkPlace (mkN "bar" "barer") "i" ; +-- Church = mkPlace (mkN "kyrka") "i" ; +-- Hospital = mkPlace (mkN "sjukhus" "sjukhus") "på" ; +-- Museum = mkPlace (mkN "museum" "museet" "museer" "museerna") "på" ; +-- Restaurant = mkPlace (mkN "restaurang" "restauranger") "på" ; +-- Station = mkPlace (mkN "station" "stationer") "på" ; +-- Toilet = mkPlace (mkN "toalett" "toaletter") "på" ; +-- +-- currencies +-- +-- DanishCrown = mkCN (mkA "dansk") (mkN "krona") ; +-- Dollar = mkCN (mkN "dollar" "dollar") ; +-- Euro = mkCN (mkN "euro" "euro") ; +-- Lei = mkCN (mkN "lei" "lei") ; +-- SwedishCrown = mkCN (mkA "svensk") (mkN "krona") ; +-- +-- nationalities +-- +-- Belgian = mkA "belgisk" ; +-- Belgium = mkNP (mkPN "Belgien") ; +-- English = mkNat "engelsk" "England" ; +-- Finnish = mkNat "finsk" "Finland" ; +-- Flemish = mkNP (mkPN "flamländska") ; +-- French = mkNat "fransk" "Frankrike" ; +-- Italian = mkNat "italiensk" "Italien" ; +-- Romanian = mkNat "rumänsk" "Rumänien" ; +-- Swedish = mkNat "svensk" "Sverige" ; +-- +-- actions +-- +-- AHasName p name = mkCl (nameOf p) name ; +-- AHungry p = mkCl p.name (mkA "hungrig") ; +-- AIll p = mkCl p.name (mkA "sjuk") ; +-- AKnow p = mkCl p.name (mkV "veta" "vet" "vet" "visste" "vetat" "visst") ; +-- ALike p item = mkCl p.name (mkV2 (mkV "tycker") (mkPrep "om")) item ; +-- ALive p co = mkCl p.name (mkVP (mkVP (mkV "bo")) (SyntaxRus.mkAdv in_Prep co)) ; +-- ALove p q = mkCl p.name (mkV2 (mkV "älska")) q.name ; +-- AScared p = mkCl p.name (mkA "rädd") ; +-- ASpeak p lang = mkCl p.name (mkV2 (mkV "tala")) lang ; +-- AThirsty p = mkCl p.name (mkA "törstig") ; +-- ATired p = mkCl p.name (mkA "trött") ; +-- AUnderstand p = mkCl p.name (mkV "förstå" "förstod" "förstått") ; +-- AWant p obj = mkCl p.name want_VV (mkVP have_V2 obj) ; +-- AWantGo p place = mkCl p.name want_VV (mkVP (mkVP L.go_V) place.to) ; +-- +-- miscellaneous +-- +-- QWhatName p = mkQS (mkQCl whatSg_IP (mkVP (nameOf p))) ; +-- +-- PropOpen p = mkCl p.name open_A ; +-- PropClosed p = mkCl p.name closed_A ; +-- PropOpenDate p d = mkCl p.name (mkVP (mkVP open_A) d) ; +-- PropClosedDate p d = mkCl p.name (mkVP (mkVP closed_A) d) ; +-- PropOpenDay p d = mkCl p.name (mkVP (mkVP open_A) d.habitual) ; +-- PropClosedDay p d = mkCl p.name (mkVP (mkVP closed_A) d.habitual) ; +-- +-- HowMuchCost item = mkQS (mkQCl how8much_IAdv (mkCl item (mkV "kosta"))) ; +-- ItCost item price = mkCl item (mkV2 (mkV "kosta")) price ; +-- +-- week days +-- +-- Monday = mkDay "måndag" ; +-- Tuesday = mkDay "tisdag" ; +-- Wednesday = mkDay "onsdag" ; +-- Thursday = mkDay "torsdag" ; +-- Friday = mkDay "fredag" ; +-- Saturday = mkDay "lördag" ; +-- Sunday = mkDay "söndag" ; +-- +-- oper +-- mkNat : Str -> Str -> {lang : NP ; prop : A ; country : NP} = \nat,co -> +-- {lang = mkNP (mkPN (nat + "a")) ; +-- prop = mkA nat ; country = mkNP (mkPN co)} ; +-- +-- mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d -> +-- let day = mkNP (mkPN d) in +-- {name = day ; +-- point = SyntaxRus.mkAdv on_Prep day ; +-- habitual = SyntaxRus.mkAdv on_Prep (mkNP a_Quant plNum (mkCN (mkN d))) +-- } ; +-- +-- mkPlace : N -> Str -> {name : CN ; at : Prep ; to : Prep} = \p,i -> { +-- name = mkCN p ; +-- at = mkPrep i ; +-- to = to_Prep +-- } ; +-- +-- open_A = mkA "öppen" "öppet" ; +-- closed_A = mkA "stängd" "stängt" ; +-- +-- nameOf : {name : NP ; isPron : Bool ; poss : Det} -> NP = \p -> +-- case p.isPron of { +-- True => mkNP p.poss (mkN "namn" "namn") ; +-- _ => mkNP (mkNP the_Det (mkN "namn" "namn")) +-- (SyntaxRus.mkAdv possess_Prep p.name) +-- } ; +-- } +} diff --git a/examples/phrasebook/missing.txt b/examples/phrasebook/missing.txt index c530ee7a3..7a1f3ef1c 100644 --- a/examples/phrasebook/missing.txt +++ b/examples/phrasebook/missing.txt @@ -1,7 +1,15 @@ -DisambPhrasebookEng : +PhrasebookBul : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday +PhrasebookCat : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday pot01 +PhrasebookDan : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant AWantGo Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Fish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Milk Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday +PhrasebookDut : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant AWantGo Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday PhrasebookEng : -PhrasebookFin : -PhrasebookFre : -PhrasebookIta : GNiceToMeetYou GSeeYouSoon -PhrasebookRon : AHasName AHungry AIll AKnow ALive AScared AThirsty ATired AWantGo Airport Belgian Belgium Church Coffee English Finnish Flemish French Friday GExcusePol GPleaseGivePol GSorryPol Hospital Italian Monday Museum PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Romanian Saturday Station Sunday Swedish Tea Thursday Tuesday Wednesday -PhrasebookSwe : +PhrasebookFin : Cinema DanishCrown SwedishCrown Theatre +PhrasebookFre : Cheap Cinema Hotel Park School Shop Suspect Theatre University +PhrasebookGer : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday +PhrasebookIta : Cheap Chicken Cinema GNiceToMeetYou Hotel Meat Park School Shop Suspect SwedishCrown Theatre University +PhrasebookNor : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant AWantGo Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday +PhrasebookPol : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant AWantGo Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday +PhrasebookRon : AHasName AHungry AIll AKnow ALive AScared AThirsty ATired AWantGo Airport Belgian Belgium Cheap Chicken Church Cinema Coffee DanishCrown English Finnish Flemish French Friday GExcusePol GPleaseGivePol GSorryPol Hospital Hotel Italian Meat Monday Museum Park PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Tuesday University Wednesday +PhrasebookRus : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant AWantGo Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Today Toilet Tuesday University Wednesday +PhrasebookSpa : AHasName AHungry AIll AKnow ALike ALive ALove AScared ASpeak AThirsty ATired AUnderstand AWant Airport Bar Belgian Belgium Boring Cheap Cheese Chicken Church Cinema Coffee DanishCrown Delicious Dollar English Euro Expensive Finnish Flemish French Fresh Friday GBye GCheers GDamn GExcuse GExcusePol GGoodDay GGoodEvening GGoodMorning GGoodNight GGoodbye GHello GHelp GHowAreYou GLookOut GNiceToMeetYou GPleaseGive GPleaseGivePol GSeeYouSoon GSorry GSorryPol GThanks GTheCheck Hospital Hotel HowMuchCost ItCost Italian Lei Meat Monday Museum Park Pizza PropClosed PropClosedDate PropClosedDay PropOpen PropOpenDate PropOpenDay QWhatName Restaurant Romanian Saturday School Shop Station Sunday Suspect Swedish SwedishCrown Tea Theatre Thursday Toilet Tuesday University Wednesday +PhrasebookSwe : Cheap Chicken Cinema Hotel Meat Park School Shop Suspect Theatre University diff --git a/examples/phrasebook/phrasebook.html b/examples/phrasebook/phrasebook.html index e77a12d46..27671cb99 100644 --- a/examples/phrasebook/phrasebook.html +++ b/examples/phrasebook/phrasebook.html @@ -17,6 +17,7 @@ History