mess822_token.c

Go to the documentation of this file.

#include "mess822.h"
 
/* artificial delimiter is '|' not '=' because '=' is used for keyvalue */
 
int mess822_token(stralloc *out,char *in)
{
  char ch;
  int level;
 
  if (!stralloc_copys(out,"")) return 0;
 
  for (;;)
    switch (ch = *in++) {
      case 0:
        return 1;
 
      case '"':
        if (!stralloc_append(out,"|")) return 0;
        while (*in) {
          ch = *in++;
          if (ch == '"') break;
          if (ch == '\\') if (*in) ch = *in++;
          if (!stralloc_append(out,&ch)) return 0;
        }
        if (!stralloc_0(out)) return 0;
        break;
 
      case '[':
        if (!stralloc_append(out,"|")) return 0;
        if (!stralloc_append(out,"[")) return 0;
        while (*in) {
          ch = *in++;
          if (ch == ']') break;
          if (ch == '\\') if (*in) ch = *in++;
          if (!stralloc_append(out,&ch)) return 0;
        }
        if (!stralloc_append(out,"]")) return 0;
        if (!stralloc_0(out)) return 0;
        break;
 
      case '(':
        if (!stralloc_append(out,"(")) return 0;
        level = 1;
        while (*in) {
          ch = *in++;
          if (ch == ')') {
            --level;
            if (!level) break;
            if (!stralloc_append(out,")")) return 0;
            continue;
          }
          if (ch == '(') {
            if (level) if (!stralloc_append(out,"(")) return 0;
            ++level;
            continue;
          }
          if (ch == '\\') if (*in) ch = *in++;
          if (!stralloc_append(out,&ch)) return 0;
        }
        if (!stralloc_0(out)) return 0;
        break;
 
      case '<': case '>': case ',': case ';': case ':':
      case '@': case '.':
      case ' ': case '\t':
        if (!stralloc_append(out,&ch)) return 0;
        if (!stralloc_0(out)) return 0;
        break;
 
      default:
        if (!stralloc_append(out,"|")) return 0;
 
        for (;;) {
          if (ch == '\\') if (*in) ch = *in++;
          if (!stralloc_append(out,&ch)) return 0;
          ch = *in;
          if (!ch) break;
          if (ch == '"') break;
          if (ch == '[') break;
          if (ch == '(') break;
          if (ch == '<') break;
          if (ch == '>') break;
          if (ch == ',') break;
          if (ch == ';') break;
          if (ch == ':') break;
          if (ch == '@') break;
          if (ch == '.') break;
          if (ch == ' ') break;
          if (ch == '\t') break;
          ++in;
        }
 
        if (!stralloc_0(out)) return 0;
      break;
    }
}