forked from GitHub/gf-core
Android app sources in examples/app - read README for advice
This commit is contained in:
61
examples/app/AppHin.gf
Normal file
61
examples/app/AppHin.gf
Normal file
@@ -0,0 +1,61 @@
|
||||
--# -path=.:src/chunk:src/translator:../examples/phrasebook/gfos
|
||||
|
||||
concrete AppHin of App =
|
||||
TenseX - [AdN,Adv,SC,PPos,PNeg],
|
||||
NounHin - [PPartNP],
|
||||
AdjectiveHin,
|
||||
NumeralHin,
|
||||
SymbolHin [
|
||||
PN, Symb, String, CN, Card, NP, MkSymb, SymbPN, CNNumNP
|
||||
],
|
||||
ConjunctionHin,
|
||||
VerbHin [
|
||||
UseV,ComplVV,SlashV2a,ComplSlash,UseComp,CompAP,CompNP,CompAdv,CompCN
|
||||
],
|
||||
AdverbHin,
|
||||
PhraseHin,
|
||||
SentenceHin [
|
||||
PredVP,SlashVP,ImpVP,
|
||||
UseCl,UseQCl,UseSlash,SSubjS,UseRCl
|
||||
],
|
||||
QuestionHin - [
|
||||
ComplSlashIP,AdvQVP,AddAdvQVP,QuestQVP
|
||||
],
|
||||
RelativeHin,
|
||||
IdiomHin [
|
||||
NP, VP, Tense, Cl, ProgrVP, ExistNP,
|
||||
neutr, sjalv
|
||||
],
|
||||
---- ConstructionHin,
|
||||
|
||||
ChunkHin,
|
||||
|
||||
ExtensionsHin [
|
||||
CompoundCN,AdAdV,UttAdV,ApposNP,
|
||||
MkVPI, MkVPS, PredVPS, that_RP, who_RP
|
||||
],
|
||||
|
||||
DocumentationHin,
|
||||
DictionaryHin
|
||||
|
||||
,PhrasebookHin - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease, open_Adv, closed_A, open_A]
|
||||
|
||||
** open MorphoHin, ResHin, ParadigmsHin, SyntaxHin, CommonScand, (E = ExtraHin), 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) ;
|
||||
|
||||
|
||||
lin
|
||||
PhrasePhr p = {s = "+" ++ p.s} | p ;
|
||||
|
||||
Phrase_Chunk p = p ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user