/* $OpenBSD$ */

/*
* Copyright (c) 2012 George Nachman <[email protected]>
*
* Permission to use, copy, modify, and distribute this software for any
* purpose with or without fee is hereby granted, provided that the above
* copyright notice and this permission notice appear in all copies.
*
* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF MIND, USE, DATA OR PROFITS, WHETHER
* IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
*/

#include <sys/types.h>

#include <stdlib.h>
#include <string.h>

#include "tmux.h"

struct notify_entry {
       const char              *name;
       struct cmd_find_state    fs;
       struct format_tree      *formats;

       struct client           *client;
       struct session          *session;
       struct window           *window;
       int                      pane;
       const char              *pbname;
};

static struct cmdq_item *
notify_insert_one_hook(struct cmdq_item *item, struct notify_entry *ne,
   struct cmd_list *cmdlist, struct cmdq_state *state)
{
       struct cmdq_item        *new_item;
       char                    *s;

       if (cmdlist == NULL)
               return (item);
       if (log_get_level() != 0) {
               s = cmd_list_print(cmdlist, 0);
               log_debug("%s: hook %s is: %s", __func__, ne->name, s);
               free(s);
       }
       new_item = cmdq_get_command(cmdlist, state);
       return (cmdq_insert_after(item, new_item));
}

static void
notify_insert_hook(struct cmdq_item *item, struct notify_entry *ne)
{
       struct cmd_find_state            fs;
       struct options                  *oo;
       struct cmdq_state               *state;
       struct options_entry            *o;
       struct options_array_item       *a;
       struct cmd_list                 *cmdlist;
       const char                      *value;
       struct cmd_parse_result         *pr;

       log_debug("%s: inserting hook %s", __func__, ne->name);

       cmd_find_clear_state(&fs, 0);
       if (cmd_find_empty_state(&ne->fs) || !cmd_find_valid_state(&ne->fs))
               cmd_find_from_nothing(&fs, 0);
       else
               cmd_find_copy_state(&fs, &ne->fs);

       if (fs.s == NULL)
               oo = global_s_options;
       else
               oo = fs.s->options;
       o = options_get(oo, ne->name);
       if (o == NULL && fs.wp != NULL) {
               oo = fs.wp->options;
               o = options_get(oo, ne->name);
       }
       if (o == NULL && fs.wl != NULL) {
               oo = fs.wl->window->options;
               o = options_get(oo, ne->name);
       }
       if (o == NULL) {
               log_debug("%s: hook %s not found", __func__, ne->name);
               return;
       }

       state = cmdq_new_state(&fs, NULL, CMDQ_STATE_NOHOOKS);
       cmdq_add_formats(state, ne->formats);

       if (*ne->name == '@') {
               value = options_get_string(oo, ne->name);
               pr = cmd_parse_from_string(value, NULL);
               switch (pr->status) {
               case CMD_PARSE_ERROR:
                       log_debug("%s: can't parse hook %s: %s", __func__,
                           ne->name, pr->error);
                       free(pr->error);
                       break;
               case CMD_PARSE_SUCCESS:
                       notify_insert_one_hook(item, ne, pr->cmdlist, state);
                       break;
               }
       } else {
               a = options_array_first(o);
               while (a != NULL) {
                       cmdlist = options_array_item_value(a)->cmdlist;
                       item = notify_insert_one_hook(item, ne, cmdlist, state);
                       a = options_array_next(a);
               }
       }

       cmdq_free_state(state);
}

static enum cmd_retval
notify_callback(struct cmdq_item *item, void *data)
{
       struct notify_entry     *ne = data;

       log_debug("%s: %s", __func__, ne->name);

       if (strcmp(ne->name, "pane-mode-changed") == 0)
               control_notify_pane_mode_changed(ne->pane);
       if (strcmp(ne->name, "window-layout-changed") == 0)
               control_notify_window_layout_changed(ne->window);
       if (strcmp(ne->name, "window-pane-changed") == 0)
               control_notify_window_pane_changed(ne->window);
       if (strcmp(ne->name, "window-unlinked") == 0)
               control_notify_window_unlinked(ne->session, ne->window);
       if (strcmp(ne->name, "window-linked") == 0)
               control_notify_window_linked(ne->session, ne->window);
       if (strcmp(ne->name, "window-renamed") == 0)
               control_notify_window_renamed(ne->window);
       if (strcmp(ne->name, "client-session-changed") == 0)
               control_notify_client_session_changed(ne->client);
       if (strcmp(ne->name, "client-detached") == 0)
               control_notify_client_detached(ne->client);
       if (strcmp(ne->name, "session-renamed") == 0)
               control_notify_session_renamed(ne->session);
       if (strcmp(ne->name, "session-created") == 0)
               control_notify_session_created(ne->session);
       if (strcmp(ne->name, "session-closed") == 0)
               control_notify_session_closed(ne->session);
       if (strcmp(ne->name, "session-window-changed") == 0)
               control_notify_session_window_changed(ne->session);
       if (strcmp(ne->name, "paste-buffer-changed") == 0)
               control_notify_paste_buffer_changed(ne->pbname);
       if (strcmp(ne->name, "paste-buffer-deleted") == 0)
               control_notify_paste_buffer_deleted(ne->pbname);

       notify_insert_hook(item, ne);

       if (ne->client != NULL)
               server_client_unref(ne->client);
       if (ne->session != NULL)
               session_remove_ref(ne->session, __func__);
       if (ne->window != NULL)
               window_remove_ref(ne->window, __func__);

       if (ne->fs.s != NULL)
               session_remove_ref(ne->fs.s, __func__);

       format_free(ne->formats);
       free(__UNCONST(ne->name));
       free(__UNCONST(ne->pbname));
       free(ne);

       return (CMD_RETURN_NORMAL);
}

