pparg.c File Reference

#include "gwion_util.h"
#include "gwion_ast.h"

Go to the source code of this file.

Functions
static ANN Macro	pparg_def (PPArg *ppa, const m_str str)
static ANN MacroArg	pparg_arg (PPArg *ppa, m_str src)
static ANN GwText *	pparg_body (PPArg *ppa, const m_str str)
	ANN2 (1)
ANN void	pparg_ini (MemPool mp, PPArg *a)
ANN void	pparg_end (PPArg *a)

Function Documentation

ANN2()

ANN2

(

1

)

Definition at line 46 of file pparg.c.

                                                    {
  if (!ppa->hash.table) hini(&ppa->hash, 127);
  DECL_B(const Macro, m, = pparg_def(ppa, str));
  const m_str arg = strchr(str, '(');
  if (arg) m->base = pparg_arg(ppa, arg + 1);
  const m_str body = strchr(str, '=');
  if (body) m->text = pparg_body(ppa, body + 1);
  m->file = "command line";
  return true;
}

pparg_arg()

static ANN MacroArg pparg_arg ( PPArg * ppa, m_str src )

static

Definition at line 20 of file pparg.c.

                                                     {
  const size_t sz = strlen(src);
  char         buf[sz + 1];
  for (m_uint i = 0; i < sz; ++i) {
    const char c = src[i];
    if (c == ')') {
      buf[i] = '\0';
      return new_macroarg(ppa->hash.p, buf);
    }
    if (c == ',') {
      buf[i]       = '\0';
      MacroArg arg = new_macroarg(ppa->hash.p, buf);
      arg->next    = pparg_arg(ppa, src + i + 1);
      return arg;
    }
    buf[i] = c;
  }
  return NULL;
}

pparg_body()

static ANN GwText * pparg_body ( PPArg * ppa, const m_str str )

static

Definition at line 40 of file pparg.c.

                                                           {
  GwText *text = new_text(ppa->hash.p);
  text_add(text, str);
  return text;
}

pparg_def()

static ANN Macro pparg_def ( PPArg * ppa, const m_str str )

static

Definition at line 4 of file pparg.c.

                                                        {
  const ssize_t sz = strlen(str);
  char          base[sz + 1];
  m_str         def = strchr(str, '(') ?: strchr(str, '=');
  const ssize_t idx = def ? (def - str) : sz;
  strncpy(base, str, idx);
  base[idx] = '\0';
  Macro m   = macro_add(&ppa->hash, base);
  if (m) {
    m->pos = (pos_t){ 1, 1};
    return m;
  }
  gw_err(MACRO_DEFINED);
  return NULL;
}

pparg_end()

ANN void pparg_end

(

PPArg *

a

)

Definition at line 62 of file pparg.c.

                             {
  vector_release(&a->path);
  if (a->hash.table) {
    macro_del(&a->hash);
    hend(&a->hash);
  }
}

pparg_ini()

ANN void pparg_ini	(	MemPool	mp,
		PPArg *	a )

Definition at line 57 of file pparg.c.

                                         {
  a->hash.p = mp;
  vector_init(&a->path);
}