lib-src/ntlib.c

   1 /* Utility and Unix shadow routines for GNU Emacs support programs on NT.
   2    Copyright (C) 1994, 2001-2012  Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software: you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation, either version 3 of the License, or
   9 (at your option) any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  18
  19
  20    Geoff Voelker (voelker@cs.washington.edu)                         10-8-94
  21 */
  22
  23 #include <windows.h>
  24 #include <stdlib.h>
  25 #include <stdio.h>
  26 #include <time.h>
  27 #include <direct.h>
  28 #include <sys/types.h>
  29 #include <sys/stat.h>
  30 #include <errno.h>
  31 #include <ctype.h>
  32
  33 #include "ntlib.h"
  34
  35 #define MAXPATHLEN _MAX_PATH
  36
  37 /* Emulate sleep...we could have done this with a define, but that
  38    would necessitate including windows.h in the files that used it.
  39    This is much easier.  */
  40 void
  41 sleep (unsigned long seconds)
  42 {
  43   Sleep (seconds * 1000);
  44 }
  45
  46 /* Get the current working directory.  */
  47 char *
  48 getwd (char *dir)
  49 {
  50   if (GetCurrentDirectory (MAXPATHLEN, dir) > 0)
  51     return dir;
  52   return NULL;
  53 }
  54
  55 static HANDLE getppid_parent;
  56 static int    getppid_ppid;
  57
  58 int
  59 getppid (void)
  60 {
  61   char *ppid;
  62   DWORD result;
  63
  64   ppid = getenv ("EM_PARENT_PROCESS_ID");
  65   if (!ppid)
  66     {
  67       printf ("no pid.\n");
  68       return 0;
  69     }
  70   else
  71     {
  72       getppid_ppid = atoi (ppid);
  73     }
  74
  75   if (!getppid_parent)
  76     {
  77       getppid_parent = OpenProcess (SYNCHRONIZE, FALSE, atoi (ppid));
  78       if (!getppid_parent)
  79         {
  80           printf ("Failed to open handle to parent process: %d\n",
  81                  GetLastError ());
  82           exit (1);
  83         }
  84     }
  85
  86   result = WaitForSingleObject (getppid_parent, 0);
  87   switch (result)
  88     {
  89     case WAIT_TIMEOUT:
  90       /* The parent is still alive.  */
  91       return getppid_ppid;
  92     case WAIT_OBJECT_0:
  93       /* The parent is gone.  Return the pid of Unix init (1).  */
  94       return 1;
  95     case WAIT_FAILED:
  96     default:
  97       printf ("Checking parent status failed: %d\n", GetLastError ());
  98       exit (1);
  99     }
 100 }
 101
 102 char *
 103 getlogin (void)
 104 {
 105   static char user_name[256];
 106   DWORD  length = sizeof (user_name);
 107
 108   if (GetUserName (user_name, &length))
 109     return user_name;
 110   return NULL;
 111 }
 112
 113 char *
 114 cuserid (char * s)
 115 {
 116   char * name = getlogin ();
 117   if (s)
 118     return strcpy (s, name ? name : "");
 119   return name;
 120 }
 121
 122 unsigned
 123 getuid (void)
 124 {
 125   return 0;
 126 }
 127
 128 unsigned
 129 getgid (void)
 130 {
 131   return 0;
 132 }
 133
 134 unsigned
 135 getegid (void)
 136 {
 137   return 0;
 138 }
 139
 140 int
 141 setuid (unsigned uid)
 142 {
 143   return 0;
 144 }
 145
 146 int
 147 setregid (unsigned rgid, unsigned gid)
 148 {
 149   return 0;
 150 }
 151
 152 struct passwd *
 153 getpwuid (unsigned uid)
 154 {
 155   return NULL;
 156 }
 157
 158 char *
 159 getpass (const char * prompt)
 160 {
 161   static char input[256];
 162   HANDLE in;
 163   HANDLE err;
 164   DWORD  count;
 165
 166   in = GetStdHandle (STD_INPUT_HANDLE);
 167   err = GetStdHandle (STD_ERROR_HANDLE);
 168
 169   if (in == INVALID_HANDLE_VALUE || err == INVALID_HANDLE_VALUE)
 170     return NULL;
 171
 172   if (WriteFile (err, prompt, strlen (prompt), &count, NULL))
 173     {
 174       int istty = (GetFileType (in) == FILE_TYPE_CHAR);
 175       DWORD old_flags;
 176       int rc;
 177
 178       if (istty)
 179         {
 180           if (GetConsoleMode (in, &old_flags))
 181             SetConsoleMode (in, ENABLE_LINE_INPUT | ENABLE_PROCESSED_INPUT);
 182           else
 183             istty = 0;
 184         }
 185       rc = ReadFile (in, input, sizeof (input), &count, NULL);
 186       if (count >= 2 && input[count - 2] == '\r')
 187         input[count - 2] = '\0';
 188       else
 189         {
 190           char buf[256];
 191           while (ReadFile (in, buf, sizeof (buf), &count, NULL) > 0)
 192             if (count >= 2 && buf[count - 2] == '\r')
 193               break;
 194         }
 195       WriteFile (err, "\r\n", 2, &count, NULL);
 196       if (istty)
 197         SetConsoleMode (in, old_flags);
 198       if (rc)
 199         return input;
 200     }
 201
 202   return NULL;
 203 }
 204
 205 int
 206 fchown (int fd, unsigned uid, unsigned gid)
 207 {
 208   return 0;
 209 }
 210
 211 /* Place a wrapper around the MSVC version of ctime.  It returns NULL
 212    on network directories, so we handle that case here.
 213    (Ulrich Leodolter, 1/11/95).  */
 214 char *
 215 sys_ctime (const time_t *t)
 216 {
 217   char *str = (char *) ctime (t);
 218   return (str ? str : "Sun Jan 01 00:00:00 1970");
 219 }
 220
 221 FILE *
 222 sys_fopen (const char * path, const char * mode)
 223 {
 224   return fopen (path, mode);
 225 }
 226
 227 int
 228 sys_chdir (const char * path)
 229 {
 230   return _chdir (path);
 231 }
 232
 233 static FILETIME utc_base_ft;
 234 static long double utc_base;
 235 static int init = 0;
 236
 237 static time_t
 238 convert_time (FILETIME ft)
 239 {
 240   long double ret;
 241
 242   if (CompareFileTime (&ft, &utc_base_ft) < 0)
 243     return 0;
 244
 245   ret = (long double) ft.dwHighDateTime
 246     * 4096.0L * 1024.0L * 1024.0L + ft.dwLowDateTime;
 247   ret -= utc_base;
 248   return (time_t) (ret * 1e-7L);
 249 }
 250
 251 static int
 252 is_exec (const char * name)
 253 {
 254   char * p = strrchr (name, '.');
 255   return
 256     (p != NULL
 257      && (stricmp (p, ".exe") == 0 ||
 258          stricmp (p, ".com") == 0 ||
 259          stricmp (p, ".bat") == 0 ||
 260          stricmp (p, ".cmd") == 0));
 261 }
 262
 263 #define IS_DIRECTORY_SEP(x) ((x) == '/' || (x) == '\\')
 264
 265 /* We need this because nt/inc/sys/stat.h defines struct stat that is
 266    incompatible with the MS run-time libraries.  */
 267 int
 268 stat (const char * path, struct stat * buf)
 269 {
 270   WIN32_FIND_DATA wfd;
 271   HANDLE fh;
 272   int permission;
 273   int len;
 274   int rootdir = FALSE;
 275   char *name = alloca (FILENAME_MAX);
 276
 277   if (!init)
 278     {
 279       /* Determine the delta between 1-Jan-1601 and 1-Jan-1970. */
 280       SYSTEMTIME st;
 281
 282       st.wYear = 1970;
 283       st.wMonth = 1;
 284       st.wDay = 1;
 285       st.wHour = 0;
 286       st.wMinute = 0;
 287       st.wSecond = 0;
 288       st.wMilliseconds = 0;
 289
 290       SystemTimeToFileTime (&st, &utc_base_ft);
 291       utc_base = (long double) utc_base_ft.dwHighDateTime
 292         * 4096.0L * 1024.0L * 1024.0L + utc_base_ft.dwLowDateTime;
 293       init = 1;
 294     }
 295
 296   if (path == NULL || buf == NULL || *path == '\0')
 297     {
 298       errno = EFAULT;
 299       return -1;
 300     }
 301   if (_mbspbrk (path, "*?|<>\""))
 302     {
 303       errno = ENOENT;
 304       return -1;
 305     }
 306
 307   strcpy (name, path);
 308   /* Remove trailing directory separator, unless name is the root
 309      directory of a drive in which case ensure there is a trailing
 310      separator. */
 311   len = strlen (name);
 312   rootdir = IS_DIRECTORY_SEP (name[0])
 313     || (len == 3 && name[1] == ':' && IS_DIRECTORY_SEP (name[2]));
 314   if (rootdir)
 315     {
 316       if (GetDriveType (name) < 2)
 317         {
 318           errno = ENOENT;
 319           return -1;
 320         }
 321       memset (&wfd, 0, sizeof (wfd));
 322       wfd.dwFileAttributes = FILE_ATTRIBUTE_DIRECTORY;
 323       wfd.ftCreationTime = utc_base_ft;
 324       wfd.ftLastAccessTime = utc_base_ft;
 325       wfd.ftLastWriteTime = utc_base_ft;
 326       strcpy (wfd.cFileName, name);
 327     }
 328   else
 329     {
 330       if (IS_DIRECTORY_SEP (name[len-1]))
 331         name[len - 1] = 0;
 332
 333       fh = FindFirstFile (name, &wfd);
 334       if (fh == INVALID_HANDLE_VALUE)
 335         {
 336           errno = ENOENT;
 337           return -1;
 338         }
 339       FindClose (fh);
 340     }
 341   buf->st_mode = (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ?
 342     S_IFDIR : S_IFREG;
 343   buf->st_nlink = 1;
 344   buf->st_ino = 0;
 345
 346   if (name[0] && name[1] == ':')
 347     buf->st_dev = tolower (name[0]) - 'a' + 1;
 348   else
 349     buf->st_dev = _getdrive ();
 350   buf->st_rdev = buf->st_dev;
 351
 352   buf->st_size = wfd.nFileSizeLow;
 353
 354   /* Convert timestamps to Unix format. */
 355   buf->st_mtime = convert_time (wfd.ftLastWriteTime);
 356   buf->st_atime = convert_time (wfd.ftLastAccessTime);
 357   if (buf->st_atime == 0) buf->st_atime = buf->st_mtime;
 358   buf->st_ctime = convert_time (wfd.ftCreationTime);
 359   if (buf->st_ctime == 0) buf->st_ctime = buf->st_mtime;
 360
 361   /* determine rwx permissions */
 362   if (wfd.dwFileAttributes & FILE_ATTRIBUTE_READONLY)
 363     permission = S_IREAD;
 364   else
 365     permission = S_IREAD | S_IWRITE;
 366
 367   if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
 368     permission |= S_IEXEC;
 369   else if (is_exec (name))
 370     permission |= S_IEXEC;
 371
 372   buf->st_mode |= permission | (permission >> 3) | (permission >> 6);
 373
 374   return 0;
 375 }
 376