From 89173069e85416539b1256ed1ae1c77e89550ae6 Mon Sep 17 00:00:00 2001
From: Julian Hurst <ark@mansus.space>
Date: Sun, 10 Mar 2024 02:35:08 +0100
Subject: Allow retrieving in memory response struct, and cleanup

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

(limited to 'cmd')

diff --git a/cmd/main.ha b/cmd/main.ha
new file mode 100644
index 0000000..95d1cad
--- /dev/null
+++ b/cmd/main.ha
@@ -0,0 +1,25 @@
+use fmt;
+use os;
+use internal::curl;
+use memio;
+use io;
+
+export fn main() void = {
+	if (len(os::args) != 2) {
+		fmt::fatalf("USAGE: {} <url>", os::args[0]);
+	};
+	let resp = curl::newresponse();
+	defer curl::closeresponse(resp)!;
+	match (curl::get(os::args[1], &resp)) {
+	case void =>
+		yield;
+	case let err: curl::setopterr =>
+		fmt::fatalf("setopt returned {} instead of 0", err: int);
+	case let err: curl::performerr =>
+		fmt::fatalf("perform returned {} instead of 0", err: int);
+	case let err: curl::getinfoerr =>
+		fmt::fatalf("getinfo returned {} instead of 0", err: int);
+	};
+	fmt::print(memio::string(&resp.data)!)!;
+	fmt::printfln("status: {}, size: {}", resp.status, resp.sz)!;
+};
-- 
cgit v1.2.3