mess822_line.c

Go to the documentation of this file.

#include "mess822.h"
#include "case.h"
#include "str.h"
 
int mess822_begin(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};
static stralloc verbose = {0};
 
int mess822_end(mess822_header *h)
{
  mess822_action *a;
  int wsp, pos, i, j, colon = 0;
  char ch;
 
  if (!h->inprogress.len) return 1;
 
  for (pos = 0; pos < h->inprogress.len; ++pos) {
    ch = h->inprogress.s[pos];
    if (ch == ':') {colon = pos;  break; } // get first ':' delimitor; pay attention!
    if (ch < 33) break;
    if (ch > 126) break;
  }
 
  for (a = h->action; a->name; ++a) {
    j = str_len(a->name);
    if (!case_diffb(h->inprogress.s,j,a->name)) {  // compare length of a->name, not pos of ':'
      if (!stralloc_copyb(&verbose,h->inprogress.s,colon + 2)) return 0;
      break;
    }
  }
 
  for (; pos < h->inprogress.len; ++pos) {
    ch = h->inprogress.s[pos];
    if ((ch != ' ') && (ch != '\t')) break; // skip potentially included WSP
  }
 
  if (pos < h->inprogress.len) {
    if (h->inprogress.s[pos] == ':') ++pos;    
    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;
  wsp = 0;
  for (i = pos; i < h->inprogress.len; ++i) {  // potentially included \0s
    ch = h->inprogress.s[i];
    if (ch == '\r') continue;
    if (wsp && (ch == ' ' || ch == '\t')) continue;
    wsp = (ch == ' ' || ch == '\t') ? 1 : 0;
    if (ch != '\n') {
      if (!ch) ch = '\n';
      h->inprogress.s[j++] = ch;
    }
  }
 
  h->inprogress.len = j;                                                                                       // final output len w/o counted \0; done
  if (!stralloc_0(&h->inprogress)) return 0;
 
  if (a->value) {
    if (a->verbose)
      if (!stralloc_catb(a->value,verbose.s,colon + 2)) return 0;
    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(mess822_header *h,stralloc *s)
{
  if (!s->len) return 1;
 
  if ((s->s[0] == ' ') || (s->s[0] == '\t')) // WSP => header line is progressing
    return stralloc_cat(&h->inprogress,s);
  if (!mess822_end(h)) return 0;
 
  return stralloc_copy(&h->inprogress,s);
}