Merge from trunk.

Subversion-branch: /branches/raven-branch
Subversion-revision: 1579

1 files changed, 65 insertions, 0 deletions

diff --git a/wince/env.c b/wince/env.c
new file mode 100644
index 00000000..72af2212
--- /dev/null
+++ b/wince/env.c
@@ -0,0 +1,65 @@
+//
+// "Extension" implementation of getenv for Windows CE.
+//
+// I (Simon Howard) release this file to the public domain.
+//
+
+#include <stdlib.h>
+#include <string.h>
+
+#include <windows.h>
+#include <lmcons.h>
+#include <secext.h>
+#include <shlobj.h>
+
+#include "env.h"
+
+static void WCharToChar(wchar_t *src, char *dest, int buf_len)
+{
+    unsigned int len;
+
+    len = wcslen(src) + 1;
+
+    WideCharToMultiByte(CP_OEMCP, 0, src, len, dest, buf_len, NULL, NULL);
+}
+
+static void SetEnvironment(char *env_string, wchar_t *wvalue)
+{
+    char value[MAX_PATH + 10];
+    int env_len;
+
+    // Construct the string for putenv: NAME=value
+
+    env_len = strlen(env_string);
+    strcpy(value, env_string);
+
+    WCharToChar(wvalue, value + env_len, sizeof(value) - env_len);
+
+    // Set the environment variable:
+
+    putenv(value);
+}
+
+void PopulateEnvironment(void)
+{
+    wchar_t temp[MAX_PATH];
+    DWORD buf_len;
+
+    // Username:
+
+    buf_len = UNLEN;
+    GetUserNameExW(NameDisplay, temp, &buf_len);
+    SetEnvironment("USER=", temp);
+    SetEnvironment("USERNAME=", temp);
+
+    // Temp dir:
+
+    GetTempPathW(MAX_PATH, temp);
+    SetEnvironment("TEMP=", temp);
+
+    // Use My Documents dir as home:
+
+    SHGetSpecialFolderPath(NULL, temp, CSIDL_PERSONAL, 0);
+    SetEnvironment("HOME=", temp);
+}
+