node_condition.c

Go to the documentation of this file.

 
#include "config.h"
#include <stdbool.h>
#include <stdio.h>
#include <string.h>
#include "mutt/lib.h"
#include "node_condition.h"
#include "definition.h"
#include "format.h"
#include "helpers.h"
#include "node.h"
#include "node_condbool.h"
#include "node_container.h"
#include "node_expando.h"
#include "node_text.h"
#include "parse.h"
#include "render.h"

static int node_condition_render(const struct ExpandoNode *node,
                                 const struct ExpandoRenderCallback *erc,
                                 struct Buffer *buf, int max_cols, void *data,
                                 MuttFormatFlags flags)
{
  ASSERT(node->type == ENT_CONDITION);
 
  const struct ExpandoNode *node_cond = node_get_child(node, ENC_CONDITION);
 
  // Discard any text returned, just use the return value as a bool
  struct Buffer *buf_cond = buf_pool_get();
  int rc_cond = node_cond->render(node_cond, erc, buf_cond, max_cols, data, flags);
 
  int rc = 0;
  buf_reset(buf_cond);
 
  if (rc_cond == true)
  {
    const struct ExpandoNode *node_true = node_get_child(node, ENC_TRUE);
    rc = node_render(node_true, erc, buf_cond, max_cols, data, flags);
  }
  else
  {
    const struct ExpandoNode *node_false = node_get_child(node, ENC_FALSE);
    rc = node_render(node_false, erc, buf_cond, max_cols, data, flags);
  }
 
  const struct ExpandoFormat *fmt = node->format;
  if (!fmt)
  {
    buf_addstr(buf, buf_string(buf_cond));
    buf_pool_release(&buf_cond);
    return rc;
  }
 
  struct Buffer *tmp = buf_pool_get();
 
  int min_cols = MAX(fmt->min_cols, fmt->max_cols);
  min_cols = MIN(min_cols, max_cols);
  if (fmt->max_cols >= 0)
    max_cols = MIN(max_cols, fmt->max_cols);
  rc = format_string(tmp, min_cols, max_cols, fmt->justification, ' ',
                     buf_string(buf_cond), buf_len(buf_cond), true);
  if (fmt->lower)
    buf_lower_special(tmp);
 
  buf_addstr(buf, buf_string(tmp));
  buf_pool_release(&tmp);
  buf_pool_release(&buf_cond);
 
  return rc;
}

struct ExpandoNode *node_condition_new(struct ExpandoNode *node_cond,
                                       struct ExpandoNode *node_true,
                                       struct ExpandoNode *node_false,
                                       struct ExpandoFormat *fmt)
{
  ASSERT(node_cond);
 
  struct ExpandoNode *node = node_new();
 
  node->type = ENT_CONDITION;
  node->render = node_condition_render;
 
  ARRAY_SET(&node->children, ENC_CONDITION, node_cond);
  ARRAY_SET(&node->children, ENC_TRUE, node_true);
  ARRAY_SET(&node->children, ENC_FALSE, node_false);
 
  node->format = fmt;
 
  return node;
}

struct ExpandoNode *node_condition_parse(const char *str, NodeTextTermFlags term_chars,
                                         const struct ExpandoDefinition *defs,
                                         const char **parsed_until,
                                         struct ExpandoParseError *err)
{
  if (!str || (str[0] != '%'))
    return NULL;
 
  str++; // Skip %
 
  struct ExpandoFormat *fmt = NULL;
  struct ExpandoNode *node_cond = NULL;
  struct ExpandoNode *node_true = NULL;
  struct ExpandoNode *node_false = NULL;
 
  //----------------------------------------------------------------------------
  // Parse the format (optional)
  fmt = parse_format(str, parsed_until, err);
  if (err->position)
    goto fail;
 
  str = *parsed_until;
 
  if ((str[0] != '<') && (str[0] != '?'))
    goto fail;
 
  const bool old_style = (str[0] == '?'); // %?X?...&...?
  str++;
 
  //----------------------------------------------------------------------------
  // Parse the condition
  // Try long name first if it looks like %<{NAME}?...>
  if (str[0] == '{')
  {
    node_cond = parse_long_name(str + 1, defs, EP_CONDITIONAL, NULL, parsed_until, err);
    if (node_cond)
    {
      if ((*parsed_until)[0] != '}')
      {
        err->position = *parsed_until;
        snprintf(err->message, sizeof(err->message), _("Expando is missing closing '}'"));
        goto fail;
      }
      (*parsed_until)++; // Skip the '}'
    }
    else if (err->position)
    {
      goto fail;
    }
    else
    {
      // Report an error if the content looks like a long name
      const char *name_start = str + 1;
      const char *end = name_start + strspn(name_start, "abcdefghijklmnopqrstuvwxyz0123456789-");
      if (end != name_start)
      {
        err->position = name_start;
        if (*end != '}')
          snprintf(err->message, sizeof(err->message), _("Expando is missing closing '}'"));
        else
          // L10N: e.g. "Unknown expando: %{bad}"
          snprintf(err->message, sizeof(err->message), _("Unknown expando: %%{%.*s}"),
                   (int) (end - name_start), name_start);
        goto fail;
      }
      // Doesn't look like a long name, fall through to parse_short_name
    }
  }
 
  if (!node_cond)
  {
    node_cond = parse_short_name(str, defs, EP_CONDITIONAL, NULL, parsed_until, err);
    if (!node_cond)
      goto fail;
  }
 
  if (node_cond->type == ENT_EXPANDO)
  {
    node_cond->type = ENT_CONDBOOL;
    node_cond->render = node_condbool_render;
  }
 
  str = *parsed_until; // Skip the expando
  if (str[0] != '?')
  {
    err->position = str;
    snprintf(err->message, sizeof(err->message),
             // L10N: Expando is missing a terminator character
             //       e.g. "%[..." is missing the final ']'
             _("Conditional expando is missing '%c'"), '?');
    goto fail;
  }
  str++; // Skip the '?'
 
  //----------------------------------------------------------------------------
  // Parse the 'true' clause (optional)
  const NodeTextTermFlags term_true = term_chars | NTE_AMPERSAND |
                                      (old_style ? NTE_QUESTION : NTE_GREATER);
 
  node_true = node_container_new();
  node_parse_many(node_true, str, term_true, defs, parsed_until, err);
  if (err->position)
    goto fail;
 
  str = *parsed_until;
 
  //----------------------------------------------------------------------------
  // Parse the 'false' clause (optional)
 
  node_false = NULL;
  if (str[0] == '&')
  {
    str++;
    const NodeTextTermFlags term_false = term_chars | (old_style ? NTE_QUESTION : NTE_GREATER);
 
    node_false = node_container_new();
    node_parse_many(node_false, str, term_false, defs, parsed_until, err);
    if (err->position)
      goto fail;
 
    str = *parsed_until;
  }
 
  //----------------------------------------------------------------------------
  // Check for the terminator character
  const char terminator = old_style ? '?' : '>';
 
  if (str[0] != terminator)
  {
    err->position = str;
    snprintf(err->message, sizeof(err->message),
             // L10N: Expando is missing a terminator character
             //       e.g. "%[..." is missing the final ']'
             _("Conditional expando is missing '%c'"), '?');
    goto fail;
  }
 
  *parsed_until = str + 1;
 
  return node_condition_new(node_cond, node_true, node_false, fmt);
 
fail:
  FREE(&fmt);
  node_free(&node_cond);
  node_free(&node_true);
  node_free(&node_false);
  return NULL;
}