diff options
| author | aarne <unknown> | 2005-06-27 12:20:33 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-27 12:20:33 +0000 |
| commit | 3c508f4f89557318d8e0b50372a3f0d024e317f0 (patch) | |
| tree | 3251ede247f32b51ad4d4204e84a1c325c8fe628 /grammars/TALK/GF_GoDiS/Core/Shared | |
| parent | b9e13711db0085b25e9257d1034b43a3a2c47b7e (diff) | |
added Ann-Charlotte's grammars
Diffstat (limited to 'grammars/TALK/GF_GoDiS/Core/Shared')
| -rw-r--r-- | grammars/TALK/GF_GoDiS/Core/Shared/sharedCore.gf | 133 | ||||
| -rw-r--r-- | grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreEng.gf | 55 | ||||
| -rw-r--r-- | grammars/TALK/GF_GoDiS/Core/Shared/sharedCorePro.gf | 92 | ||||
| -rw-r--r-- | grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreSwe.gf | 54 |
4 files changed, 334 insertions, 0 deletions
diff --git a/grammars/TALK/GF_GoDiS/Core/Shared/sharedCore.gf b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCore.gf new file mode 100644 index 000000000..59c6e4de5 --- /dev/null +++ b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCore.gf @@ -0,0 +1,133 @@ +-- general grammar
+--# -path=.:../
+
+abstract sharedCore = {
+
+cat
+
+ -- Nuance needs a S category, easiest fix.
+ S;
+
+ -- Simple Dialogue Moves
+ DMove;
+
+
+
+-- Basic forms
+
+ Action Task;
+ SingleAction;
+ Proposition Task;
+
+ Task;
+
+
+-- Dialogue moves (DMove) are: ask, answer, greet, quit, request, confirm, report
+
+
+-- Greet
+ -- Simple greet move...
+ Greet ;
+
+-- Quit
+-- Simple quit move...
+ Quit;
+
+-- Answer
+-- Answers are moves that answer questions, posed or not.
+ Answer Task;
+ NegAnswer Task;
+
+-- Ask
+-- Ask moves are those moves that ask for plans.
+-- "vad vill du göra?" "vad kan jag göra" "hjälp"(?)
+-- Hur är det med ja/nej frågor?
+ Ask Task;
+ SingleAsk;
+
+
+-- Request
+-- Requests are those moves that have no arguments and
+-- generate no specific informationfilled answers.
+ Request;
+
+
+-- ICM
+
+ ICM;
+ Per_ICM;
+ Per_ICM_Followed;
+ Acc_ICM;
+ Acc_ICM_Followed;
+
+
+
+fun
+
+ makeS : DMove -> S;
+
+-- Greet
+ makeGreetMove : Greet -> DMove;
+
+-- Quit
+ makeQuitMove : Quit -> DMove;
+
+-- Answer
+ makeAnswer : (t : Task) -> Proposition t -> Answer t;
+ makeAnswerMove : (t : Task) -> Answer t -> DMove;
+
+
+ makeNegAnswer : (t : Task) -> Proposition t -> NegAnswer t;
+ makeNegAnswerMove : (t : Task) -> NegAnswer t -> DMove;
+
+-- Ask
+ singleAsk : (t : Task) -> Ask t -> SingleAsk;
+ makeYesNoAsk : (t : Task) -> Action t -> SingleAsk;
+ makeAsk : SingleAsk -> DMove;
+
+
+-- Request
+ makeRequest : SingleAction -> Request;
+ makeRequestMove : Request -> DMove;
+ makeNegRequestMove : Request -> DMove;
+
+
+-- ICM
+
+ makeICMPer : Per_ICM -> ICM;
+ makeICMAcc : Acc_ICM -> ICM;
+
+
+
+ makeICMMove : ICM -> DMove;
+
+
+-- LEXICON
+
+ shortAnswer : Task;
+
+ top_command : SingleAction;
+
+ help_command : SingleAction;
+
+ yes : Answer shortAnswer;
+ no : Answer shortAnswer;
+
+ greet_command : Greet;
+ bye_command : Quit;
+
+
+ -- ICMs
+ per_pos : Per_ICM_Followed;
+ per_neg : Per_ICM;
+ per_int : Per_ICM;
+
+ acc_pos : Acc_ICM;
+ acc_neg_alone : Acc_ICM;
+ acc_neg : Acc_ICM_Followed;
+ --acc_int : Acc_ICM;
+
+}
+
+
+
diff --git a/grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreEng.gf b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreEng.gf new file mode 100644 index 000000000..cc7b739ec --- /dev/null +++ b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreEng.gf @@ -0,0 +1,55 @@ +concrete sharedCoreEng of sharedCore = open GenResEng in {
+
+--flags lexer=codelit ; unlexer=codelit ; startcat=DMoveList ;
+flags conversion=finite;
+
+
+--# -path=.:../
+
+lin
+ makeS s = {s = s.s};
+
+
+
+-- Linearization of Greet, Quit, Answer, Ask and Request are moved to
+-- System and User respectively because of differing linearizations
+
+
+-- ICM
+
+ makeICMPer perI = {s = perI.s};
+
+ makeICMAcc accI = {s = accI.s};
+
+ makeICMMove icm = {s = icm.s};
+
+
+
+
+-- LEXICON
+
+pattern
+
+ top_command = (variants {["top"] ; ["forget everything"] ; ["start over"]});
+ -- end_command = "quit";
+
+ help_command = variants {"get" ; ""} ++ "help" ;
+
+ yes = variants {"yes" ; "yup" ; "yeppers"};
+ no = variants {"no" ; "nope" };
+
+ greet_command = variants { "hello" ; "hi" ; "yo"};
+ bye_command = variants { ["goodbye"] ; "bye" ; "end" };
+
+-- ICMs
+-- Moved to User and System respectively because of differing linearisations
+-- for user and system.
+
+
+}
+
+
+
+
+
+
diff --git a/grammars/TALK/GF_GoDiS/Core/Shared/sharedCorePro.gf b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCorePro.gf new file mode 100644 index 000000000..72295478e --- /dev/null +++ b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCorePro.gf @@ -0,0 +1,92 @@ +--# -path=.:../
+
+concrete sharedCorePro of sharedCore = {
+
+
+flags lexer=code ; unlexer=concat ;
+flags conversion=finite;
+
+lin
+
+ -- Borde inte request, question, etc.. ligga i en
+ -- generell resursfil så att man kan komma åt dem.
+ -- Det är inte speciellt snyggt att skriva ut det
+ -- ibland här och ibland i den specifika filen..
+ -- Det känns som om det borde vara en "resurs"fråga.
+
+ -- Det ÄR en resursgrej... titta i video grammatiken:
+ -- prologResource.gf och generalProlog.gf
+ -- som Aarne fixade till från Karins pyssel.
+ -- Hakparanteserna borde också fixas till på samma sätt...
+
+ makeS s = {s = "[" ++ s.s ++ "]"};
+
+-- Greet
+ makeGreetMove gre = {s = gre.s };
+
+-- Quit
+ makeQuitMove qui = {s = qui.s };
+
+-- Answer
+ makeAnswer _ ans = {s = "answer" ++ "(" ++ ans.s ++ ")"};
+ makeNegAnswer _ ans = {s = "answer" ++ "(" ++ "not" ++ "(" ++ ans.s ++ ")" ++ ")"};
+ makeAnswerMove _ sha = {s = sha.s };
+ makeNegAnswerMove _ sha = {s = sha.s};
+
+-- Ask
+ singleAsk _ ask = {s = "X" ++ "^" ++ ask.s ++ "(" ++ "X" ++ ")"};
+ makeYesNoAsk _ action = {s = action.s};
+ makeAsk ask = {s = "ask" ++ "(" ++ ask.s ++ ")"};
+
+-- Request
+ makeRequest req = {s = "request" ++ "(" ++ req.s ++ ")" };
+ makeRequestMove reqM = {s = reqM.s};
+ makeNegRequestMove reqM = {s = "not" ++ "(" ++ reqM.s ++ ")"};
+
+
+-- ICM
+
+ makeICMPer perI = {s = perI.s};
+
+ makeICMAcc accI = {s = accI.s};
+-- makeICMAccProp accI prop = {s = accI.s ++ ":" ++ prop.s};
+
+
+ makeICMMove icm = {s = "icm" ++ ":" ++ icm.s};
+
+-- LEXICON
+
+pattern
+ top_command = "top";
+ -- end_command = "quit";
+
+ help_command = "help";
+
+ yes = "yes";
+ no = "no";
+
+ greet_command = "greet";
+ bye_command = "quit";
+
+ -- ICMs
+ per_pos = ["per * pos"];
+ per_neg = ["per * neg"];
+ per_int = ["per * int"];
+
+
+ acc_pos = ["acc * pos"];
+ acc_neg = ["acc * neg"];
+ acc_neg_alone = ["acc * neg"];
+ --acc_int = "acc*int";
+
+
+}
+
+
+
+
+
+
+
+
+
diff --git a/grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreSwe.gf b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreSwe.gf new file mode 100644 index 000000000..12dd7abf1 --- /dev/null +++ b/grammars/TALK/GF_GoDiS/Core/Shared/sharedCoreSwe.gf @@ -0,0 +1,54 @@ +concrete sharedCoreSwe of sharedCore = open GenResSwe in {
+
+--flags lexer=codelit ; unlexer=codelit ;
+flags conversion=finite;
+
+--# -path=.:../
+
+lin
+ makeS s = {s = s.s};
+
+-- Linearizations of Greet, Quit, Answer, Ask and Request
+-- are moved to User and System respectively because of punctuation.
+
+-- ICM
+
+ makeICMPer perI = {s = perI.s};
+
+ makeICMAcc accI = {s = accI.s};
+
+
+ makeICMMove icm = {s = icm.s};
+
+
+
+
+-- LEXICON
+
+pattern
+
+ top_command = (variants {["glömma allt"] ; ["börja om"]});
+ -- end_command = "avsluta";
+
+ help_command = variants {"få" ; "ha"} ++ "hjälp" ;
+
+ yes = variants {"ja" ; "japp" ; "jajamen"};
+ no = variants {"nej" ; "nepp" };
+
+ greet_command = variants { "hej" ; "tjena" ; "hallå"};
+ bye_command = variants { ["hejdå"] ; "sluta" ; "avbryt" };
+
+
+-- ICMs
+-- Linearization of ICMs are moved to User and System
+-- respectively because of differing linearizations.
+
+
+}
+
+
+
+
+
+
+
|