xemacs-beta: src/nt.c comparison

comparison src/nt.c @ 440:8de8e3f6228a r21-2-28

Import from CVS: tag r21-2-28

author	cvs
date	Mon, 13 Aug 2007 11:33:38 +0200
parents	080151679be2
children	abe6d1db359e

comparison

equal deleted inserted replaced

-:357dd071b03c
+:8de8e3f6228a
 #if 0
 extern Lisp_Object Vwin32_generate_fake_inodes;
 #endif
 extern Lisp_Object Vmswindows_get_true_file_attributes;
-extern char *get_home_directory(void);
+int nt_fake_unix_uid;
 static char startup_dir[ MAXPATHLEN ];
 /* Get the current working directory.  */
 char *
 the_passwd_shell,
 };
 uid_t
 getuid ()
 {
-return the_passwd.pw_uid;
+return nt_fake_unix_uid;
 }
 uid_t
 geteuid ()
 {
-/* I could imagine arguing for checking to see whether the user is
+return nt_fake_unix_uid;
-in the Administrators group and returning a UID of 0 for that
-case, but I don't know how wise that would be in the long run.  */
-return getuid ();
 }
 gid_t
 getgid ()
 {
 }
 struct passwd *
 getpwuid (uid_t uid)
 {
-if (uid == the_passwd.pw_uid)
+if (uid == nt_fake_unix_uid)
-return &the_passwd;
+{
-return NULL;
+the_passwd.pw_gid = the_passwd.pw_uid = uid;
+return &the_passwd;
+}
+else
+return NULL;
 }
 struct passwd *
 getpwnam (const char *name)
 {
 }
 void
 init_user_info ()
 {
+/* This code is pretty much of ad hoc nature. There is no unix-like
+UIDs under Windows NT. There is no concept of root user, because
+all security is ACL-based. Instead, let's use a simple variable,
+nt-fake-unix-uid, which would allow the user to have a uid of
+choice. --kkm, 02/03/2000 */
+#if 0
 /* Find the user's real name by opening the process token and
 looking up the name associated with the user-sid in that token.
 Use the relative portion of the identifier authority value from
 the user-sid as the user id value (same for group id using the
 strcpy (the_passwd.pw_name, "unknown");
 the_passwd.pw_uid = 123;
 the_passwd.pw_gid = 123;
 }
+if (token)
+CloseHandle (token);
+#else
+/* Obtain only logon id here, uid part is moved to getuid */
+char name[256];
+DWORD length = sizeof (name);
+if (GetUserName (name, &length))
+strcpy (the_passwd.pw_name, name);
+else
+strcpy (the_passwd.pw_name, "unknown");
+#endif
 /* Ensure HOME and SHELL are defined. */
 #if 0
 /*
 * With XEmacs, setting $HOME is deprecated.
 */
 putenv ((GetVersion () & 0x80000000) ? "SHELL=command" : "SHELL=cmd");
 /* Set dir and shell from environment variables. */
 strcpy (the_passwd.pw_dir, get_home_directory());
 strcpy (the_passwd.pw_shell, getenv ("SHELL"));
-if (token)
-CloseHandle (token);
 }
 /* Normalize filename by converting all path separators to
 the specified separator.  Also conditionally convert upper
 case path name components to lower case.  */
 return rename (temp, newname);
 }
 #endif /* 0 */
 static FILETIME utc_base_ft;
+static int init = 0;
+#if 0
 static long double utc_base;
-static int init = 0;
 time_t
 convert_time (FILETIME ft)
 {
 long double ret;
 ret = (long double) ft.dwHighDateTime * 4096 * 1024 * 1024 + ft.dwLowDateTime;
 ret -= utc_base;
 return (time_t) (ret * 1e-7);
 }
