mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-22 09:32:53 -06:00
peace grammars patched to work with the new API
This commit is contained in:
@@ -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 ;
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user