From 86feda786f115cb4468957f00b8968b986ed7c54 Mon Sep 17 00:00:00 2001
From: peter <peter@pmikkelsen.com>
Date: Thu, 20 Aug 2026 20:54:43 +0000
Subject: Get full coverage of aplwc-repl.

This required wrapping malloc so that it can fail under our control.

FossilOrigin-Name: a27ccb5f02994393a518419bae15fd26ff0016c734d96350ae2137a1d3c0937c
---
 src/bin/util.c | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/bin/util.c

(limited to 'src/bin/util.c')

diff --git a/src/bin/util.c b/src/bin/util.c
new file mode 100644
index 0000000..c8218fd
--- /dev/null
+++ b/src/bin/util.c
@@ -0,0 +1,17 @@
+#include "aplwc_repl.h"
+
+unsigned long
+getenv_ulong(const char *name, unsigned long def)
+{
+	unsigned long ret, parsed;
+	char *env, *p;
+
+	ret = def;
+	env = getenv(name);
+	if((env != NULL) && (strlen(env) > 0)){
+		parsed = strtoul(env, &p, 10);
+		if((*p) == 0)
+			ret = parsed;
+	}
+	return ret;
+}
-- 
cgit v1.2.3