diff --git a/examples/phrasebook/DiffPhrasebookIta.gf b/examples/phrasebook/DiffPhrasebookIta.gf new file mode 100644 index 000000000..f1d608fde --- /dev/null +++ b/examples/phrasebook/DiffPhrasebookIta.gf @@ -0,0 +1,14 @@ +instance DiffPhrasebookIta of DiffPhrasebook = open + SyntaxIta, + BeschIta, + ParadigmsIta +in { + +oper + want_V2 = mkV2 (mkV (volere_96 "volere")) ; + like_V2 = mkV2 (mkV "amare") ; ---- + + cost_V2 = mkV2 (mkV "costare") ; + cost_V = mkV "costare" ; + +} diff --git a/examples/phrasebook/GreetingsIta.gf b/examples/phrasebook/GreetingsIta.gf new file mode 100644 index 000000000..24a4d7a0e --- /dev/null +++ b/examples/phrasebook/GreetingsIta.gf @@ -0,0 +1,36 @@ +concrete GreetingsIta of Greetings = open Roles,Prelude in { + +lincat + Greeting = RolePhrase ; + +lin + GHello = roleNeutral "ciao" ; + GThanks = roleNeutral "grazie" ; + GHowAreYou = roleNeutral "come sta" ; + GPleaseGive = roleNeutral "per favore" ; + GExcuse = politeDistinct "scusi" "scusa" ; + GSorry = politeDistinct "scusimi" "scusami" ; ---- + GGoodbye = roleNeutral "arrivederci" ; + GBye = roleNeutral "ciao" ; + GWhatsYourName = + politeDistinct "come si chiama" "come ti chiami" ; +-- GNiceToMeetYou = roleNeutral "piacevole" ; ---- +-- GSeeYouSoon = roleNeutral "a poco tempo" ; ---- + GHelp = roleNeutral "aiuto" ; + GLookOut = roleNeutral "attenzione" ; + GGoodMorning = roleNeutral "buongiorno" ; + GGoodDay = roleNeutral "buongiorno" ; + GGoodEvening = roleNeutral "buona sera" ; + GGoodNight = roleNeutral "buona notte" ; + GImHungry = roleNeutral "ho fame" ; + GImThirsty = roleNeutral "ho sete" ; + GImTired = speakerDistinct "sono stanco" "sono stanca" ; + GImScared = roleNeutral "ho paura" ; + GIdontUnderstand = roleNeutral "non capisco" ; + GTheCheck = roleNeutral "il conto" ; + + GYes = roleNeutral "sì" ; ---- si + GNo = roleNeutral "no" ; + + +} diff --git a/examples/phrasebook/Makefile b/examples/phrasebook/Makefile index 219f1a4ba..1a28326ba 100644 --- a/examples/phrasebook/Makefile +++ b/examples/phrasebook/Makefile @@ -1,3 +1,5 @@ all: - gf -make PhrasebookEng.gf PhrasebookFin.gf PhrasebookFre.gf PhrasebookRon.gf PhrasebookSwe.gf + gf -make PhrasebookEng.gf PhrasebookFin.gf PhrasebookFre.gf PhrasebookIta.gf PhrasebookRon.gf PhrasebookSwe.gf +doc: + txt2tags -thtml phrasebook.txt diff --git a/examples/phrasebook/PhrasebookIta.gf b/examples/phrasebook/PhrasebookIta.gf new file mode 100644 index 000000000..554b04ee8 --- /dev/null +++ b/examples/phrasebook/PhrasebookIta.gf @@ -0,0 +1,27 @@ +--# -path=.:present + +concrete PhrasebookIta of Phrasebook = + GreetingsIta, + WordsIta + ** open + (R = Roles), + SyntaxIta, + ParadigmsIta, + Prelude in { + +lincat + Gender = {s : Str ; g : R.Gender} ; + Politeness = {s : Str ; p : R.Politeness} ; + +lin + PSentence s = mkText s | lin Text (mkUtt s) ; -- optional . + PQuestion s = mkText s | lin Text (mkUtt s) ; -- optional ? + PGreeting g = lin Text (ss (g.s ! R.Polite ! R.Male ! R.Male)) ; +---- PGreeting p s h g = mkPhrase (g.s ! p.p ! s.g ! h.g ++ p.s ++ s.s ++ h.s) ; + + Male = {s = [] ; g = R.Male} ; + Female = {s = [] ; g = R.Female} ; + Polite = {s = [] ; p = R.Polite} ; + Familiar = {s = [] ; p = R.Familiar} ; + +} diff --git a/examples/phrasebook/SentencesIta.gf b/examples/phrasebook/SentencesIta.gf new file mode 100644 index 000000000..5d1dc24a1 --- /dev/null +++ b/examples/phrasebook/SentencesIta.gf @@ -0,0 +1,5 @@ +concrete SentencesIta of Sentences = NumeralIta ** SentencesI + with + (DiffPhrasebook = DiffPhrasebookIta), + (Syntax = SyntaxIta) ; + diff --git a/examples/phrasebook/WordsIta.gf b/examples/phrasebook/WordsIta.gf new file mode 100644 index 000000000..a8caf0d58 --- /dev/null +++ b/examples/phrasebook/WordsIta.gf @@ -0,0 +1,51 @@ +-- (c) 2009 Ramona Enache and Aarne Ranta under LGPL + +concrete WordsIta of Words = SentencesIta ** open + SyntaxIta, + DiffPhrasebookIta, + BeschIta, + ParadigmsIta in { + +lin + +Wine = mkCN (mkN "vino") ; + Beer = mkCN (mkN "birra") ; + Water = mkCN (mkN "acqua") ; + Coffee = mkCN (mkN "caffè") ; + Tea = mkCN (mkN "té") ; ---- + +Cheese = mkCN (mkN "formaggio") ; +Fish = mkCN (mkN "pesce") ; +Pizza = mkCN (mkN "pizza") ; + +Itash = mkAP (mkA "frasco") ; +Warm = mkAPA "caldo" ; +Italian = mkAPA "italiano" ; +Expensive = mkAPA "caro" ; +Delicious = mkAPA "delizioso" ; +Boring = mkAPA "noioso" ; + + Restaurant = mkCN (mkN "ristorante") ; + Bar = mkCN (mkN "bar") ; + Toilet = mkCN (mkN "bagno") ; + + Euro = mkCN (mkN "euro" "euro" masculine) ; + Dollar = mkCN (mkN "dollar") ; + Lei = mkCN (mkN "lei") ; ---- ? + + AWant p obj = mkCl p want_V2 obj ; + ALike p item = mkCl item (mkV2 (mkV (piacere_64 "piacere")) dative) p ; + AHave p kind = mkCl p have_V2 (mkNP kind) ; + ASpeak p lang = mkCl p (mkV2 (mkV "parlare")) lang ; + ALove p q = mkCl p (mkV2 (mkV "amare")) q ; + + English = mkNP (mkPN "inglese") ; + Finnish = mkNP (mkPN "finnico") ; + Itanch = mkNP (mkPN "francese") ; + Romanian = mkNP (mkPN "romano") ; + Swedish = mkNP (mkPN "svedese") ; + +oper +mkAPA : (_ : Str) -> AP = \x -> mkAP (mkA x) ; + +} diff --git a/examples/phrasebook/phrasebook.txt b/examples/phrasebook/phrasebook.txt index ba97b80fd..ae390f5d3 100644 --- a/examples/phrasebook/phrasebook.txt +++ b/examples/phrasebook/phrasebook.txt @@ -4,7 +4,7 @@ Aarne Ranta History - Version 0.1, 26 March 2010. Eng, Fin, Fre, Ron; dedicated minibar UI. -- Version 0.2, 28 March. Swe; cat Action; small phrases. +- Version 0.2, 28 March. Swe, Ita; cat Action; small phrases. @@ -36,7 +36,7 @@ The source code resides in Current status (28 March 2010): -- available in English, Finnish, French, Romanian, Swedish +- available in English, Finnish, French, Italian, Romanian, Swedish - very small coverage - works on web browsers calling a server - web service not yet released, but preliminarily available