pparg.c

Go to the documentation of this file.

#include "gwion_util.h"
#include "gwion_ast.h"
 
ANN static Macro pparg_def(PPArg *ppa, const m_str str) {
  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;
}
 
ANN static MacroArg pparg_arg(PPArg *ppa, m_str src) {
  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;
}
 
ANN static GwText *pparg_body(PPArg *ppa, const m_str str) {
  GwText *text = new_text(ppa->hash.p);
  text_add(text, str);
  return text;
}
 
ANN2(1) bool pparg_add(PPArg *ppa, const m_str str) {
  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;
}
 
ANN void pparg_ini(MemPool mp, PPArg *a) {
  a->hash.p = mp;
  vector_init(&a->path);
}
 
ANN void pparg_end(PPArg *a) {
  vector_release(&a->path);
  if (a->hash.table) {
    macro_del(&a->hash);
    hend(&a->hash);
  }
}