cleaned up in multimodal and dialogue

examples/dialogue/AgendaEng.gf

@@ -1,7 +1,7 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete AgendaEng of Agenda = 
-  DialogueEng, WeekdayEng ** open LangEng, ParadigmsEng in {
+  DialogueEng, WeekdayEng ** open MultiEng, ParadigmsEng in {
 
   lin
     Day       = UseN (regN "day") ;

examples/dialogue/AgendaFin.gf

@@ -1,7 +1,7 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete AgendaFin of Agenda = 
-  DialogueFin, WeekdayFin ** open LangFin, ParadigmsFin in {
+  DialogueFin, WeekdayFin ** open MultiFin, ParadigmsFin in {
 
   lin
     Day       = UseN (regN "päivä") ;

examples/dialogue/AgendaFre.gf

@@ -1,7 +1,7 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete AgendaFre of Agenda = 
-  DialogueFre, WeekdayFre ** open LangFre, ParadigmsFre, IrregFre in {
+  DialogueFre, WeekdayFre ** open MultiFre, ParadigmsFre, IrregFre in {
 
   lin
     Day       = UseN (regN "jour") ;

examples/dialogue/AgendaSwe.gf

@@ -1,7 +1,7 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete AgendaSwe of Agenda = 
-  DialogueSwe, WeekdaySwe ** open LangSwe, ParadigmsSwe, IrregSwe in {
+  DialogueSwe, WeekdaySwe ** open MultiSwe, ParadigmsSwe, IrregSwe in {
 
   lin
     Day       = UseN (regN "dag") ;

examples/dialogue/AuxFin.gf

@@ -1,2 +1,2 @@
-instance AuxFin of AuxDialogue = open LangFin in {
+instance AuxFin of AuxDialogue = open MultiFin in {
 }

examples/dialogue/AuxFre.gf

@@ -1,2 +1,2 @@
-instance AuxFre of AuxDialogue = open LangFre in {
+instance AuxFre of AuxDialogue = open MultiFre in {
 }

examples/dialogue/AuxSwe.gf

@@ -1,2 +1,2 @@
-instance AuxSwe of AuxDialogue = open LangSwe in {
-}
+instance AuxSwe of AuxDialogue = open MultiSwe in {
+}

examples/dialogue/DialogueFin.gf

@@ -1,4 +1,4 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete DialogueFin of Dialogue = DialogueI with 
-  (Lang = LangFin) ;
+  (Multi = MultiFin) ;

examples/dialogue/DialogueFre.gf

@@ -1,4 +1,4 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete DialogueFre of Dialogue = DialogueI with 
-  (Lang = LangFre) ;
+  (Multi = MultiFre) ;

examples/dialogue/DialogueI.gf

@@ -1,5 +1,7 @@
 incomplete concrete DialogueI of Dialogue = open Multi, Prelude in {
 
+  flags optimize = all_subs ;
+
   lincat
     Move   = Phr ;
     Action = {s : ActType => Str ; point : Str} ;

examples/dialogue/DialogueSwe.gf

@@ -1,4 +1,4 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete DialogueSwe of Dialogue = DialogueI with 
-  (Lang = LangSwe) ;
+  (Multi = MultiSwe) ;

examples/dialogue/LightsFin.gf

@@ -1,7 +1,7 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete LightsFin of Lights = 
-  DialogueFin ** open LangFin, ParadigmsFin, AuxFin in {
+  DialogueFin ** open MultiFin, ParadigmsFin, AuxFin in {
 
   lin
     Light       = UseN (regN "valo") ;

examples/dialogue/LightsFre.gf

@@ -1,7 +1,7 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
 
 concrete LightsFre of Lights = 
-  DialogueFre ** open LangFre, ParadigmsFre, IrregFre, AuxFre in {
+  DialogueFre ** open MultiFre, ParadigmsFre, IrregFre, AuxFre in {
 
   lin
     Light       = UseN (regN "lampe") ;

examples/dialogue/LightsSwe.gf

@@ -1,7 +1,8 @@
---# -path=.:present:prelude
+--# -path=.:multimodal:alltenses:prelude
+
 
 concrete LightsSwe of Lights = 
-  DialogueSwe ** open LangSwe, ParadigmsSwe, AuxSwe in {
+  DialogueSwe ** open MultiSwe, ParadigmsSwe, AuxSwe in {
 
   lin
     Light       = UseN (regN "lampa") ;

examples/dialogue/README.txt

@@ -2,6 +2,9 @@ Dialogue system grammars using GF resource.
 
 AR 16/5/2006
 
+
+24/5 Added multimodality.
+
 ==Functionality and purpose==
 
 Dialogue system abstract syntax + concrete syntaxes for