File: headerbody.c

package info (click to toggle)
qmail 1.01-5
  • links: PTS
  • area: non-free
  • in suites: hamm
  • size: 2,188 kB
  • ctags: 1,711
  • sloc: ansic: 13,993; makefile: 1,914; perl: 448; sh: 377
file content (87 lines) | stat: -rw-r--r-- 1,700 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
#include "stralloc.h"
#include "substdio.h"
#include "getln.h"
#include "hfield.h"
#include "headerbody.h"

static int getsa(ss,sa,match)
substdio *ss;
stralloc *sa;
int *match;
{
 if (!*match) return 0;
 if (getln(ss,sa,match,'\n') == -1) return -1;
 if (*match) return 1;
 if (!sa->len) return 0;
 if (!stralloc_append(sa,"\n")) return -1;
 return 1;
}

static stralloc line = {0};
static stralloc nextline = {0};

int headerbody(ss,dohf,hdone,dobl)
substdio *ss;
void (*dohf)();
void (*hdone)();
void (*dobl)();
{
 int match;
 int flaglineok;
 match = 1;
 flaglineok = 0;
 for (;;)
  {
   switch(getsa(ss,&nextline,&match))
    {
     case -1:
       return -1;
     case 0:
       if (flaglineok) dohf(&line);
       hdone();
       /* no message body; could insert blank line here */
       return 0;
    }
   if (flaglineok)
    {
     if ((nextline.s[0] == ' ') || (nextline.s[0] == '\t'))
      {
       if (!stralloc_cat(&line,&nextline)) return -1;
       continue;
      }
     dohf(&line);
    }
   if (nextline.len == 1)
    {
     hdone();
     dobl(&nextline);
     break;
    }
   if (stralloc_starts(&nextline,"From "))
    {
     if (!stralloc_copys(&line,"MBOX-Line: ")) return -1;
     if (!stralloc_cat(&line,&nextline)) return -1;
    }
   else
     if (hfield_valid(nextline.s,nextline.len))
      {
       if (!stralloc_copy(&line,&nextline)) return -1;
      }
     else
      {
       hdone();
       if (!stralloc_copys(&line,"\n")) return -1;
       dobl(&line);
       dobl(&nextline);
       break;
      }
   flaglineok = 1;
  }
 for (;;)
   switch(getsa(ss,&nextline,&match))
    {
     case -1: return -1;
     case 0: return 0;
     case 1: dobl(&nextline);
    }
}