From f42a480cbe487fc5fb9b3772990e80926201f6e4 Mon Sep 17 00:00:00 2001
From: Alejandro Sior <aho@sior.be>
Date: Tue, 21 Jun 2022 15:38:48 +0200
Subject: gptman: reorganize commands in a cmd module

---
 cmd/util.ha | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 cmd/util.ha

(limited to 'cmd/util.ha')

diff --git a/cmd/util.ha b/cmd/util.ha
new file mode 100644
index 0000000..832a96f
--- /dev/null
+++ b/cmd/util.ha
@@ -0,0 +1,37 @@
+use fmt;
+use fs;
+use io;
+use os;
+
+use gpt;
+
+export fn mkvol(vol: str) io::file = {
+	return match (os::create(vol, 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], vol);
+	};
+};
+
+export fn openvol(vol: str) io::file = {
+	return match (os::open(vol, fs::flags::RDWR)) {
+	case let v: io::file =>
+		yield v;
+	case =>
+		fmt::fatalf("{}: cannot open file {}", os::args[0], vol);
+	};
+};
+
+export fn opengpt(vol: str) *gpt::gpt = {
+	const vol = openvol(vol);
+	
+	return match (gpt::from(vol)) {
+	case let g: *gpt::gpt =>
+		yield g;
+	case io::error =>
+		fmt::fatalf("{}: could not properly read disk {}", os::args[0], os::args[1]);
+	case =>
+		fmt::fatalf("{}: no valid gpt in disk", os::args[0]);
+	};
+};
-- 
cgit v1.2.3