summaryrefslogtreecommitdiff
path: root/cmd/create/create.ha
blob: 124d86e5d7736b75869ba90f053ff6e55d03a7d5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
use fmt;
use fs;
use getopt;
use io;
use os;
use strconv;

use gpt;
use cmd;

export fn create(vol: str, args: []str) void = {
	// XXX this is a stub

	const c = getopt::parse(args,
		"create a volume",
		('f', "file", "specify another partition file to fit"),
		('l', "length", "specify another length margin")
	);
	defer getopt::finish(&c);
	
	let length = 0z;

	for (let i = 0z; i < len(c.opts); i += 1) {
		const opt = c.opts[i];
		switch (opt.0) {
		case 'l' =>
			length += (strconv::stoi(opt.1)! / 512 + 1): size;
		case 'f' =>
			const stat = os::stat(opt.1)!;
			length += stat.sz / 512 + 1;
		};
	};

	const vol = cmd::mkvol(vol);
	const vol = gpt::create(vol, length);
	defer {
		gpt::chksums(vol);
		gpt::commit(vol)!;
		gpt::finish(vol);
	};
};