From 412a4f0fdb09e26801efea2325c6bc9587c03802 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 9 Jan 2004 16:40:25 +0000
Subject: [PATCH] With the new reuse of abstract as interface,

With the new reuse of abstract as interface,
more modular structure of resource.
---
 lib/resource-0.6/abstract/Resource.gf   | 3 +++
 lib/resource-0.6/english/ResourceEng.gf | 2 +-
 lib/resource-0.6/finnish/ResourceFin.gf | 2 +-
 lib/resource-0.6/french/ResourceFre.gf  | 2 +-
 lib/resource-0.6/german/ResourceGer.gf  | 2 +-
 lib/resource-0.6/italian/ResourceIta.gf | 2 +-
 lib/resource-0.6/russian/ResourceRus.gf | 3 ++-
 lib/resource-0.6/swedish/ResourceSwe.gf | 2 +-
 8 files changed, 11 insertions(+), 7 deletions(-)
 create mode 100644 lib/resource-0.6/abstract/Resource.gf

diff --git a/lib/resource-0.6/abstract/Resource.gf b/lib/resource-0.6/abstract/Resource.gf
new file mode 100644
index 000000000..ad8e06cc6
--- /dev/null
+++ b/lib/resource-0.6/abstract/Resource.gf
@@ -0,0 +1,3 @@
+--# -path=.:../../prelude
+
+interface Resource = reuse Structural ;
diff --git a/lib/resource-0.6/english/ResourceEng.gf b/lib/resource-0.6/english/ResourceEng.gf
index 452b36780..edbac6b5e 100644
--- a/lib/resource-0.6/english/ResourceEng.gf
+++ b/lib/resource-0.6/english/ResourceEng.gf
@@ -1,3 +1,3 @@
 --# -path=.:../abstract:../../prelude
 
-resource ResourceEng = reuse StructuralEng ;
+instance ResourceEng of Resource = reuse StructuralEng ;
diff --git a/lib/resource-0.6/finnish/ResourceFin.gf b/lib/resource-0.6/finnish/ResourceFin.gf
index 9a7e75421..499e1b3fc 100644
--- a/lib/resource-0.6/finnish/ResourceFin.gf
+++ b/lib/resource-0.6/finnish/ResourceFin.gf
@@ -1,3 +1,3 @@
 --# -path=.:../abstract:../../prelude
 
-resource ResourceFin = reuse StructuralFin ;
+instance ResourceFin of Resource = reuse StructuralFin ;
diff --git a/lib/resource-0.6/french/ResourceFre.gf b/lib/resource-0.6/french/ResourceFre.gf
index 46b1f92f2..21a3b0bf8 100644
--- a/lib/resource-0.6/french/ResourceFre.gf
+++ b/lib/resource-0.6/french/ResourceFre.gf
@@ -1,3 +1,3 @@
 --# -path=.:../romance:../abstract:../../prelude
 
-resource ResourceFre = reuse StructuralFre ;
+instance ResourceFre of Resource = reuse StructuralFre ;
diff --git a/lib/resource-0.6/german/ResourceGer.gf b/lib/resource-0.6/german/ResourceGer.gf
index 6f9163e67..508f51433 100644
--- a/lib/resource-0.6/german/ResourceGer.gf
+++ b/lib/resource-0.6/german/ResourceGer.gf
@@ -1,3 +1,3 @@
 --# -path=.:../abstract:../../prelude
 
-resource ResourceGer = reuse StructuralGer ;
+instance ResourceGer of Resource = reuse StructuralGer ;
diff --git a/lib/resource-0.6/italian/ResourceIta.gf b/lib/resource-0.6/italian/ResourceIta.gf
index 2ce3010ac..24b3c15f9 100644
--- a/lib/resource-0.6/italian/ResourceIta.gf
+++ b/lib/resource-0.6/italian/ResourceIta.gf
@@ -1,3 +1,3 @@
 --# -path=.:../romance:../abstract:../../prelude
 
-resource ResourceIta = reuse StructuralIta ;
+instance ResourceIta of Resource = reuse StructuralIta ;
diff --git a/lib/resource-0.6/russian/ResourceRus.gf b/lib/resource-0.6/russian/ResourceRus.gf
index 55d2dd57f..e319f6e0f 100644
--- a/lib/resource-0.6/russian/ResourceRus.gf
+++ b/lib/resource-0.6/russian/ResourceRus.gf
@@ -1,2 +1,3 @@
 --# -path=.:../abstract:../../prelude
-resource ResourceRus = reuse StructuralRus ;
+
+instance ResourceRus of Resource = reuse StructuralRus ;
diff --git a/lib/resource-0.6/swedish/ResourceSwe.gf b/lib/resource-0.6/swedish/ResourceSwe.gf
index cc9446fcf..e9c0a028f 100644
--- a/lib/resource-0.6/swedish/ResourceSwe.gf
+++ b/lib/resource-0.6/swedish/ResourceSwe.gf
@@ -1,3 +1,3 @@
 --# -path=.:../abstract:../../prelude
 
-resource ResourceSwe = reuse StructuralSwe ;
+instance ResourceSwe of Resource = reuse StructuralSwe ;