From 6117a803ad717fd50003c0bd8fbe393db2dcac6b Mon Sep 17 00:00:00 2001
From: Alejandro Sior <aho@sior.be>
Date: Sat, 18 Jun 2022 13:54:25 +0200
Subject: add header command

---
 mkbackup/mkbackup.ha | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 mkbackup/mkbackup.ha

(limited to 'mkbackup')

diff --git a/mkbackup/mkbackup.ha b/mkbackup/mkbackup.ha
new file mode 100644
index 0000000..210e00a
--- /dev/null
+++ b/mkbackup/mkbackup.ha
@@ -0,0 +1,21 @@
+use fmt;
+use io;
+
+use gpt;
+
+export fn mkbackup(vol: io::file, args: []str) void = {
+	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);
+};
-- 
cgit v1.2.3