diff options
| author | krasimir <krasimir@chalmers.se> | 2016-05-11 11:24:31 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2016-05-11 11:24:31 +0000 |
| commit | be62f4047fbb5a70dfcc20a164006c8980f0ecb0 (patch) | |
| tree | fd23fab5d0a3bb4bdc042197796b019c22ebaf71 /examples | |
| parent | 86c54232752d14069cbb9b3089474d0299f9a20c (diff) | |
skeletal version of AppRus.gf
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/app/AppRus.gf | 55 | ||||
| -rw-r--r-- | examples/app/Makefile | 3 |
2 files changed, 58 insertions, 0 deletions
diff --git a/examples/app/AppRus.gf b/examples/app/AppRus.gf new file mode 100644 index 000000000..febe603ff --- /dev/null +++ b/examples/app/AppRus.gf @@ -0,0 +1,55 @@ +--# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos + +concrete AppRus of App = + + TranslateRus - [ + -- Verb + SlashV2a,ComplSlash, -- replaced by a more efficient inlined version + SlashV2V, + Slash2V3, Slash3V3, SlashV2S, SlashV2Q, SlashV2A, + SlashVV, SlashV2VNP, + AdvVPSlash, AdVVPSlash, VPSlashPrep, + -- Sentence + SlashVP, SlashVS, + PredSCVP, + AdvSlash, SlashPrep, SlashVS, + EmbedS, EmbedQS, EmbedVP, RelS, + -- Question + ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP, + -- Idiom + CleftNP, CleftAdv, + ImpP3, + -- Construction + -- Extensions + PassVPSlash, PassAgentVPSlash -- not reachable anyway + ] + + ,PhrasebookRus - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_Adv, closed_A, open_A, cost_V] + + ** open ParadigmsRus, SyntaxRus, 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 ; + + +ComplV2 v np = mkVP v np ; + + PassV2 v2 = passiveVP v2 ; + PassV2 v2 = passiveVP v2 ; +} diff --git a/examples/app/Makefile b/examples/app/Makefile index be54632ea..d556ebdf5 100644 --- a/examples/app/Makefile +++ b/examples/app/Makefile @@ -16,6 +16,7 @@ APP12=$(APP11) AppCat.pgf APP13=$(APP12) AppJpn.pgf APP14=$(APP13) AppTha.pgf APP15=$(APP14) AppEst.pgf +APP16=$(APP15) AppRus.pgf # With dependencies: App11.pgf: $(APP11) @@ -28,6 +29,8 @@ App14.pgf: $(APP14) $(GFMKT) -name=App14 $(APP14) +RTS -K200M App15.pgf: $(APP15) $(GFMKT) -name=App15 $(APP15) +RTS -K200M +App16.pgf: $(APP16) + $(GFMKT) -name=App16 $(APP16) +RTS -K200M # Without dependencies: App11: |