1/* Utility and Unix shadow routines for GNU Emacs support programs on NT.
2   Copyright (C) 1994, 2001, 2002, 2003, 2004, 2005,
3                 2006, 2007  Free Software Foundation, Inc.
4
5This file is part of GNU Emacs.
6
7GNU Emacs is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 2, or (at your option)
10any later version.
11
12GNU Emacs is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GNU Emacs; see the file COPYING.  If not, write to
19the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20Boston, MA 02110-1301, USA.
21
22   Geoff Voelker (voelker@cs.washington.edu)                         10-8-94
23*/
24
25#include <windows.h>
26#include <stdlib.h>
27#include <stdio.h>
28#include <time.h>
29#include <direct.h>
30
31#include "ntlib.h"
32
33#define MAXPATHLEN _MAX_PATH
34
35/* Emulate sleep...we could have done this with a define, but that
36   would necessitate including windows.h in the files that used it.
37   This is much easier.  */
38void
39sleep(unsigned long seconds)
40{
41  Sleep (seconds * 1000);
42}
43
44/* Get the current working directory.  */
45char *
46getwd (char *dir)
47{
48  if (GetCurrentDirectory (MAXPATHLEN, dir) > 0)
49    return dir;
50  return NULL;
51}
52
53static HANDLE getppid_parent;
54static int    getppid_ppid;
55
56int
57getppid(void)
58{
59  char *ppid;
60  DWORD result;
61
62  ppid = getenv ("EM_PARENT_PROCESS_ID");
63  if (!ppid)
64    {
65      printf("no pid.\n");
66      return 0;
67    }
68  else
69    {
70      getppid_ppid = atoi (ppid);
71    }
72
73  if (!getppid_parent)
74    {
75      getppid_parent = OpenProcess (SYNCHRONIZE, FALSE, atoi(ppid));
76      if (!getppid_parent)
77	{
78	  printf ("Failed to open handle to parent process: %d\n",
79		 GetLastError());
80	  exit (1);
81	}
82    }
83
84  result = WaitForSingleObject (getppid_parent, 0);
85  switch (result)
86    {
87    case WAIT_TIMEOUT:
88      /* The parent is still alive.  */
89      return getppid_ppid;
90    case WAIT_OBJECT_0:
91      /* The parent is gone.  Return the pid of Unix init (1).  */
92      return 1;
93    case WAIT_FAILED:
94    default:
95      printf ("Checking parent status failed: %d\n", GetLastError());
96      exit (1);
97    }
98}
99
100char *
101getlogin ()
102{
103  static char user_name[256];
104  DWORD  length = sizeof (user_name);
105
106  if (GetUserName (user_name, &length))
107    return user_name;
108  return NULL;
109}
110
111char *
112cuserid (char * s)
113{
114  char * name = getlogin ();
115  if (s)
116    return strcpy (s, name ? name : "");
117  return name;
118}
119
120int
121getuid ()
122{
123  return 0;
124}
125
126int
127setuid (int uid)
128{
129  return 0;
130}
131
132struct passwd *
133getpwuid (int uid)
134{
135  return NULL;
136}
137
138char *
139getpass (const char * prompt)
140{
141  static char input[256];
142  HANDLE in;
143  HANDLE err;
144  DWORD  count;
145
146  in = GetStdHandle (STD_INPUT_HANDLE);
147  err = GetStdHandle (STD_ERROR_HANDLE);
148
149  if (in == INVALID_HANDLE_VALUE || err == INVALID_HANDLE_VALUE)
150    return NULL;
151
152  if (WriteFile (err, prompt, strlen (prompt), &count, NULL))
153    {
154      int istty = (GetFileType (in) == FILE_TYPE_CHAR);
155      DWORD old_flags;
156      int rc;
157
158      if (istty)
159	{
160	  if (GetConsoleMode (in, &old_flags))
161	    SetConsoleMode (in, ENABLE_LINE_INPUT | ENABLE_PROCESSED_INPUT);
162	  else
163	    istty = 0;
164	}
165      rc = ReadFile (in, input, sizeof (input), &count, NULL);
166      if (count >= 2 && input[count - 2] == '\r')
167	input[count - 2] = '\0';
168      else
169	{
170	  char buf[256];
171	  while (ReadFile (in, buf, sizeof (buf), &count, NULL) > 0)
172	    if (count >= 2 && buf[count - 2] == '\r')
173	      break;
174	}
175      WriteFile (err, "\r\n", 2, &count, NULL);
176      if (istty)
177	SetConsoleMode (in, old_flags);
178      if (rc)
179	return input;
180    }
181
182  return NULL;
183}
184
185int
186fchown (int fd, int uid, int gid)
187{
188  return 0;
189}
190
191/* Place a wrapper around the MSVC version of ctime.  It returns NULL
192   on network directories, so we handle that case here.
193   (Ulrich Leodolter, 1/11/95).  */
194char *
195sys_ctime (const time_t *t)
196{
197  char *str = (char *) ctime (t);
198  return (str ? str : "Sun Jan 01 00:00:00 1970");
199}
200
201FILE *
202sys_fopen(const char * path, const char * mode)
203{
204  return fopen (path, mode);
205}
206
207int
208sys_chdir (const char * path)
209{
210  return _chdir (path);
211}
212
213/* arch-tag: 7b63fb83-70ee-4124-8822-54e53e5d0773
214   (do not change this comment) */
215