1 /* $Id: cmd-set-environment.c,v 1.1.1.2 2011/08/17 18:40:04 jmmv Exp $ */ 2 3 /* 4 * Copyright (c) 2009 Nicholas Marriott <nicm@users.sourceforge.net> 5 * 6 * Permission to use, copy, modify, and distribute this software for any 7 * purpose with or without fee is hereby granted, provided that the above 8 * copyright notice and this permission notice appear in all copies. 9 * 10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 14 * WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER 15 * IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING 16 * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. 17 */ 18 19 #include <sys/types.h> 20 21 #include <stdlib.h> 22 #include <string.h> 23 24 #include "tmux.h" 25 26 /* 27 * Set an environment variable. 28 */ 29 30 int cmd_set_environment_exec(struct cmd *, struct cmd_ctx *); 31 32 const struct cmd_entry cmd_set_environment_entry = { 33 "set-environment", "setenv", 34 "grt:u", 1, 2, 35 "[-gru] " CMD_TARGET_SESSION_USAGE " name [value]", 36 0, 37 NULL, 38 NULL, 39 cmd_set_environment_exec 40 }; 41 42 int 43 cmd_set_environment_exec(struct cmd *self, struct cmd_ctx *ctx) 44 { 45 struct args *args = self->args; 46 struct session *s; 47 struct environ *env; 48 const char *name, *value; 49 50 name = args->argv[0]; 51 if (*name == '\0') { 52 ctx->error(ctx, "empty variable name"); 53 return (-1); 54 } 55 if (strchr(name, '=') != NULL) { 56 ctx->error(ctx, "variable name contains ="); 57 return (-1); 58 } 59 60 if (args->argc < 1) 61 value = NULL; 62 else 63 value = args->argv[1]; 64 65 if (args_has(self->args, 'g')) 66 env = &global_environ; 67 else { 68 if ((s = cmd_find_session(ctx, args_get(args, 't'), 0)) == NULL) 69 return (-1); 70 env = &s->environ; 71 } 72 73 if (args_has(self->args, 'u')) { 74 if (value != NULL) { 75 ctx->error(ctx, "can't specify a value with -u"); 76 return (-1); 77 } 78 environ_unset(env, name); 79 } else if (args_has(self->args, 'r')) { 80 if (value != NULL) { 81 ctx->error(ctx, "can't specify a value with -r"); 82 return (-1); 83 } 84 environ_set(env, name, NULL); 85 } else { 86 if (value == NULL) { 87 ctx->error(ctx, "no value specified"); 88 return (-1); 89 } 90 environ_set(env, name, value); 91 } 92 93 return (0); 94 } 95