cleanup: move some general-purpose functions to deft-shared module

sources/library.dylan

@@ -49,11 +49,9 @@ define module deft-shared
   export
     *debug?*,
     *verbose?*,
-    debug,
-    note,
-    verbose,
-    trace,
-    warn;
+    debug, note, verbose, trace, warn,
+    file-content,
+    load-json-file;
 end module;
 
 define module pacman

sources/shared.dylan

@@ -40,3 +40,26 @@ end;
 define inline function warn (fmt, #rest args) => ()
   apply(note, concat("WARNING: ", fmt), args);
 end;
+
+define function load-json-file (file :: <file-locator>) => (config :: <table>)
+  fs/with-open-file(stream = file, if-does-not-exist: #f)
+    let object = parse-json(stream, strict?: #f, table-class: <istring-table>);
+    if (~instance?(object, <table>))
+     error("Invalid JSON file %s, must contain at least {}", file);
+    end;
+    object
+  end
+end function;
+
+// Read the full contents of a file and return it as a string.  If the file
+// doesn't exist return #f. (I thought if-does-not-exist: #f was supposed to
+// accomplish this without the need for block/exception.)
+define function file-content (path :: <locator>) => (text :: false-or(<string>))
+  block ()
+    fs/with-open-file(stream = path, if-does-not-exist: #"signal")
+      read-to-end(stream)
+    end
+  exception (fs/<file-does-not-exist-error>)
+    #f
+  end
+end function;

sources/workspaces/registry.dylan

@@ -39,19 +39,6 @@ define function write-registry-file
   end
 end function;
 
-// Read the full contents of a file and return it as a string.  If the file
-// doesn't exist return #f. (I thought if-does-not-exist: #f was supposed to
-// accomplish this without the need for block/exception.)
-define function file-content (path :: <locator>) => (text :: false-or(<string>))
-  block ()
-    fs/with-open-file(stream = path, if-does-not-exist: #"signal")
-      read-to-end(stream)
-    end
-  exception (fs/<file-does-not-exist-error>)
-    #f
-  end
-end function;
-
 // Create/update a single registry directory having an entry for each library
 // in each active package and all transitive dependencies.  This traverses
 // package directories to find .lid files. Note that it assumes that .lid files

sources/workspaces/workspaces.dylan

@@ -193,16 +193,6 @@ define function load-workspace-config
     := element(json, $default-library-key, default: #f) | find-default-library();
 end function;
 
-define function load-json-file (file :: <file-locator>) => (config :: <table>)
-  fs/with-open-file(stream = file, if-does-not-exist: #f)
-    let object = parse-json(stream, strict?: #f, table-class: <istring-table>);
-    if (~instance?(object, <table>))
-      workspace-error("Invalid JSON file %s, must contain at least {}", file);
-    end;
-    object
-  end
-end function;
-
 // Find the workspace directory. The nearest directory containing
 // workspace.json always takes precedence. Otherwise the nearest directory
 // containing dylan-package.json.