From c6e5882d779bb69aadeec4490c3d78e4cc3e7e94 Mon Sep 17 00:00:00 2001
From: Anthony Carrico <acarrico@memebeam.org>
Date: Wed, 10 Mar 2004 18:41:29 +0000
Subject: [PATCH] Changed to new package system.

---
 scsh/file-mode/AUTHORS                      | 4 ++--
 scsh/file-mode/NEWS                         | 9 +++++++++
 scsh/file-mode/{interfaces.scm => load.scm} | 8 ++++++++
 scsh/file-mode/packages.scm                 | 7 -------
 scsh/file-mode/pkg-def.scm                  | 8 ++++++++
 5 files changed, 27 insertions(+), 9 deletions(-)
 create mode 100644 scsh/file-mode/NEWS
 rename scsh/file-mode/{interfaces.scm => load.scm} (53%)
 delete mode 100644 scsh/file-mode/packages.scm
 create mode 100644 scsh/file-mode/pkg-def.scm

diff --git a/scsh/file-mode/AUTHORS b/scsh/file-mode/AUTHORS
index 2ba5fe4..8fe88b0 100644
--- a/scsh/file-mode/AUTHORS
+++ b/scsh/file-mode/AUTHORS
@@ -1,2 +1,2 @@
-Richard Kelsey (port to sunterlib by Martin Gasbichler)
-
+Copyright (c) 2001 Richard Kelsey
+Copyright (c) 2003 Martin Gasbichler
diff --git a/scsh/file-mode/NEWS b/scsh/file-mode/NEWS
new file mode 100644
index 0000000..939bed6
--- /dev/null
+++ b/scsh/file-mode/NEWS
@@ -0,0 +1,9 @@
+version 0.1
+* New package system.
+
+version 0.0 2001-07-15
+* Upstream source is Richard Kelsey's code in Scheme 48 0.57.
+
+
+
+
diff --git a/scsh/file-mode/interfaces.scm b/scsh/file-mode/load.scm
similarity index 53%
rename from scsh/file-mode/interfaces.scm
rename to scsh/file-mode/load.scm
index 1e95a67..0a9a459 100644
--- a/scsh/file-mode/interfaces.scm
+++ b/scsh/file-mode/load.scm
@@ -4,3 +4,11 @@
 	  file-mode+ file-mode-
 	  file-mode=? file-mode<=? file-mode>=?
 	  file-mode->integer integer->file-mode))
+
+(define-structure file-modes file-modes-interface
+  (open scheme
+	define-record-types
+	signals
+	bitwise)
+  (for-syntax (open scheme bitwise))
+  (files file-mode))
diff --git a/scsh/file-mode/packages.scm b/scsh/file-mode/packages.scm
deleted file mode 100644
index 541c3c7..0000000
--- a/scsh/file-mode/packages.scm
+++ /dev/null
@@ -1,7 +0,0 @@
-(define-structure file-modes file-modes-interface
-  (open scheme
-	define-record-types
-	signals
-	bitwise)
-  (for-syntax (open scheme bitwise))
-  (files file-mode))
\ No newline at end of file
diff --git a/scsh/file-mode/pkg-def.scm b/scsh/file-mode/pkg-def.scm
new file mode 100644
index 0000000..3c4b556
--- /dev/null
+++ b/scsh/file-mode/pkg-def.scm
@@ -0,0 +1,8 @@
+(define-package "file-mode"
+  (0 1)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-file "NEWS" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "file-mode.scm" 'scheme))