forked from GitHub/gf-core
Moved punctuation to a separate field, to allow spoken language grammars to omit it. Created top-level spoken language grammars. (all in peacekeeping)
This commit is contained in:
@@ -1,3 +1,3 @@
|
||||
--# -path=.:present:prelude
|
||||
|
||||
concrete PeaceCat_Fin of PeaceCat = CatFin ** PeaceCatI with (Cat = CatFin);
|
||||
concrete PeaceCat_Fin of PeaceCat = CatFin ** PeaceCatI with (Lang = LangFin);
|
||||
|
||||
@@ -1,14 +1,14 @@
|
||||
--# -path=.:..:present:prelude
|
||||
|
||||
concrete PeacePhrases_Fin of PeacePhrases =
|
||||
PeaceCat_Fin ** open LangFin, ParadigmsFin in {
|
||||
PeaceCat_Fin ** open LangFin, ParadigmsFin, PeaceRes in {
|
||||
|
||||
lin
|
||||
Hello = { s = "terve" ++ "." } ;
|
||||
GoodMorning = { s = ["hyvää huomenta"] ++ "." } ;
|
||||
GoodEvening = { s = ["hyvää iltaa"] ++ "." } ;
|
||||
WhatIsNamePron p = PhrUtt NoPConj (UttQS (UseQCl TPres ASimul PPos
|
||||
Hello = stop "terve" ;
|
||||
GoodMorning = stop ["hyvää huomenta"] ;
|
||||
GoodEvening = stop ["hyvää iltaa"] ;
|
||||
WhatIsNamePron p = quest (PhrUtt NoPConj (UttQS (UseQCl TPres ASimul PPos
|
||||
(QuestVP whatSg_IP (UseComp (CompNP (DetCN (DetSg (SgQuant (PossPron p)) NoOrd)
|
||||
(UseN (reg2N "nimi" "nimiä")))))))) NoVoc ;
|
||||
(UseN (reg2N "nimi" "nimiä")))))))) NoVoc).s ;
|
||||
|
||||
}
|
||||
8
examples/peacekeeping/finnish/PeaceSpoken_Fin.gf
Normal file
8
examples/peacekeeping/finnish/PeaceSpoken_Fin.gf
Normal file
@@ -0,0 +1,8 @@
|
||||
--# -path=.:..:present:prelude
|
||||
|
||||
concrete PeaceSpoken_Fin of PeaceSpoken =
|
||||
Peace_Fin ** {
|
||||
|
||||
flags startcat = PhraseSpoken ;
|
||||
|
||||
}
|
||||
@@ -5,6 +5,6 @@ concrete Peace_Fin of Peace =
|
||||
PeaceLexExt_Fin, PeacePhrases_Fin
|
||||
** {
|
||||
|
||||
flags startcat = Phr ;
|
||||
|
||||
flags startcat = PhraseWritten ;
|
||||
optimize = all_subs ;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user