From 5977e472ae122bd8135b7428d9093652d51a2cba Mon Sep 17 00:00:00 2001
From: Emil Williams
Date: Fri, 20 Feb 2026 23:14:51 +0000
Subject: per notes

---
 chad/experimental/program_directory.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 chad/experimental/program_directory.c

(limited to 'chad/experimental/program_directory.c')

diff --git a/chad/experimental/program_directory.c b/chad/experimental/program_directory.c
new file mode 100644
index 0000000..9cf4589
--- /dev/null
+++ b/chad/experimental/program_directory.c
@@ -0,0 +1,13 @@
+#include <limits.h>
+#include <stdlib.h>
+#include <string.h>
+#include <unistd.h>
+#include <errno.h>
+#include <chad/experimental/program_directory.h>
+int program_directory(char * filename) {
+  char path[PATH_MAX], * terminator;
+  if (!realpath(filename, path)
+  ||  !(terminator = strrchr(path, '/'))) { return -1; }
+  *terminator = '\0';
+  return chdir(path);
+}
-- 
cgit v1.2.3