group.c

/**
 * Copyright (C) 2006 Thomas Roessler <roessler@does-not-exist.org>
 * Copyright (C) 2009 Rocco Rutte <pdmef@gmx.net>
 *
 * This program is free software: you can redistribute it and/or modify it under
 * the terms of the GNU General Public License as published by the Free Software
 * Foundation, either version 2 of the License, or (at your option) any later
 * version.
 *
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 * details.
 *
 * You should have received a copy of the GNU General Public License along with
 * this program.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "config.h"
#include <stdlib.h>
#include "mutt.h"
#include "group.h"
#include "address.h"
#include "globals.h"
#include "hash.h"
#include "lib.h"
#include "list.h"
#include "protos.h"
#include "rfc822.h"

struct Group *mutt_pattern_group(const char *k)
{
  struct Group *p = NULL;

  if (!k)
    return 0;

  if (!(p = hash_find(Groups, k)))
  {
    mutt_debug(2, "mutt_pattern_group: Creating group %s.\n", k);
    p = safe_calloc(1, sizeof(struct Group));
    p->name = safe_strdup(k);
    hash_insert(Groups, p->name, p);
  }

  return p;
}

static void group_remove(struct Group *g)
{
  if (!g)
    return;
  hash_delete(Groups, g->name, g, NULL);
  rfc822_free_address(&g->as);
  mutt_free_rx_list(&g->rs);
  FREE(&g->name);
  FREE(&g);
}

int mutt_group_context_clear(struct GroupContext **ctx)
{
  struct GroupContext *t = NULL;
  for (; ctx && *ctx; (*ctx) = t)
  {
    group_remove((*ctx)->g);
    t = (*ctx)->next;
    FREE(ctx);
  }
  return 0;
}

static int empty_group(struct Group *g)
{
  if (!g)
    return -1;
  return !g->as && !g->rs;
}

void mutt_group_context_add(struct GroupContext **ctx, struct Group *group)
{
  for (; *ctx; ctx = &((*ctx)->next))
  {
    if ((*ctx)->g == group)
      return;
  }

  *ctx = safe_calloc(1, sizeof(struct GroupContext));
  (*ctx)->g = group;
}

void mutt_group_context_destroy(struct GroupContext **ctx)
{
  struct GroupContext *p = NULL;
  for (; *ctx; *ctx = p)
  {
    p = (*ctx)->next;
    FREE(ctx);
  }
}

static void group_add_adrlist(struct Group *g, struct Address *a)
{
  struct Address **p = NULL, *q = NULL;

  if (!g)
    return;
  if (!a)
    return;

  for (p = &g->as; *p; p = &((*p)->next))
    ;

  q = rfc822_cpy_adr(a, 0);
  q = mutt_remove_xrefs(g->as, q);
  *p = q;
}

static int group_remove_adrlist(struct Group *g, struct Address *a)
{
  struct Address *p = NULL;

  if (!g)
    return -1;
  if (!a)
    return -1;

  for (p = a; p; p = p->next)
    rfc822_remove_from_adrlist(&g->as, p->mailbox);

  return 0;
}

static int group_add_rx(struct Group *g, const char *s, int flags, struct Buffer *err)
{
  return mutt_add_to_rx_list(&g->rs, s, flags, err);
}

static int group_remove_rx(struct Group *g, const char *s)
{
  return mutt_remove_from_rx_list(&g->rs, s);
}

void mutt_group_context_add_adrlist(struct GroupContext *ctx, struct Address *a)
{
  for (; ctx; ctx = ctx->next)
    group_add_adrlist(ctx->g, a);
}

int mutt_group_context_remove_adrlist(struct GroupContext *ctx, struct Address *a)
{
  int rv = 0;

  for (; (!rv) && ctx; ctx = ctx->next)
  {
    rv = group_remove_adrlist(ctx->g, a);
    if (empty_group(ctx->g))
      group_remove(ctx->g);
  }

  return rv;
}

int mutt_group_context_add_rx(struct GroupContext *ctx, const char *s,
                              int flags, struct Buffer *err)
{
  int rv = 0;

  for (; (!rv) && ctx; ctx = ctx->next)
    rv = group_add_rx(ctx->g, s, flags, err);

  return rv;
}

int mutt_group_context_remove_rx(struct GroupContext *ctx, const char *s)
{
  int rv = 0;

  for (; (!rv) && ctx; ctx = ctx->next)
  {
    rv = group_remove_rx(ctx->g, s);
    if (empty_group(ctx->g))
      group_remove(ctx->g);
  }

  return rv;
}

bool mutt_group_match(struct Group *g, const char *s)
{
  struct Address *ap = NULL;

  if (s && g)
  {
    if (mutt_match_rx_list(s, g->rs))
      return true;
    for (ap = g->as; ap; ap = ap->next)
      if (ap->mailbox && (mutt_strcasecmp(s, ap->mailbox) == 0))
        return true;
  }
  return false;
}