#include "mess822.h"

int mess822_begin(h,a)
mess822_header *h;
mess822_action *a;
{
  h->action = a;

  for(;;) {
    if (a->value) if (!stralloc_copys(a->value,"")) return 0;
    if (a->copy) if (!stralloc_copys(a->copy,"")) return 0;
    if (a->flag) *a->flag = 0;
    if (a->addr) if (!stralloc_copys(a->addr,"")) return 0;
    if (a->when) a->when->known = 0;

    if (!a->name) break;
    ++a;
  }

  return stralloc_copys(&h->inprogress,"");
}

static stralloc addrlist = {0};

int mess822_end(h)
mess822_header *h;
{
  mess822_action *a;
  int pos;
  char ch;
  int i;
  int j;

  if (!h->inprogress.len) return 1;

  for (pos = 0;pos < h->inprogress.len;++pos) {
    ch = h->inprogress.s[pos];
    if (ch == ':') break;
    if (ch < 33) break;
    if (ch > 126) break;
  }

  for (a = h->action;a->name;++a)
    if (!case_diffb(h->inprogress.s,pos,a->name))
      break;

  for (;pos < h->inprogress.len;++pos) {
    ch = h->inprogress.s[pos];
    if ((ch != ' ') && (ch != '\t')) break;
  }

  if (pos < h->inprogress.len)
    if (h->inprogress.s[pos] == ':')
      ++pos;

  /* XXX: allocate all necessary memory before doing anything? */

  if (a->flag)
    *a->flag = 1;

  if (a->copy)
    if (!stralloc_cat(a->copy,&h->inprogress)) return 0;

  j = 0;
  for (i = pos;i < h->inprogress.len;++i) {
    ch = h->inprogress.s[i];
    if (ch != '\n') {
      if (!ch) ch = '\n';
      h->inprogress.s[j++] = ch;
    }
  }
  h->inprogress.len = j;
  if (!stralloc_0(&h->inprogress)) return 0;

  if (a->value) {
    for (i = 0;ch = h->inprogress.s[i];++i) {
      if (ch == '\n') ch = 0;
      if (!stralloc_append(a->value,&ch)) return 0;
    }
    if (!stralloc_append(a->value,"\n")) return 0;
  }

  /* XXX: tokenize once for both addr and when? */

  if (a->addr) {
    if (!mess822_addrlist(&addrlist,h->inprogress.s)) return 0;
    if (!stralloc_cat(a->addr,&addrlist)) return 0;
  }

  if (a->when)
    if (!mess822_when(a->when,h->inprogress.s)) return 0;

  h->inprogress.len = 0;
  return 1;
}

int mess822_line(h,s)
mess822_header *h;
stralloc *s;
{
  if (!s->len) return 1;
  if ((s->s[0] == ' ') || (s->s[0] == '\t'))
    return stralloc_cat(&h->inprogress,s);
  if (!mess822_end(h)) return 0;
  return stralloc_copy(&h->inprogress,s);
}