diff --git a/examples/app/AppDut.gf b/examples/app/AppDut.gf new file mode 100644 index 000000000..e353a42a4 --- /dev/null +++ b/examples/app/AppDut.gf @@ -0,0 +1,47 @@ +--# -path=.:src/chunk:src/translator:../examples/phrasebook/gfos + +concrete AppDut of App = + + TranslateDut - [ + -- Verb + ComplVS, ComplVQ, ComplVA, + Slash2V3, Slash3V3, SlashV2V, SlashV2S, SlashV2Q, SlashV2A, + SlashVV, SlashV2VNP, + PassVP, ReflVP, + AdvVPSlash, AdVVPSlash, VPSlashPrep, + -- Sentence + PredSCVP, + AdvSlash, SlashPrep, SlashVS, + EmbedS, EmbedQS, EmbedVP, RelS, + -- Question + ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP, + -- Idiom + CleftNP, CleftAdv, + ExistIP, + ExistNPAdv, ExistIPAdv, + ImpP3, + SelfAdvVP, SelfAdVVP, SelfNP, + + -- Construction + hungry_VP, thirsty_VP, has_age_VP, have_name_Cl, married_Cl, what_name_QCl, how_old_QCl, how_far_QCl, + weather_adjCl, is_right_VP, is_wrong_VP, n_units_AP, bottle_of_CN, cup_of_CN, glass_of_CN, + where_go_QCl, where_come_from_QCl, go_here_VP, come_here_VP, come_from_here_VP, go_there_VP, come_there_VP, come_from_there_VP + -- Extensions + ] + + ,PhrasebookDut - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_Adv, closed_A, open_A] + + ** open ParadigmsDut, SyntaxDut, Prelude in { + +flags + literal=Symb ; + +-- to suppress punctuation +lin + PSentence, PQuestion = \s -> lin Text (mkUtt s) ; + PGreetingMale, PGreetingFemale = \s -> lin Text s ; + GObjectPlease o = lin Text (mkUtt o) ; + PhrasePhr p = {s = "+" ++ p.s} | p ; + Phrase_Chunk p = p ; + +} diff --git a/examples/app/Makefile b/examples/app/Makefile index aba322034..45b7f1961 100644 --- a/examples/app/Makefile +++ b/examples/app/Makefile @@ -21,6 +21,10 @@ AppIta: AppIta.pgf AppSpa: AppSpa.pgf TRANSLATE10=AppEng.pgf AppBul.pgf AppChi.pgf AppGer.pgf AppSwe.pgf AppHin.pgf AppFin.pgf AppFre.pgf AppIta.pgf AppSpa.pgf +TRANSLATE11=$(TRANSLATE10) AppDut.pgf +# Without dependencies: +App11: + $(GFMKT) -name=App11 $(TRANSLATE11) +RTS -K200M # Without dependencies: App10: @@ -34,6 +38,7 @@ App10.pgf: $(TRANSLATE10) AppEng.pgf:: ; $(GFMKT) -name=AppEng AppEng.gf AppBul.pgf:: ; $(GFMKT) -name=AppBul AppBul.gf AppChi.pgf:: ; $(GFMKT) -name=AppChi AppChi.gf +RTS -K64M +AppDut.pgf:: ; $(GFMKT) -name=AppDut AppDut.gf +RTS -K64M AppFin.pgf:: ; $(GFMKT) -name=AppFin AppFin.gf +RTS -K64M AppGer.pgf:: ; $(GFMKT) -name=AppGer AppGer.gf +RTS -K64M AppHin.pgf:: ; $(GFMKT) -name=AppHin AppHin.gf