forked from GitHub/gf-core
14 lines
475 B
Plaintext
14 lines
475 B
Plaintext
--# -path=.:..:present:prelude
|
|
|
|
concrete PeacePhrases_Fin of PeacePhrases =
|
|
PeaceCat_Fin ** open LangFin, ParadigmsFin, 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 ;
|
|
|
|
} |