mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-22 19:22:50 -06:00
16 lines
333 B
Plaintext
16 lines
333 B
Plaintext
--# -path=.:present
|
|
|
|
concrete PhrasebookFre of Phrasebook =
|
|
GreetingsFre,
|
|
WordsFre
|
|
** open
|
|
(R = Roles),
|
|
SyntaxFre,
|
|
Prelude in {
|
|
|
|
lin
|
|
PGreeting p g = mkText (lin Text (ss (g.s ! p.p ! R.Male ! R.Male))) (lin Text (ss p.s)) ;
|
|
---- PGreeting p s h g = mkPhrase (g.s ! p.p ! s.g ! h.g ++ p.s ++ s.s ++ h.s) ;
|
|
|
|
}
|