Merge #9686 'win/Lua: monkey-patch os.getenv()'

fixes #9681

src/nvim/lua/executor.c

@@ -24,6 +24,10 @@
 #include "nvim/undo.h"
 #include "nvim/ascii.h"
 
+#ifdef WIN32
+#include "nvim/os/os.h"
+#endif
+
 #include "nvim/lua/executor.h"
 #include "nvim/lua/converter.h"
 
@@ -118,6 +122,14 @@ static int nlua_state_init(lua_State *const lstate) FUNC_ATTR_NONNULL_ALL
   lua_setfield(lstate, -2, "debug");
   lua_pop(lstate, 1);
 
+#ifdef WIN32
+  // os.getenv
+  lua_getglobal(lstate, "os");
+  lua_pushcfunction(lstate, &nlua_getenv);
+  lua_setfield(lstate, -2, "getenv");
+  lua_pop(lstate, 1);
+#endif
+
   // vim
   if (luaL_dostring(lstate, (char *)&vim_module[0])) {
     nlua_error(lstate, _("E5106: Error while creating vim module: %.*s"));
@@ -297,7 +309,7 @@ nlua_print_error:
   return 0;
 }
 
-/// debug.debug implementation: interaction with user while debugging
+/// debug.debug: interaction with user while debugging.
 ///
 /// @param  lstate  Lua interpreter state.
 int nlua_debug(lua_State *lstate)
@@ -337,6 +349,19 @@ int nlua_debug(lua_State *lstate)
   return 0;
 }
 
+#ifdef WIN32
+/// os.getenv: override os.getenv to maintain coherency. #9681
+///
+/// uv_os_setenv uses SetEnvironmentVariableW which does not update _environ.
+///
+/// @param  lstate  Lua interpreter state.
+static int nlua_getenv(lua_State *lstate)
+{
+  lua_pushstring(lstate, os_getenv(luaL_checkstring(lstate, 1)));
+  return 1;
+}
+#endif
+
 /// Evaluate lua string
 ///
 /// Used for luaeval().

src/nvim/os/env.c

@@ -151,25 +151,36 @@ int os_unsetenv(const char *name)
 char *os_getenvname_at_index(size_t index)
 {
 #ifdef _WIN32
-  // Check if index is inside the environ array and is not the last element.
+  wchar_t *env = GetEnvironmentStringsW();
-  for (size_t i = 0; i <= index; i++) {
+  if (!env) {
-    if (_wenviron[i] == NULL) {
-      return NULL;
-    }
-  }
-  wchar_t *utf16_str = _wenviron[index];
-  char *utf8_str;
-  int conversion_result = utf16_to_utf8(utf16_str, &utf8_str);
-  if (conversion_result != 0) {
-    EMSG2("utf16_to_utf8 failed: %d", conversion_result);
     return NULL;
   }
-  size_t namesize = 0;
+  char *name = NULL;
-  while (utf8_str[namesize] != '=' && utf8_str[namesize] != NUL) {
+  size_t current_index = 0;
-    namesize++;
+  // GetEnvironmentStringsW() result has this format:
+  //    var1=value1\0var2=value2\0...varN=valueN\0\0
+  for (wchar_t *it = env; *it != L'\0' || *(it + 1) != L'\0'; it++) {
+    if (index == current_index) {
+      char *utf8_str;
+      int conversion_result = utf16_to_utf8(it, &utf8_str);
+      if (conversion_result != 0) {
+        EMSG2("utf16_to_utf8 failed: %d", conversion_result);
+        break;
+      }
+      size_t namesize = 0;
+      while (utf8_str[namesize] != '=' && utf8_str[namesize] != NUL) {
+        namesize++;
+      }
+      name = (char *)vim_strnsave((char_u *)utf8_str, namesize);
+      xfree(utf8_str);
+      break;
+    }
+    if (*it == L'\0') {
+      current_index++;
+    }
   }
-  char *name = (char *)vim_strnsave((char_u *)utf8_str, namesize);
+
-  xfree(utf8_str);
+  FreeEnvironmentStringsW(env);
   return name;
 #else
 # if defined(HAVE__NSGETENVIRON)

test/functional/lua/overrides_spec.lua

@@ -300,3 +300,19 @@ describe('package.path/package.cpath', function()
     eq(new_paths_str, eval_lua('package.path'):sub(1, #new_paths_str))
   end)
 end)
+
+describe('os.getenv', function()
+  it('returns nothing for undefined env var', function()
+    eq(NIL, funcs.luaeval('os.getenv("XTEST_1")'))
+  end)
+  it('returns env var set by the parent process', function()
+    local value = 'foo'
+    clear({env = {['XTEST_1']=value}})
+    eq(value, funcs.luaeval('os.getenv("XTEST_1")'))
+  end)
+  it('returns env var set by let', function()
+    local value = 'foo'
+    meths.command('let $XTEST_1 = "'..value..'"')
+    eq(value, funcs.luaeval('os.getenv("XTEST_1")'))
+  end)
+end)

test/functional/ui/wildmode_spec.lua

@@ -29,8 +29,7 @@ describe("'wildmenu'", function()
   end
 
   it(':sign <tab> shows wildmenu completions', function()
-    command('set wildmode=full')
+    command('set wildmenu wildmode=full')
-    command('set wildmenu')
     feed(':sign <tab>')
     screen:expect([[
                                |
@@ -201,14 +200,28 @@ describe('command line completion', function()
     ]])
   end)
 
+  it('completes env var names #9681', function()
+    clear()
+    screen:attach()
+    command('let $XTEST_1 = "foo" | let $XTEST_2 = "bar"')
+    command('set wildmenu wildmode=full')
+    feed(':!echo $XTEST_<tab>')
+    screen:expect([[
+                                              |
+      {1:~                                       }|
+      {1:~                                       }|
+      {2:XTEST_1}{3:  XTEST_2                        }|
+      :!echo $XTEST_1^                         |
+    ]])
+  end)
+
   it('completes (multibyte) env var names #9655', function()
     clear({env={
       ['XTEST_1AaあB']='foo',
       ['XTEST_2']='bar',
     }})
     screen:attach()
-    command('set wildmode=full')
+    command('set wildmenu wildmode=full')
-    command('set wildmenu')
     feed(':!echo $XTEST_<tab>')
     screen:expect([[
                                               |