forked from GitHub/gf-core
33 lines
571 B
Plaintext
33 lines
571 B
Plaintext
--# -path=.:prelude:resource-1.0/abstract:resource-1.0/common:resource-1.0/english
|
|
|
|
concrete GodisUserEng of GodisUser =
|
|
GodisUserI with (GodisLang = GodisLangEng);
|
|
|
|
|
|
-- open Prelude, GodisLangEng in {
|
|
|
|
-- lincat
|
|
|
|
-- S = SS;
|
|
|
|
-- Question = UserQuestion;
|
|
-- Action = UserAction;
|
|
-- Answer = UserAnswer;
|
|
-- ShortAns = UserShortAns;
|
|
|
|
|
|
-- lin
|
|
|
|
-- greet_S = ss ["hello"];
|
|
-- quit_S = variants{ ss ["goodbye"]; ss ["quit"] };
|
|
|
|
-- no_S = ss ["no"];
|
|
-- yes_S = ss ["yes"];
|
|
|
|
-- request_S x = x;
|
|
-- answer_S x = x;
|
|
-- ask_S x = x;
|
|
-- shortans_S x = x;
|
|
|
|
-- }
|