From 5fde12f8f4d1715c565aee426a745d0bc2d39716 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 8 Sep 2008 16:02:05 +0000
Subject: [PATCH] compatibility modules started to deal with WebALT grammars

---
 lib/resource/abstract/Compatibility.gf   |  9 +++++++++
 lib/resource/english/CompatibilityEng.gf | 11 +++++++++++
 lib/resource/spanish/CompatibilitySpa.gf | 11 +++++++++++
 lib/resource/swedish/CompatibilitySwe.gf | 11 +++++++++++
 4 files changed, 42 insertions(+)
 create mode 100644 lib/resource/abstract/Compatibility.gf
 create mode 100644 lib/resource/english/CompatibilityEng.gf
 create mode 100644 lib/resource/spanish/CompatibilitySpa.gf
 create mode 100644 lib/resource/swedish/CompatibilitySwe.gf

diff --git a/lib/resource/abstract/Compatibility.gf b/lib/resource/abstract/Compatibility.gf
new file mode 100644
index 000000000..a4af7d4f5
--- /dev/null
+++ b/lib/resource/abstract/Compatibility.gf
@@ -0,0 +1,9 @@
+abstract Compatibility = Cat ** {
+
+-- from Noun 19/4/2008
+
+fun
+    NumInt     : Int -> Num ;     -- 57
+    OrdInt     : Int -> Ord ;     -- 57
+
+}
diff --git a/lib/resource/english/CompatibilityEng.gf b/lib/resource/english/CompatibilityEng.gf
new file mode 100644
index 000000000..28ede2a17
--- /dev/null
+++ b/lib/resource/english/CompatibilityEng.gf
@@ -0,0 +1,11 @@
+--# -path=.:../abstract:../common
+
+concrete CompatibilityEng of Compatibility = CatEng ** open Prelude, ResEng in {
+
+-- from Noun 19/4/2008
+
+lin
+    NumInt n = {s = n.s ; n = Pl ; hasCard = True} ; 
+    OrdInt n = {s = n.s ++ "th"} ;
+
+}
diff --git a/lib/resource/spanish/CompatibilitySpa.gf b/lib/resource/spanish/CompatibilitySpa.gf
new file mode 100644
index 000000000..b8af3136b
--- /dev/null
+++ b/lib/resource/spanish/CompatibilitySpa.gf
@@ -0,0 +1,11 @@
+--# -path=.:../romance:../abstract:../common
+
+concrete CompatibilitySpa of Compatibility = CatSpa ** open Prelude, CommonRomance in {
+
+-- from Noun 19/4/2008
+
+lin
+    NumInt n = {s = \\_ => n.s ; isNum = True ; n = Pl} ;
+    OrdInt n = {s = \\_ => n.s ++ "."} ; ---
+
+}
diff --git a/lib/resource/swedish/CompatibilitySwe.gf b/lib/resource/swedish/CompatibilitySwe.gf
new file mode 100644
index 000000000..84ab961b3
--- /dev/null
+++ b/lib/resource/swedish/CompatibilitySwe.gf
@@ -0,0 +1,11 @@
+--# -path=.:../scandinavian:../abstract:../common
+
+concrete CompatibilitySwe of Compatibility = CatSwe ** open Prelude, CommonScand in {
+
+-- from Noun 19/4/2008
+
+lin
+    NumInt n = {s = \\_ => n.s ; isDet = True ; n = Pl} ;
+    OrdInt n = {s = n.s ++ ":e" ; isDet = True} ;
+
+}