summaryrefslogtreecommitdiff
path: root/appl/collab/servers/memfssrv.b
blob: 8c44cd5d726be7c6f89b09f3cc5fdd16e0f5b11f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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);
}