20060303a

1 files changed, 20 insertions, 0 deletions

diff --git a/appl/collab/servers/memfssrv.b b/appl/collab/servers/memfssrv.b
new file mode 100644
index 00000000..8c44cd5d
--- /dev/null
+++ b/appl/collab/servers/memfssrv.b
@@ -0,0 +1,20 @@
+implement Service;
+
+include "sys.m";
+include "../service.m";
+include "memfs.m";
+
+init(nil : list of string) : (string, string, ref Sys->FD)
+{
+	sys := load Sys Sys->PATH;
+	memfs := load MemFS MemFS->PATH;
+	if (memfs == nil) {
+		err := sys->sprint("cannot load %s: %r", MemFS->PATH);
+		return (err, nil, nil);
+	}
+	err := memfs->init();
+	if (err != nil)
+		return (err, nil, nil);
+	fd := memfs->newfs(1024 * 512);
+	return (nil, "/", fd);
+}