summaryrefslogtreecommitdiff
path: root/main.ha
blob: 508bd0c47e741e09b3fec28ec93be4b84b36ca23 (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
use fmt;
use getopt;
use os;
use fs;
use io;

use mbr;
use gpt;

use convert;
use create;
use header;
use mkbackup;

export fn main() void = {
	if (len(os::args) < 3) {
		fmt::fatalf("{}: expected disk name", os::args[0]);
	};

	const volume = match(os::create(os::args[1], fs::mode::USER_RWX | fs::mode::GROUP_RX | fs::mode::OTHER_RX, fs::flags::RDWR)) {
	case let v: io::file =>
		yield v;
	case =>
		fmt::fatalf("{}: cannot open file {}", os::args[0], os::args[1]);
	};
	defer io::close(volume)!;

	switch (os::args[2]) {
	case "convert" => convert::convert(volume, os::args[2..]);
	case "create" => create::create(volume, os::args[2..]);
	case "header" => header::header(volume, os::args[2..]);
	case "mkbackup" => mkbackup::mkbackup(volume, os::args[2..]);
	case => fmt::fatalf("{}: no such command {}", os::args[0], os::args[2]);
	};
};