summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/app/AppJpn.gf48
-rw-r--r--examples/app/Makefile6
2 files changed, 54 insertions, 0 deletions
diff --git a/examples/app/AppJpn.gf b/examples/app/AppJpn.gf
new file mode 100644
index 000000000..dc390d051
--- /dev/null
+++ b/examples/app/AppJpn.gf
@@ -0,0 +1,48 @@
+--# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos
+
+concrete AppJpn of App =
+
+ TranslateJpn - [
+ -- Verb
+ SlashV2V, -- replaced by more efficient inlined versions
+ Slash2V3, Slash3V3, SlashV2S, SlashV2Q, SlashV2A,
+ SlashVV, SlashV2VNP,
+ AdvVPSlash, AdVVPSlash, VPSlashPrep,
+ -- Sentence
+ PredSCVP,
+ AdvSlash, SlashPrep, SlashVS,
+ EmbedS, EmbedQS, EmbedVP, RelS,
+ -- Question
+ ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP,
+ -- Idiom
+ CleftNP, CleftAdv,
+ ImpP3
+ -- Construction
+ -- Extensions
+ ]
+
+ ,PhrasebookJpn ---- - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_Adv, closed_A, open_A, at_Prep, by_Prep]
+
+ ** open ParadigmsJpn, SyntaxJpn, 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 ;
+
+
+ComplV2V v np vp = mkVP v np vp ;
+ComplV2A v np vp = mkVP v np vp ;
+ComplV2Q v np vp = mkVP v np vp ;
+ComplV2S v np vp = mkVP v np vp ;
+ComplV3 v np vp = mkVP v np vp ;
+
+}
diff --git a/examples/app/Makefile b/examples/app/Makefile
index 93777a3af..f5207b377 100644
--- a/examples/app/Makefile
+++ b/examples/app/Makefile
@@ -13,18 +13,23 @@ GFMKT=mkdir -p $(GFODIR) && gf $S -make -literal=PN,Symb -probs=$(PROBSFILE) -gf
APP11=AppEng.pgf AppBul.pgf AppChi.pgf AppGer.pgf AppSwe.pgf AppHin.pgf AppFin.pgf AppFre.pgf AppIta.pgf AppSpa.pgf AppDut.pgf
APP12=$(APP11) AppCat.pgf
+APP13=$(APP12) AppJpn.pgf
# With dependencies:
App11.pgf: $(APP11)
$(GFMKT) -name=App11 $(APP11) +RTS -K200M
App12.pgf: $(APP12)
$(GFMKT) -name=App12 $(APP12) +RTS -K200M
+App13.pgf: $(APP13)
+ $(GFMKT) -name=App13 $(APP13) +RTS -K200M
# Without dependencies:
App11:
$(GFMKT) -name=App12 $(APP11) +RTS -K200M
App12:
$(GFMKT) -name=App12 $(APP12) +RTS -K200M
+App13:
+ $(GFMKT) -name=App13 $(APP13) +RTS -K200M
# App grammars for individual languages
AppEng.pgf:: ; $(GFMKT) -name=AppEng AppEng.gf
@@ -37,6 +42,7 @@ AppGer.pgf:: ; $(GFMKT) -name=AppGer AppGer.gf +RTS -K64M
AppHin.pgf:: ; $(GFMKT) -name=AppHin AppHin.gf
AppFre.pgf:: ; $(GFMKT) -name=AppFre AppFre.gf +RTS -K64M
AppIta.pgf:: ; $(GFMKT) -name=AppIta AppIta.gf +RTS -K64M
+AppJpn.pgf:: ; $(GFMKT) -name=AppJpn AppJpn.gf +RTS -K64M
AppSpa.pgf:: ; $(GFMKT) -name=AppSpa AppSpa.gf +RTS -K64M
AppSwe.pgf:: ; $(GFMKT) -name=AppSwe AppSwe.gf