renamed Godis to Prolog ; added Fin

examples/dialogue/AgendaFin.gf

@@ -0,0 +1,15 @@
+--# -path=.:present:prelude
+
+concrete AgendaFin of Agenda = 
+  DialogueFin, WeekdayFin ** open LangFin, ParadigmsFin in {
+
+  lin
+    Day       = UseN (regN "päivä") ;
+    Meeting   = UseN (regN "kokous") ;
+    Add       = dirV3 (regV "lisätä") translative ;
+    Remove    = dirV2 (regV "poistaa") ;
+    Interrupt = regV "keskeyttää" ;
+   
+    day = UsePN ;
+
+}

examples/dialogue/AgendaProlog.gf

@@ -1,7 +1,7 @@
 --# -path=.:prelude
 
-concrete AgendaGodis of Agenda = 
-  DialogueGodis, WeekdayGodis ** open ResGodis, Prelude in {
+concrete AgendaProlog of Agenda = 
+  DialogueProlog, WeekdayProlog ** open ResProlog, Prelude in {
 
   lin
     Day       = ss "day" ;

examples/dialogue/DialogueFin.gf

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

examples/dialogue/DialogueProlog.gf

@@ -1,6 +1,6 @@
 --# -path=.:prelude
 
-concrete DialogueGodis of Dialogue = open ResGodis, Prelude in {
+concrete DialogueProlog of Dialogue = open ResProlog, Prelude in {
 
   flags lexer=codelit ; unlexer=code ;
 

examples/dialogue/README

@@ -2,13 +2,13 @@ Dialogue system grammar examples.
 
 AR 16/5/2006
 
-Files (for X = Eng, Fre, Godis, Swe):
+Files (for X = Eng, Fin, Fre, Prolog, Swe):
 
   Dialogue.gf   -- base dialogue grammar
   DialogueX.gf  -- implementation instance
   DialogueI.gf  -- implementation functor
 
-  ResGodis.gf   -- help constructs for Prolog terms
+  ResProlog.gf  -- help constructs for Prolog terms
 
   Weekday.gf    -- untility grammar with weekdays
   WeekdayX.gf

examples/dialogue/ResProlog.gf

@@ -1,4 +1,4 @@
-resource ResGodis = open Prelude in {
+resource ResProlog = open Prelude in {
 
   oper
     bracket : Str -> Str = \s -> "[" ++ s ++ "]" ;

examples/dialogue/WeekdayFin.gf

@@ -0,0 +1,10 @@
+concrete WeekdayFin of Weekday = open LangFin, ParadigmsFin in {
+
+  lincat 
+    WDay = PN ;
+
+  lin
+    Mon = mkPN (regN "maanantai") ;
+    Tue = mkPN (regN "tiistai") ;
+
+}

examples/dialogue/WeekdayProlog.gf

@@ -1,4 +1,4 @@
-concrete WeekdayGodis of Weekday = open ResGodis, Prelude in {
+concrete WeekdayProlog of Weekday = open ResProlog, Prelude in {
 
   lincat 
     WDay = SS ;