diff options
| -rw-r--r-- | exec/ChangeLog | 5 | ||||
| -rw-r--r-- | exec/gcore.c | 88 |
2 files changed, 5 insertions, 88 deletions
diff --git a/exec/ChangeLog b/exec/ChangeLog index 3812a397..21067f97 100644 --- a/exec/ChangeLog +++ b/exec/ChangeLog @@ -1,3 +1,8 @@ +2001-11-23 Roland McGrath <roland@frob.com> + + * gcore.c: File moved to ../utils. + * Makefile (DIST_FILES): Remove it. + 2001-04-01 Neal H Walfield <neal@cs.uml.edu> * main.c (S_exec_init): Use iohelp_create_empty_iouser. diff --git a/exec/gcore.c b/exec/gcore.c deleted file mode 100644 index 7343516c..00000000 --- a/exec/gcore.c +++ /dev/null @@ -1,88 +0,0 @@ -/* `gcore' for GNU Hurd. - Copyright (C) 1992 Free Software Foundation - Written by Roland McGrath. - -This file is part of the GNU Hurd. - -The GNU Hurd is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -The GNU Hurd is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with the GNU Hurd; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ - -#include <stdio.h> -#include <stdlib.h> -#include <hurd.h> -#include <hurd/core.h> -#include <limits.h> - -int -main (int argc, char **argv) -{ - file_t coreserv; - int i; - - if (argc < 2) - { - usage: - fprintf (stderr, "Usage: %s PID ...\n", program_invocation_short_name); - exit (1); - } - - coreserv = path_lookup (_SERVERS_CORE, 0, 0); - if (coreserv == MACH_PORT_NULL) - { - perror (_SERVERS_CORE); - exit (1); - } - - for (i = 1; i < argc; ++i) - { - char *end; - pid_t pid; - task_t task; - - pid = strtol (&argv[i], &end, 10); - if (end == &argv[i] || *end != '\0') - goto usage; - - task = pid2task ((pid_t) pid); - if (task == MACH_PORT_NULL) - fprintf (stderr, "pid2task: %d: %s\n", pid, strerror (errno)); - else - { - char name[PATH_MAX]; - file_t file; - sprintf (name, "core.%d", pid); - file = path_lookup (name, FS_LOOKUP_WRITE|FS_LOOKUP_CREATE, - 0666 &~ getumask ()); - if (file == MACH_PORT_NULL) - perror (name); - else - { - error_t err = core_dump_task (coreserv, task, - file, - 0, 0, - getenv ("GNUTARGET")); - mach_port_deallocate (mach_task_self (), file); - if (err) - { - (void) remove (name); - fprintf (stderr, "core_dump_task: %d: %s\n", - pid, strerror (err)); - } - } - } - mach_port_deallocate (mach_task_self (), task); - } - - exit (0); -} |