#
# export current name space on a connection
#

implement Export;

include "sys.m";
	sys: Sys;
include "draw.m";

Export: module
{
	init: fn(nil: ref Draw->Context, argv: list of string);
};

usage()
{
	sys->fprint(stderr(), "Usage: export [-a] dir [connection]\n");
	raise "fail:usage";
}

init(nil: ref Draw->Context, argv: list of string)
{
	# usage: export dir [connection]
	sys = load Sys Sys->PATH;
	if(argv != nil)
		argv = tl argv;
	flag := Sys->EXPWAIT;
	for(; argv != nil && len hd argv && (hd argv)[0] == '-'; argv = tl argv)
		for(i := 1; i < len hd argv; i++)
			case (hd argv)[i] {
			'a' =>
				flag = Sys->EXPASYNC;
			* =>
				usage();
			}
	n := len argv;
	if (n < 1 || n > 2)
		usage();
	fd: ref Sys->FD;
	if (n == 2) {
		if ((fd = sys->open(hd tl argv, Sys->ORDWR)) == nil) {
			sys->fprint(stderr(), "export: can't open %s: %r\n", hd tl argv);
			raise "fail:open";
		}
	} else
		fd = sys->fildes(0);
	if (sys->export(fd, hd argv, flag) < 0) {
		sys->fprint(stderr(), "export: can't export: %r\n");
		raise "fail:export";
	}
}

stderr(): ref Sys->FD
{
	return sys->fildes(2);
}