mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-07 02:02:51 -06:00
godis tram grammars, augmented with Fin
This commit is contained in:
32
examples/godis-tram/Common/GodisUserEng.gf
Normal file
32
examples/godis-tram/Common/GodisUserEng.gf
Normal file
@@ -0,0 +1,32 @@
|
||||
--# -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;
|
||||
|
||||
-- }
|
||||
Reference in New Issue
Block a user