cmd-show-environment.c

   1 /* $OpenBSD$ */
   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  * Show environment.
  28  */
  29
  30 int     cmd_show_environment_exec(struct cmd *, struct cmd_ctx *);
  31
  32 const struct cmd_entry cmd_show_environment_entry = {
  33         "show-environment", "showenv",
  34         "gt:", 0, 1,
  35         "[-g] " CMD_TARGET_SESSION_USAGE " [name]",
  36         0,
  37         NULL,
  38         NULL,
  39         cmd_show_environment_exec
  40 };
  41
  42 int
  43 cmd_show_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         struct environ_entry    *envent;
  49
  50         if (args_has(self->args, 'g'))
  51                 env = &global_environ;
  52         else {
  53                 if ((s = cmd_find_session(ctx, args_get(args, 't'), 0)) == NULL)
  54                         return (-1);
  55                 env = &s->environ;
  56         }
  57
  58         if (args->argc != 0) {
  59                 envent = environ_find(env, args->argv[0]);
  60                 if (envent == NULL) {
  61                         ctx->error(ctx, "unknown variable: %s", args->argv[0]);
  62                         return (-1);
  63                 }
  64                 if (envent->value != NULL)
  65                         ctx->print(ctx, "%s=%s", envent->name, envent->value);
  66                 else
  67                         ctx->print(ctx, "-%s", envent->name);
  68                 return (0);
  69         }
  70
  71         RB_FOREACH(envent, environ, env) {
  72                 if (envent->value != NULL)
  73                         ctx->print(ctx, "%s=%s", envent->name, envent->value);
  74                 else
  75                         ctx->print(ctx, "-%s", envent->name);
  76         }
  77
  78         return (0);
  79 }