a dialogue resource started

2005-05-30 15:22:42 +00:00
parent 5b4fe38de8
commit fc70965de3
6 changed files with 116 additions and 1 deletions
--- a/lib/dialogue/DialogueParam.gf
+++ b/lib/dialogue/DialogueParam.gf
@@ -0,0 +1,24 @@
+interface DialogueParam = open Resource, Predef, Prelude in {
+
+  param 
+    PhraseForm = PPos | PNeg | PQuest ;
+
+  oper
+    mkPhraseStr : (p,n,q : Str) -> {s : PhraseForm => Str} = \p,n,q ->
+      {s = table {
+         PPos   => p ;
+         PNeg   => n ;
+         PQuest => q
+         }
+      } ;
+
+    mkPhrase : Cl -> {s : PhraseForm => Str} = \p ->
+      mkPhraseStr
+        ((IndicPhrase (UseCl  (PosTP TPresent ASimul) p)).s)
+        ((IndicPhrase (UseCl  (NegTP TPresent ASimul) p)).s)
+        ((QuestPhrase (UseQCl (PosTP TPresent ASimul) (QuestCl p))).s) ;
+
+    mkQuestion : QCl -> {s : Str} = \q ->
+      (QuestPhrase (UseQCl (PosTP TPresent ASimul) q)) ;
+
+}