forked from GitHub/gf-core
AppEst was missing from darcs, oops
This commit is contained in:
54
examples/app/AppEst.gf
Normal file
54
examples/app/AppEst.gf
Normal file
@@ -0,0 +1,54 @@
|
||||
--# -path=.:../../lib/src/chunk:../../lib/src/translator:../../lib/src/estonian:../phrasebook/gfos:alltenses
|
||||
|
||||
concrete AppEst of App =
|
||||
|
||||
TranslateEst - [
|
||||
-- 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
|
||||
]
|
||||
|
||||
,PhrasebookEst - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_A, open_Adv]
|
||||
|
||||
** open ParadigmsEst, SyntaxEst, Prelude in {
|
||||
|
||||
flags
|
||||
literal=Symb ;
|
||||
|
||||
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 ;
|
||||
}
|
||||
Reference in New Issue
Block a user