summaryrefslogtreecommitdiff
path: root/cmd/mkbackup/mkbackup.ha
blob: 12093b5f4bfc3358abcde8ae91dd26f52dada8a6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
use fmt;
use io;

use cmd;
use gpt;

export fn mkbackup(vol: str, args: []str) void = {
	const vol = cmd::openvol(vol);
	const vol = match(gpt::from(vol)) {
	case let g: *gpt::gpt =>
		yield g;
	case gpt::nogpt =>
		fmt::fatalf("{}: disk does not have valid gpt", args[0]);
	case =>
		fmt::fatalf("{}: could not access volume", args[0]);
	};
	defer {
		gpt::commit(vol)!;	
		gpt::finish(vol);
	};

	gpt::mkbackup(vol);
};