forked from GitHub/gf-core
69 lines
1.7 KiB
Plaintext
69 lines
1.7 KiB
Plaintext
--# -path=.:../../lib/src/chunk:../../lib/src/translator:../phrasebook/gfos
|
|
|
|
concrete AppFreInput of App =
|
|
{-
|
|
TranslateFre - [
|
|
---- SlashVP, SlashVS, ---- expensive functions in Fre
|
|
-- 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
|
|
]
|
|
-}
|
|
NounFre - [PPartNP],
|
|
AdjectiveFre,
|
|
VerbFre [UseV,CompAP,CompAdv,UseComp,AdvVP,SlashV2a,ComplSlash],
|
|
SentenceFre [PredVP,UseCl],
|
|
QuestionFre - [QuestCl,QuestIAdv,ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP],
|
|
ConjunctionFre,
|
|
ConstructionFre,
|
|
TranslateFre [QuestCl,QuestIAdv],
|
|
IdiomFre - [CleftNP, CleftAdv,ImpP3],
|
|
TenseFre,
|
|
PhraseFre,
|
|
AdverbFre,
|
|
NumeralFre,
|
|
DocumentationFre,
|
|
SymbolFre [
|
|
PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP
|
|
],
|
|
DictionaryFre,
|
|
ChunkFre
|
|
|
|
,PhrasebookFre - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_A, closed_A]
|
|
|
|
** open ParadigmsFre, SyntaxFre, 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 ;
|
|
-}
|
|
|
|
}
|