Another memory leak from Tiago Cunha.
[tmux-openbsd.git] / cmd-respawn-pane.c
blob7e272a804ced1b0a8c5bdc2860d58d1e08a1ceb2
1 /* $Id$ */
3 /*
4 * Copyright (c) 2008 Nicholas Marriott <nicm@users.sourceforge.net>
5 * Copyright (c) 2011 Marcel P. Partap <mpartap@gmx.net>
7 * Permission to use, copy, modify, and distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
11 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
16 * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
17 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
20 #include <sys/types.h>
22 #include <unistd.h>
24 #include "tmux.h"
27 * Respawn a pane (restart the command). Kill existing if -k given.
30 int cmd_respawn_pane_exec(struct cmd *, struct cmd_ctx *);
32 const struct cmd_entry cmd_respawn_pane_entry = {
33 "respawn-pane", "respawnp",
34 "kt:", 0, 1,
35 "[-k] " CMD_TARGET_PANE_USAGE " [command]",
37 NULL,
38 NULL,
39 cmd_respawn_pane_exec
42 int
43 cmd_respawn_pane_exec(struct cmd *self, struct cmd_ctx *ctx)
45 struct args *args = self->args;
46 struct winlink *wl;
47 struct window *w;
48 struct window_pane *wp;
49 struct session *s;
50 struct environ env;
51 const char *cmd;
52 char *cause;
54 if ((wl = cmd_find_pane(ctx, args_get(args, 't'), &s, &wp)) == NULL)
55 return (-1);
56 w = wl->window;
58 if (!args_has(self->args, 'k') && wp->fd != -1) {
59 ctx->error(ctx, "pane still active: %s:%u.%u",
60 s->name, wl->idx, window_pane_index(w, wp));
61 return (-1);
64 environ_init(&env);
65 environ_copy(&global_environ, &env);
66 environ_copy(&s->environ, &env);
67 server_fill_environ(s, &env);
69 window_pane_reset_mode(wp);
70 screen_reinit(&wp->base);
71 input_init(wp);
73 if (args->argc != 0)
74 cmd = args->argv[0];
75 else
76 cmd = NULL;
77 if (window_pane_spawn(wp, cmd, NULL, NULL, &env, s->tio, &cause) != 0) {
78 ctx->error(ctx, "respawn pane failed: %s", cause);
79 xfree(cause);
80 environ_free(&env);
81 return (-1);
83 wp->flags |= PANE_REDRAW;
84 server_status_window(w);
86 environ_free(&env);
87 return (0);