msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

peace grammars patched to work with the new API

Browse Source
This commit is contained in:
aarne
2008-08-20 07:14:20 +00:00
parent b962c3a0d3
commit 090d30c26b
15 changed files with 94 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
examples/peacekeeping/finnish/PeacePhrases_Fin.gf
View File

@@ -1,14 +1,13 @@
--# -path=.:..:present:prelude
concrete PeacePhrases_Fin of PeacePhrases =
PeaceCat_Fin ** open LangFin, ParadigmsFin, PeaceRes in {
PeaceCat_Fin ** open LangFin, ParadigmsFin, ConstructorsFin, PeaceRes in {
lin
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).s ;
WhatIsNamePron p = quest (
mkPhr (mkUtt (mkQS (mkQCl whatSg_IP (mkVP (mkNP (mkDet p) name_N)))))).s ;
}
}