From de8bd6233c62718c592694a2b8463e329567d85f Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 16 Oct 2020 06:36:41 -0700
Subject: env: move function to sysif.c

* lib.c (env_list): Static variable removed; now appears in
sysif.c
(env): Function removed; now in sysif.c.
(obj_init): Don't gc-protect env_list here any more.

* lib.h (env): Declaration removed.

* match.c: Must include "sysif.h" now for env.

* sysif.c (env_list): Static variable moved here.
(env): Function moved here.
(sysif_init): env_list gc-protected here.

* sysif.h (env): Declared.
---
 sysif.c | 38 ++++++++++++++++++++++++++++++++++++--
 1 file changed, 36 insertions(+), 2 deletions(-)

(limited to 'sysif.c')

diff --git a/sysif.c b/sysif.c
index f636d4f1..e51692db 100644
--- a/sysif.c
+++ b/sysif.c
@@ -148,6 +148,8 @@ static val at_exit_list;
 
 static val dirent_st;
 
+static val env_list;
+
 static val errno_wrap(val newval)
 {
   val self = lit("errno");
@@ -287,6 +289,39 @@ static val getppid_wrap(void)
 
 #endif
 
+val env(void)
+{
+  if (env_list) {
+    return env_list;
+  } else {
+    list_collect_decl (out, ptail);
+#if HAVE_ENVIRON
+    extern char **environ;
+    char **iter = environ;
+
+    for (; *iter != 0; iter++)
+      ptail = list_collect(ptail, string_utf8(*iter));
+
+    return env_list = out;
+#elif HAVE_GETENVIRONMENTSTRINGS
+    wchar_t *env = GetEnvironmentStringsW();
+    wchar_t *iter = env;
+
+    if (iter == 0)
+      oom();
+
+    for (; *iter; iter += wcslen(iter) + 1)
+      ptail = list_collect(ptail, string(iter));
+
+    FreeEnvironmentStringsW(env);
+
+    return env_list = out;
+#else
+    uw_throwf(error_s, lit("environment strings not available"), nao);
+#endif
+  }
+}
+
 static val env_hash(void)
 {
   val env_strings = env();
@@ -2354,8 +2389,7 @@ static val dirstat(val dirent, val dir_path, val stat_opt)
 
 void sysif_init(void)
 {
-  prot1(&at_exit_list);
-  prot1(&dirent_st);
+  protect(&at_exit_list, dirent_st, &env_list, convert(val *, 0));
 
   atexit(at_exit_handler);
 
-- 
cgit v1.2.3