+ set_environment(service->name, key, NSSM_REG_ENV, &service->env, &service->envlen);\r
+ /* Environment variables to add to existing rather than replace - may fail. */\r
+ set_environment(service->name, key, NSSM_REG_ENV_EXTRA, &service->env_extra, &service->env_extralen);\r
+\r
+ if (service->env_extra) {\r
+ /* Append these to any other environment variables set. */\r
+ if (service->env) {\r
+ /* Append extra variables to configured variables. */\r
+ unsigned long envlen = service->envlen + service->env_extralen - 1;\r
+ char *env = (char *) HeapAlloc(GetProcessHeap(), 0, envlen);\r
+ if (env) {\r
+ memmove(env, service->env, service->envlen - 1);\r
+ memmove(env + service->envlen - 1, service->env_extra, service->env_extralen);\r
+\r
+ HeapFree(GetProcessHeap(), 0, service->env);\r
+ service->env = env;\r
+ service->envlen = envlen;\r
+ }\r
+ else log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, "environment", "get_parameters()", 0);\r
+ }\r
+ else {\r
+ /* Append extra variables to our environment. */\r
+ char *env, *s;\r
+ size_t envlen, len;\r
+\r
+ env = service->env_extra;\r
+ len = 0;\r
+ while (*env) {\r
+ envlen = strlen(env) + 1;\r
+ for (s = env; *s && *s != '='; s++);\r
+ if (*s == '=') *s++ = '\0';\r
+ if (! SetEnvironmentVariable(env, s)) log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_SETENVIRONMENTVARIABLE_FAILED, env, s, error_string(GetLastError()));\r
+ env += envlen;\r
+ }\r
+ }\r
+ }\r