+#else
-#if 0
-/* in case we ever have need of this */
+static LARGE_INTEGER utc_base_li;
-void
-convert_from_time_t (time_t time, FILETIME * pft)
+time_t
-{
+convert_time (FILETIME uft)
-long double tmp;
+{
+time_t ret;
+#ifndef MAXLONGLONG
+SYSTEMTIME st;
+struct tm t;
+FILETIME ft;
+TIME_ZONE_INFORMATION tzi;
+DWORD tzid;
+#else
+LARGE_INTEGER lft;
+#endif
 if (!init)
 {
 /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */
 SYSTEMTIME st;
 st.wMinute = 0;
 st.wSecond = 0;
 st.wMilliseconds = 0;
 SystemTimeToFileTime (&st, &utc_base_ft);
+utc_base_li.LowPart = utc_base_ft.dwLowDateTime;
+utc_base_li.HighPart = utc_base_ft.dwHighDateTime;
+init = 1;
+}
+#ifdef MAXLONGLONG
+/* On a compiler that supports long integers, do it the easy way */
+lft.LowPart = uft.dwLowDateTime;
+lft.HighPart = uft.dwHighDateTime;
+ret = (time_t) ((lft.QuadPart - utc_base_li.QuadPart) / 10000000);
+#else
+/* Do it the hard way using mktime. */
+FileTimeToLocalFileTime(&uft, &ft);
+FileTimeToSystemTime (&ft, &st);
+tzid = GetTimeZoneInformation (&tzi);
+t.tm_year = st.wYear - 1900;
+t.tm_mon = st.wMonth - 1;
+t.tm_mday = st.wDay;
+t.tm_hour = st.wHour;
+t.tm_min = st.wMinute;
+t.tm_sec = st.wSecond;
+t.tm_isdst = (tzid == TIME_ZONE_ID_DAYLIGHT);
+/* st.wMilliseconds not applicable */
+ret = mktime(&t);
+if (ret == -1)
+{
+ret = 0;
+}
+#endif
+return ret;
+}
+#endif
+#if 0
+/* in case we ever have need of this */
+void
+convert_from_time_t (time_t time, FILETIME * pft)
+{
+long double tmp;
+if (!init)
+{
+/* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */
+SYSTEMTIME st;
+st.wYear = 1970;
+st.wMonth = 1;
+st.wDay = 1;
+st.wHour = 0;
+st.wMinute = 0;
+st.wSecond = 0;
+st.wMilliseconds = 0;
+SystemTimeToFileTime (&st, &utc_base_ft);
 utc_base = (long double) utc_base_ft.dwHighDateTime
 	* 4096 * 1024 * 1024 + utc_base_ft.dwLowDateTime;
 init = 1;
 }
 return hashval (p);
 }
 #endif
+/* stat has been fixed since MSVC 5.0.
+Oh, and do not encapsulater stat for non-MS compilers, too */
+/* #### popineau@ese-metz.fr says they still might be broken.
+Oh well... Let's add that `1 ||' condition.... --kkm */
+#if 1 || defined(_MSC_VER) && _MSC_VER < 1100
 /* Since stat is encapsulated on Windows NT, we need to encapsulate
 the equally broken fstat as well. */
-int
+int _cdecl
 fstat (int handle, struct stat *buffer)
 {
 int ret;
 BY_HANDLE_FILE_INFORMATION lpFileInfo;
 /* Initialize values */
 /* #### MSVC defines _ino_t to be short; other libc's might not.  */
 buf->st_ino = (unsigned short) (fake_inode ^ (fake_inode >> 16));
 /* consider files to belong to current user */
-buf->st_uid = the_passwd.pw_uid;
+buf->st_uid = buf->st_gid = nt_fake_unix_uid;
-buf->st_gid = the_passwd.pw_gid;
 /* volume_info is set indirectly by map_win32_filename */
 buf->st_dev = volume_info.serialnum;
 buf->st_rdev = volume_info.serialnum;
 buf->st_size = wfd.nFileSizeLow;
 /* Convert timestamps to Unix format. */
 buf->st_mtime = convert_time (wfd.ftLastWriteTime);
 buf->st_mode |= permission | (permission >> 3) | (permission >> 6);
 return 0;
 }
+#endif /* defined(_MSC_VER) && _MSC_VER < 1100 */
 /* From callproc.c  */
 extern Lisp_Object Vbinary_process_input;
 extern Lisp_Object Vbinary_process_output;
 UnmapViewOfFile (p_file->file_base);
 CloseHandle (p_file->file_mapping);
 CloseHandle (p_file->file);
 }
+void
+vars_of_nt (void)
+{
+DEFVAR_INT ("nt-fake-unix-uid", &nt_fake_unix_uid /*
+*Set uid returned by `user-uid' and `user-real-uid'.
+Under NT and 9x, there is no uids, and even no almighty user called root.
+By setting this variable, you can have any uid of choice. Default is 0.
+Changes to this variable take effect immediately.
+*/ );
+nt_fake_unix_uid = 0;
+}
 /* end of nt.c */

Mercurial > hg > xemacs-beta

comparison src/nt.c @ 440:8de8e3f6228a r21-2-28