From 800f6ee7e2fa4df1f6df4fb605c32a808ca29d9f Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 16 May 2006 18:48:46 +0000
Subject: [PATCH] renamed Godis to Prolog ; added Fin

---
 examples/dialogue/AgendaFin.gf                    | 15 +++++++++++++++
 .../dialogue/{AgendaGodis.gf => AgendaProlog.gf}  |  4 ++--
 examples/dialogue/DialogueFin.gf                  |  4 ++++
 .../{DialogueGodis.gf => DialogueProlog.gf}       |  2 +-
 examples/dialogue/README                          |  4 ++--
 examples/dialogue/{ResGodis.gf => ResProlog.gf}   |  2 +-
 examples/dialogue/WeekdayFin.gf                   | 10 ++++++++++
 .../{WeekdayGodis.gf => WeekdayProlog.gf}         |  2 +-
 8 files changed, 36 insertions(+), 7 deletions(-)
 create mode 100644 examples/dialogue/AgendaFin.gf
 rename examples/dialogue/{AgendaGodis.gf => AgendaProlog.gf} (67%)
 create mode 100644 examples/dialogue/DialogueFin.gf
 rename examples/dialogue/{DialogueGodis.gf => DialogueProlog.gf} (90%)
 rename examples/dialogue/{ResGodis.gf => ResProlog.gf} (91%)
 create mode 100644 examples/dialogue/WeekdayFin.gf
 rename examples/dialogue/{WeekdayGodis.gf => WeekdayProlog.gf} (56%)

diff --git a/examples/dialogue/AgendaFin.gf b/examples/dialogue/AgendaFin.gf
new file mode 100644
index 000000000..fac8220a4
--- /dev/null
+++ b/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 ;
+
+}
diff --git a/examples/dialogue/AgendaGodis.gf b/examples/dialogue/AgendaProlog.gf
similarity index 67%
rename from examples/dialogue/AgendaGodis.gf
rename to examples/dialogue/AgendaProlog.gf
index 16acad73a..060086812 100644
--- a/examples/dialogue/AgendaGodis.gf
+++ b/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" ;
diff --git a/examples/dialogue/DialogueFin.gf b/examples/dialogue/DialogueFin.gf
new file mode 100644
index 000000000..d2de99587
--- /dev/null
+++ b/examples/dialogue/DialogueFin.gf
@@ -0,0 +1,4 @@
+--# -path=.:present:prelude
+
+concrete DialogueFin of Dialogue = DialogueI with 
+  (Lang = LangFin) ;
diff --git a/examples/dialogue/DialogueGodis.gf b/examples/dialogue/DialogueProlog.gf
similarity index 90%
rename from examples/dialogue/DialogueGodis.gf
rename to examples/dialogue/DialogueProlog.gf
index fd39b5cc3..30e397f0d 100644
--- a/examples/dialogue/DialogueGodis.gf
+++ b/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 ;
 
diff --git a/examples/dialogue/README b/examples/dialogue/README
index 2a6eaef01..4bcba889c 100644
--- a/examples/dialogue/README
+++ b/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
diff --git a/examples/dialogue/ResGodis.gf b/examples/dialogue/ResProlog.gf
similarity index 91%
rename from examples/dialogue/ResGodis.gf
rename to examples/dialogue/ResProlog.gf
index f6d998d1b..5ecb1f3c0 100644
--- a/examples/dialogue/ResGodis.gf
+++ b/examples/dialogue/ResProlog.gf
@@ -1,4 +1,4 @@
-resource ResGodis = open Prelude in {
+resource ResProlog = open Prelude in {
 
   oper
     bracket : Str -> Str = \s -> "[" ++ s ++ "]" ;
diff --git a/examples/dialogue/WeekdayFin.gf b/examples/dialogue/WeekdayFin.gf
new file mode 100644
index 000000000..b150c2872
--- /dev/null
+++ b/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") ;
+
+}
diff --git a/examples/dialogue/WeekdayGodis.gf b/examples/dialogue/WeekdayProlog.gf
similarity index 56%
rename from examples/dialogue/WeekdayGodis.gf
rename to examples/dialogue/WeekdayProlog.gf
index 48d07b99c..384484cce 100644
--- a/examples/dialogue/WeekdayGodis.gf
+++ b/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 ;