From 200a70765a503fc94b546e5a52fdd90a59eee3b3 Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Wed, 2 Apr 2025 06:02:35 +0000
Subject:  Add sagetexecname() and all the necessary infrastructure

Signed-off-by: Laurent Bercot <ska@appnovation.com>
---
 src/sysdeps/trykernprocpathname.c | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/sysdeps/trykernprocpathname.c

(limited to 'src/sysdeps/trykernprocpathname.c')

diff --git a/src/sysdeps/trykernprocpathname.c b/src/sysdeps/trykernprocpathname.c
new file mode 100644
index 0000000..b8e2867
--- /dev/null
+++ b/src/sysdeps/trykernprocpathname.c
@@ -0,0 +1,18 @@
+/* ISC license. */
+
+#undef _POSIX_C_SOURCE
+#undef _XOPEN_SOURCE
+
+#include <sys/types.h>
+#ifdef __NetBSD__
+#include <sys/param.h>
+#endif
+#include <sys/sysctl.h>
+
+int main (void)
+{
+  int mib[4] = { CTL_KERN, KERN_PROC, KERN_PROC_PATHNAME, -1 } ;
+  char buf[1024] ;
+  size_t len = sizeof(buf) ;
+  return sysctl(mib, 4, buf, &len, 0, 0) >= 0 ;
+}
-- 
cgit v1.3.1