From 1861c2341417d7cb5861699da6829c413b13586d Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Thu, 20 Apr 2006 22:46:41 +0000
Subject: [PATCH] peacekeeping: add a module with phrases which are very
 different in different languages, e.g. greetings. The english and swedish
 implementations do not yet use the resource grammars, and the finnish is
 empty.

---
 examples/peacekeeping/Peace.gf                    |  5 ++++-
 examples/peacekeeping/PeacePhrases.gf             |  9 +++++++++
 examples/peacekeeping/english/PeacePhrases_Eng.gf | 12 ++++++++++++
 examples/peacekeeping/english/Peace_Eng.gf        |  5 ++++-
 examples/peacekeeping/finnish/PeacePhrases_Fin.gf |  7 +++++++
 examples/peacekeeping/finnish/Peace_Fin.gf        |  5 ++++-
 examples/peacekeeping/swedish/PeacePhrases_Swe.gf | 12 ++++++++++++
 examples/peacekeeping/swedish/Peace_Swe.gf        |  5 ++++-
 8 files changed, 56 insertions(+), 4 deletions(-)
 create mode 100644 examples/peacekeeping/PeacePhrases.gf
 create mode 100644 examples/peacekeeping/english/PeacePhrases_Eng.gf
 create mode 100644 examples/peacekeeping/finnish/PeacePhrases_Fin.gf
 create mode 100644 examples/peacekeeping/swedish/PeacePhrases_Swe.gf

diff --git a/examples/peacekeeping/Peace.gf b/examples/peacekeeping/Peace.gf
index 13546fa08..f7514ac8b 100644
--- a/examples/peacekeeping/Peace.gf
+++ b/examples/peacekeeping/Peace.gf
@@ -1 +1,4 @@
-abstract Peace = PeaceSyntax, PeaceLexCommon, PeaceLexExt ** {}
\ No newline at end of file
+abstract Peace = 
+  PeaceSyntax, PeaceLexCommon, 
+  PeaceLexExt, PeacePhrases 
+  ** {}
\ No newline at end of file
diff --git a/examples/peacekeeping/PeacePhrases.gf b/examples/peacekeeping/PeacePhrases.gf
new file mode 100644
index 000000000..b44ddd2da
--- /dev/null
+++ b/examples/peacekeeping/PeacePhrases.gf
@@ -0,0 +1,9 @@
+abstract PeacePhrases = Cat ** {
+
+  fun
+    Hello : Phr ;
+    GoodMorning : Phr ;
+    GoodEvening : Phr ;
+    WhatIsNamePron : Pron -> Phr ;
+
+}
\ No newline at end of file
diff --git a/examples/peacekeeping/english/PeacePhrases_Eng.gf b/examples/peacekeeping/english/PeacePhrases_Eng.gf
new file mode 100644
index 000000000..73297d111
--- /dev/null
+++ b/examples/peacekeeping/english/PeacePhrases_Eng.gf
@@ -0,0 +1,12 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Eng of PeacePhrases = 
+  PeaceCat_Eng ** open ResEng in {
+
+lin
+    Hello = { s = "hello" ++ "." } ;
+    GoodMorning = { s = ["good morning"] ++ "." } ;
+    GoodEvening = { s = ["good evening"] ++ "." } ;
+    WhatIsNamePron p = { s = ["what is"] ++ p.s!Gen ++ "name" ++ "?"; };
+
+}
\ No newline at end of file
diff --git a/examples/peacekeeping/english/Peace_Eng.gf b/examples/peacekeeping/english/Peace_Eng.gf
index f060a34e5..996582b20 100644
--- a/examples/peacekeeping/english/Peace_Eng.gf
+++ b/examples/peacekeeping/english/Peace_Eng.gf
@@ -1,3 +1,6 @@
 --# -path=.:..:present:prelude
 
-concrete Peace_Eng of Peace = PeaceSyntax_Eng, PeaceLexCommon_Eng, PeaceLexExt_Eng ** {}
\ No newline at end of file
+concrete Peace_Eng of Peace = 
+  PeaceSyntax_Eng, PeaceLexCommon_Eng, 
+  PeaceLexExt_Eng, PeacePhrases_Eng
+  ** {}
diff --git a/examples/peacekeeping/finnish/PeacePhrases_Fin.gf b/examples/peacekeeping/finnish/PeacePhrases_Fin.gf
new file mode 100644
index 000000000..f02b04d55
--- /dev/null
+++ b/examples/peacekeeping/finnish/PeacePhrases_Fin.gf
@@ -0,0 +1,7 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Fin of PeacePhrases = 
+  PeaceCat_Fin ** {
+
+
+}
\ No newline at end of file
diff --git a/examples/peacekeeping/finnish/Peace_Fin.gf b/examples/peacekeeping/finnish/Peace_Fin.gf
index b3e39a014..26be72683 100644
--- a/examples/peacekeeping/finnish/Peace_Fin.gf
+++ b/examples/peacekeeping/finnish/Peace_Fin.gf
@@ -1,3 +1,6 @@
 --# -path=.:..:present:prelude
 
-concrete Peace_Fin of Peace = PeaceSyntax_Fin, PeaceLexCommon_Fin, PeaceLexExt_Fin ** {}
+concrete Peace_Fin of Peace = 
+  PeaceSyntax_Fin, PeaceLexCommon_Fin, 
+  PeaceLexExt_Fin, PeacePhrases_Fin
+  ** {}
diff --git a/examples/peacekeeping/swedish/PeacePhrases_Swe.gf b/examples/peacekeeping/swedish/PeacePhrases_Swe.gf
new file mode 100644
index 000000000..3373aa2e9
--- /dev/null
+++ b/examples/peacekeeping/swedish/PeacePhrases_Swe.gf
@@ -0,0 +1,12 @@
+--# -path=.:..:present:prelude
+
+concrete PeacePhrases_Swe of PeacePhrases = 
+  PeaceCat_Swe ** open CommonScand in {
+
+lin
+    Hello = { s = "hej" ++ "." } ;
+    GoodMorning = { s = ["god morgon"] ++ "." } ;
+    GoodEvening = { s = ["god kväll"] ++ "." } ;
+    WhatIsNamePron p = { s = ["vad heter"] ++ p.s!NPNom ++ "?"; };
+
+}
\ No newline at end of file
diff --git a/examples/peacekeeping/swedish/Peace_Swe.gf b/examples/peacekeeping/swedish/Peace_Swe.gf
index dff654a3d..0cb80a127 100644
--- a/examples/peacekeeping/swedish/Peace_Swe.gf
+++ b/examples/peacekeeping/swedish/Peace_Swe.gf
@@ -1,3 +1,6 @@
 --# -path=.:..:present:prelude
 
-concrete Peace_Swe of Peace = PeaceSyntax_Swe, PeaceLexCommon_Swe, PeaceLexExt_Swe ** {}
\ No newline at end of file
+concrete Peace_Swe of Peace = 
+  PeaceSyntax_Swe, PeaceLexCommon_Swe, 
+  PeaceLexExt_Swe, PeacePhrases_Swe
+  ** {}