2 * SPDX-License-Identifier: BSD-3-Clause
4 * Copyright (c) 1992, 1993
5 * The Regents of the University of California. All rights reserved.
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 * Originally written by Eric Cooper in Fall 1981.
34 * Inspired by a version 6 program by Len Levin, 1978.
35 * Several pieces of code lifted from Bill Joy's 4BSD ps.
36 * Most recently, hacked beyond recognition for 4.4BSD by Steven McCanne,
37 * Lawrence Berkeley Laboratory.
39 * Portions of this software were developed by the Computer Systems
40 * Engineering group at Lawrence Berkeley Laboratory under DARPA
41 * contract BG 91-66 and contributed to Berkeley.
44 #include <sys/param.h>
45 #include <sys/ptrace.h>
48 #include <sys/linker_set.h>
49 #include <sys/sysctl.h>
63 static void killed(int);
64 static void usage(void) __dead2;
67 static bool kflag = false;
69 SET_DECLARE(dumpset, struct dumpers);
72 open_corefile(char *corefile)
74 char fname[MAXPATHLEN];
77 if (corefile == NULL) {
78 (void)snprintf(fname, sizeof(fname), "core.%d", pid);
81 fd = open(corefile, O_RDWR | O_CREAT | O_TRUNC, DEFFILEMODE);
83 err(1, "%s", corefile);
88 kcoredump(int fd, pid_t pid)
90 struct ptrace_coredump pc;
91 int error, res, ret, waited;
93 error = ptrace(PT_ATTACH, pid, NULL, 0);
97 waited = waitpid(pid, &res, 0);
99 err(1, "wait for STOP");
102 memset(&pc, 0, sizeof(pc));
104 pc.pc_flags = (pflags & PFLAGS_FULL) != 0 ? PC_ALL : 0;
105 error = ptrace(PT_COREDUMP, pid, (void *)&pc, sizeof(pc));
111 waited = waitpid(pid, &res, WNOHANG);
113 warn("wait after coredump");
117 error = ptrace(PT_DETACH, pid, NULL, 0);
119 warn("detach failed, check process status");
127 main(int argc, char *argv[])
129 int ch, efd, fd, name[4];
130 char *binfile, *corefile;
131 char passpath[MAXPATHLEN];
132 struct dumpers **d, *dumper;
137 while ((ch = getopt(argc, argv, "c:fk")) != -1) {
143 pflags |= PFLAGS_FULL;
156 /* XXX we should check that the pid argument is really a number */
170 fd = open_corefile(corefile);
177 name[2] = KERN_PROC_PATHNAME;
179 len = sizeof(passpath);
180 if (sysctl(name, 4, passpath, &len, NULL, 0) == -1)
181 errx(1, "kern.proc.pathname failure");
184 efd = open(binfile, O_RDONLY, 0);
186 err(1, "%s", binfile);
188 SET_FOREACH(d, dumpset) {
189 lseek(efd, 0, SEEK_SET);
190 if (((*d)->ident)(efd, pid, binfile)) {
192 lseek(efd, 0, SEEK_SET);
197 errx(1, "Invalid executable file");
198 fd = open_corefile(corefile);
200 dumper->dump(efd, fd, pid);
210 (void)fprintf(stderr,
211 "usage: gcore [-kf] [-c core] [executable] pid\n");