1 /* Utility and Unix shadow routines for GNU Emacs support programs on NT.
2 Copyright (C) 1994 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
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 2, or (at your option)
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.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA.
21 Geoff Voelker (voelker@cs.washington.edu) 10-8-94
28 #define MAXPATHLEN _MAX_PATH
30 /* Emulate sleep...we could have done this with a define, but that
31 would necessitate including windows.h in the files that used it.
32 This is much easier. */
36 Sleep (seconds
* 1000);
39 /* Get the current working directory. */
43 return GetCurrentDirectory (MAXPATHLEN
, dir
);
46 static HANDLE getppid_parent
;
47 static int getppid_ppid
;
55 ppid
= getenv ("__PARENT_PROCESS_ID");
63 getppid_ppid
= atoi (ppid
);
68 getppid_parent
= OpenProcess (SYNCHRONIZE
, FALSE
, atoi(ppid
));
71 printf ("Failed to open handle to parent process: %d\n",
77 result
= WaitForSingleObject (getppid_parent
, 0);
81 /* The parent is still alive. */
84 /* The parent is gone. Return the pid of Unix init (1). */
88 printf ("Checking parent status failed: %d\n", GetLastError());