7 #define FATAL "printmaillist: fatal: "
11 strerr_die2x(100,FATAL
,"bad mailing list format");
20 if (getln(subfdinsmall
,&line
,&match
,'\0') == -1)
21 strerr_die2sys(111,FATAL
,"unable to read input: ");
25 if (substdio_flush(subfdoutsmall
) == -1)
26 strerr_die2sys(111,FATAL
,"unable to write output: ");
30 if (line
.s
[str_chr(line
.s
,'\n')]) badformat();
31 if (line
.s
[line
.len
- 1] == ' ') badformat();
32 if (line
.s
[line
.len
- 1] == '\t') badformat();
34 if ((line
.s
[0] == '.') || (line
.s
[0] == '/')) {
35 if (substdio_puts(subfdoutsmall
,line
.s
) == -1)
36 strerr_die2sys(111,FATAL
,"unable to write output: ");
37 if (substdio_puts(subfdoutsmall
,"\n") == -1)
38 strerr_die2sys(111,FATAL
,"unable to write output: ");
41 if (line
.s
[0] == '&') {
42 if (line
.len
> 900) badformat();
43 if (substdio_puts(subfdoutsmall
,line
.s
) == -1)
44 strerr_die2sys(111,FATAL
,"unable to write output: ");
45 if (substdio_puts(subfdoutsmall
,"\n") == -1)
46 strerr_die2sys(111,FATAL
,"unable to write output: ");