return (str ? str : "Sun Jan 01 00:00:00 1970");
}
+#include <config.h>
#include <windows.h>
#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <ctype.h>
-#include "config.h"
#define getwd _getwd
#include "lisp.h"
#undef getwd
int getuid (); /* forward declaration */
-static char the_passwd_name[256];
-static char the_passwd_passwd[256];
-static char the_passwd_gecos[256];
-static char the_passwd_dir[256];
-static char the_passwd_shell[256];
+#define PASSWD_FIELD_SIZE 256
+
+static char the_passwd_name[PASSWD_FIELD_SIZE];
+static char the_passwd_passwd[PASSWD_FIELD_SIZE];
+static char the_passwd_gecos[PASSWD_FIELD_SIZE];
+static char the_passwd_dir[PASSWD_FIELD_SIZE];
+static char the_passwd_shell[PASSWD_FIELD_SIZE];
static struct passwd the_passwd =
{
struct passwd *
getpwuid (int uid)
{
- int size = 256;
+ int size = PASSWD_FIELD_SIZE;
if (!GetUserName (the_passwd.pw_name, &size))
return NULL;
char *
get_emacs_configuration (void)
{
- char *arch, *oem, *os;
+ char *arch, *oem, *os;
- /* Determine the processor type. */
- switch (get_processor_type ())
- {
- case PROCESSOR_INTEL_386:
- case PROCESSOR_INTEL_486:
- case PROCESSOR_INTEL_PENTIUM:
- arch = "i386";
- break;
- case PROCESSOR_INTEL_860:
- arch = "i860";
- break;
- case PROCESSOR_MIPS_R2000:
- case PROCESSOR_MIPS_R3000:
- case PROCESSOR_MIPS_R4000:
- arch = "mips";
- break;
- case PROCESSOR_ALPHA_21064:
- arch = "alpha";
- break;
- default:
- arch = "unknown";
- break;
- }
-
- /* Let oem be "*" until we figure out how to decode the OEM field. */
- oem = "*";
+ /* Determine the processor type. */
+ switch (get_processor_type ())
+ {
+
+#ifdef PROCESSOR_INTEL_386
+ case PROCESSOR_INTEL_386:
+ case PROCESSOR_INTEL_486:
+ case PROCESSOR_INTEL_PENTIUM:
+ arch = "i386";
+ break;
+#endif
+
+#ifdef PROCESSOR_INTEL_860
+ case PROCESSOR_INTEL_860:
+ arch = "i860";
+ break;
+#endif
+
+#ifdef PROCESSOR_MIPS_R2000
+ case PROCESSOR_MIPS_R2000:
+ case PROCESSOR_MIPS_R3000:
+ case PROCESSOR_MIPS_R4000:
+ arch = "mips";
+ break;
+#endif
+
+#ifdef PROCESSOR_ALPHA_21064
+ case PROCESSOR_ALPHA_21064:
+ arch = "alpha";
+ break;
+#endif
+
+ default:
+ arch = "unknown";
+ break;
+ }
+
+ /* Let oem be "*" until we figure out how to decode the OEM field. */
+ oem = "*";
#ifdef WINDOWS95
- os = "win";
+ os = "win";
#else
- os = "nt";
+ os = "nt";
#endif
- sprintf (configuration_buffer, "%s-%s-%s%d.%d", arch, oem, os,
- get_nt_major_version (), get_nt_minor_version ());
- return configuration_buffer;
+ sprintf (configuration_buffer, "%s-%s-%s%d.%d", arch, oem, os,
+ get_nt_major_version (), get_nt_minor_version ());
+ return configuration_buffer;
}
/* Conjure up inode and device numbers that will serve the purpose
stdout_save = GetStdHandle (STD_OUTPUT_HANDLE);
stderr_save = GetStdHandle (STD_ERROR_HANDLE);
+#ifndef HAVE_NTGUI
if (!DuplicateHandle (parent,
GetStdHandle (STD_INPUT_HANDLE),
parent,
FALSE,
DUPLICATE_SAME_ACCESS))
report_file_error ("Duplicating parent's error handle", Qnil);
+#endif /* !HAVE_NTGUI */
if (!SetStdHandle (STD_INPUT_HANDLE, (HANDLE) _get_osfhandle (in)))
report_file_error ("Changing stdin handle", Qnil);
HANDLE err_handle = handles[3];
int i;
+#ifndef HAVE_NTGUI
if (!SetStdHandle (STD_INPUT_HANDLE, stdin_save))
report_file_error ("Resetting input handle", Qnil);
if (!SetStdHandle (STD_ERROR_HANDLE, stderr_save))
report_file_error ("Resetting error handle", Qnil);
+#endif /* !HAVE_NTGUI */
if (out == err)
{
return np - startp;
}
+#define REG_ROOT "SOFTWARE\\GNU\\Emacs\\"
+
+LPBYTE
+nt_get_resource (key, lpdwtype)
+ char *key;
+ LPDWORD lpdwtype;
+{
+ LPBYTE lpvalue;
+ HKEY hrootkey = NULL;
+ DWORD cbData;
+ BOOL ok = FALSE;
+
+ /* Check both the current user and the local machine to see if
+ we have any resources. */
+
+ if (RegOpenKeyEx (HKEY_CURRENT_USER, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
+ {
+ lpvalue = NULL;
+
+ if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS
+ && (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL
+ && RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS)
+ {
+ return (lpvalue);
+ }
+
+ if (lpvalue) xfree (lpvalue);
+
+ RegCloseKey (hrootkey);
+ }
+
+ if (RegOpenKeyEx (HKEY_LOCAL_MACHINE, REG_ROOT, 0, KEY_READ, &hrootkey) == ERROR_SUCCESS)
+ {
+ lpvalue = NULL;
+
+ if (RegQueryValueEx (hrootkey, key, NULL, NULL, NULL, &cbData) == ERROR_SUCCESS &&
+ (lpvalue = (LPBYTE) xmalloc (cbData)) != NULL &&
+ RegQueryValueEx (hrootkey, key, NULL, lpdwtype, lpvalue, &cbData) == ERROR_SUCCESS)
+ {
+ return (lpvalue);
+ }
+
+ if (lpvalue) xfree (lpvalue);
+
+ RegCloseKey (hrootkey);
+ }
+
+ return (NULL);
+}
+
+void
+init_environment ()
+{
+ /* Open a console window to display messages during dumping. */
+ if (!initialized)
+ AllocConsole ();
+
+ /* Check for environment variables and use registry if they don't exist */
+ {
+ int i;
+ LPBYTE lpval;
+ DWORD dwType;
+
+ static char * env_vars[] =
+ {
+ "emacs_path",
+ "EMACSLOADPATH",
+ "SHELL",
+ "EMACSDATA",
+ "EMACSPATH",
+ "EMACSLOCKDIR",
+ "INFOPATH",
+ "EMACSDOC",
+ "TERM",
+ };
+
+ for (i = 0; i < (sizeof (env_vars) / sizeof (env_vars[0])); i++)
+ {
+ if (!getenv (env_vars[i]) &&
+ (lpval = nt_get_resource (env_vars[i], &dwType)) != NULL)
+ {
+ if (dwType == REG_EXPAND_SZ)
+ {
+ char buf1[500], buf2[500];
+
+ ExpandEnvironmentStrings ((LPSTR) lpval, buf1, 500);
+ _snprintf (buf2, 499, "%s=%s", env_vars[i], buf1);
+ putenv (strdup (buf2));
+ }
+ else if (dwType == REG_SZ)
+ {
+ char buf[500];
+
+ _snprintf (buf, 499, "%s=%s", env_vars[i], lpval);
+ putenv (strdup (buf));
+ }
+
+ xfree (lpval);
+ }
+ }
+ }
+}
+
#ifdef HAVE_TIMEVAL
#include <sys/timeb.h>
SID_NAME_USE User;
if (1)
- Vuser_real_name = build_string ("foo");
+ Vuser_real_login_name = build_string ("foo");
else if (!OpenProcessToken (GetCurrentProcess (), TOKEN_QUERY, &Token))
{
- Vuser_real_name = build_string ("unknown");
+ Vuser_real_login_name = build_string ("unknown");
}
else if (!GetTokenInformation (Token, TokenUser, (PVOID)b, 256,
&trash))
{
CloseHandle (Token);
- Vuser_real_name = build_string ("unknown");
+ Vuser_real_login_name = build_string ("unknown");
}
else if (!LookupAccountSid ((void *)0, (PSID)b, Name, &length, RefD,
&rlength, &User))
{
CloseHandle (Token);
- Vuser_real_name = build_string ("unknown");
+ Vuser_real_login_name = build_string ("unknown");
}
else
- Vuser_real_name = build_string (Name);
+ Vuser_real_login_name = build_string (Name);
}
#else /* not WINDOWSNT */
#endif /* not WINDOWSNT */