examples/peacekeeping/english/PeacePhrases_Eng.gf


1
2
3
4
5
6
7
8
9
10
11
12

--# -path=.:..:present:prelude

concrete PeacePhrases_Eng of PeacePhrases = 
  PeaceCat_Eng ** open ResEng, PeaceRes in {

lin
    Hello = stop "hello" ;
    GoodMorning = stop ["good morning"];
    GoodEvening = stop ["good evening"] ;
    WhatIsNamePron p = quest (["what is"] ++ p.s!Gen ++ "name") ;

}