static void
notify_add(const char *name, struct cmd_find_state *fs, struct client *c,
   struct session *s, struct window *w, struct window_pane *wp,
   const char *pbname)
{
       struct notify_entry     *ne;
       struct cmdq_item        *item;

       item = cmdq_running(NULL);
       if (item != NULL && (cmdq_get_flags(item) & CMDQ_STATE_NOHOOKS))
               return;

       ne = xcalloc(1, sizeof *ne);
       ne->name = xstrdup(name);

       ne->client = c;
       ne->session = s;
       ne->window = w;
       ne->pane = (wp != NULL ? (int)wp->id : -1);
       ne->pbname = (pbname != NULL ? xstrdup(pbname) : NULL);

       ne->formats = format_create(NULL, NULL, 0, FORMAT_NOJOBS);
       format_add(ne->formats, "hook", "%s", name);
       if (c != NULL)
               format_add(ne->formats, "hook_client", "%s", c->name);
       if (s != NULL) {
               format_add(ne->formats, "hook_session", "$%u", s->id);
               format_add(ne->formats, "hook_session_name", "%s", s->name);
       }
       if (w != NULL) {
               format_add(ne->formats, "hook_window", "@%u", w->id);
               format_add(ne->formats, "hook_window_name", "%s", w->name);
       }
       if (wp != NULL)
               format_add(ne->formats, "hook_pane", "%%%d", wp->id);
       format_log_debug(ne->formats, __func__);

       if (c != NULL)
               c->references++;
       if (s != NULL)
               session_add_ref(s, __func__);
       if (w != NULL)
               window_add_ref(w, __func__);

       cmd_find_copy_state(&ne->fs, fs);
       if (ne->fs.s != NULL) /* cmd_find_valid_state needs session */
               session_add_ref(ne->fs.s, __func__);

       cmdq_append(NULL, cmdq_get_callback(notify_callback, ne));
}

void
notify_hook(struct cmdq_item *item, const char *name)
{
       struct cmd_find_state   *target = cmdq_get_target(item);
       struct notify_entry      ne;

       memset(&ne, 0, sizeof ne);

       ne.name = name;
       cmd_find_copy_state(&ne.fs, target);

       ne.client = cmdq_get_client(item);
       ne.session = target->s;
       ne.window = target->w;
       ne.pane = (target->wp != NULL ? (int)target->wp->id : -1);

       ne.formats = format_create(NULL, NULL, 0, FORMAT_NOJOBS);
       format_add(ne.formats, "hook", "%s", name);
       format_log_debug(ne.formats, __func__);

       notify_insert_hook(item, &ne);
       format_free(ne.formats);
}

void
notify_client(const char *name, struct client *c)
{
       struct cmd_find_state   fs;

       cmd_find_from_client(&fs, c, 0);
       notify_add(name, &fs, c, NULL, NULL, NULL, NULL);
}

void
notify_session(const char *name, struct session *s)
{
       struct cmd_find_state   fs;

       if (session_alive(s))
               cmd_find_from_session(&fs, s, 0);
       else
               cmd_find_from_nothing(&fs, 0);
       notify_add(name, &fs, NULL, s, NULL, NULL, NULL);
}

void
notify_winlink(const char *name, struct winlink *wl)
{
       struct cmd_find_state   fs;

       cmd_find_from_winlink(&fs, wl, 0);
       notify_add(name, &fs, NULL, wl->session, wl->window, NULL, NULL);
}

void
notify_session_window(const char *name, struct session *s, struct window *w)
{
       struct cmd_find_state   fs;

       cmd_find_from_session_window(&fs, s, w, 0);
       notify_add(name, &fs, NULL, s, w, NULL, NULL);
}

void
notify_window(const char *name, struct window *w)
{
       struct cmd_find_state   fs;

       cmd_find_from_window(&fs, w, 0);
       notify_add(name, &fs, NULL, NULL, w, NULL, NULL);
}

void
notify_pane(const char *name, struct window_pane *wp)
{
       struct cmd_find_state   fs;

       cmd_find_from_pane(&fs, wp, 0);
       notify_add(name, &fs, NULL, NULL, NULL, wp, NULL);
}

void
notify_paste_buffer(const char *pbname, int deleted)
{
       struct cmd_find_state   fs;

       cmd_find_clear_state(&fs, 0);
       if (deleted) {
               notify_add("paste-buffer-deleted", &fs, NULL, NULL, NULL, NULL,
                   pbname);
       } else {
               notify_add("paste-buffer-changed", &fs, NULL, NULL, NULL, NULL,
                   pbname);
       }
}