From fd2f5a94d6ad595e8bed354eca168a82b882e8b4 Mon Sep 17 00:00:00 2001
From: Alejandro Sior <aho@sior.be>
Date: Sat, 18 Jun 2022 14:43:46 +0200
Subject: gptman: change the way of how args are passed to subcommands

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

(limited to 'volume/volume.ha')

diff --git a/volume/volume.ha b/volume/volume.ha
new file mode 100644
index 0000000..d3bae12
--- /dev/null
+++ b/volume/volume.ha
@@ -0,0 +1,26 @@
+use fmt;
+use fs;
+use io;
+use os;
+
+export fn mkvol(vol: str) io::file = {
+	const vol = 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], os::args[1]);
+	};
+
+	return vol;
+};
+
+export fn openvol(vol: str) io::file = {
+	const vol = match (os::open(vol, fs::flags::RDWR)) {
+	case let v: io::file =>
+		yield v;
+	case =>
+		fmt::fatalf("{}: cannot open file {}", os::args[0], os::args[1]);
+	};
+
+	return vol;
+};
-- 
cgit v1.2.3