Blame

Date:
Message:
Use gcc -ansi -pedantic in 9c. Fix many non-C89-isms.
Actions:
History | Blob | Raw File
  1 941e1713 2006-02-15 devnull /* Quick and dirty RFC 2047 */

  2 941e1713 2006-02-15 devnull 

  3 941e1713 2006-02-15 devnull #include "a.h"

  4 941e1713 2006-02-15 devnull 

  5 941e1713 2006-02-15 devnull static int

  6 941e1713 2006-02-15 devnull unhex1(char c)

  7 941e1713 2006-02-15 devnull {

  8 941e1713 2006-02-15 devnull 	if('0' <= c && c <= '9')

  9 941e1713 2006-02-15 devnull 		return c-'0';

 10 941e1713 2006-02-15 devnull 	if('a' <= c && c <= 'f')

 11 941e1713 2006-02-15 devnull 		return c-'a'+10;

 12 941e1713 2006-02-15 devnull 	if('A' <= c && c <= 'F')

 13 941e1713 2006-02-15 devnull 		return c-'A'+10;

 14 941e1713 2006-02-15 devnull 	return 15;

 15 941e1713 2006-02-15 devnull }

 16 941e1713 2006-02-15 devnull 

 17 941e1713 2006-02-15 devnull static int

 18 941e1713 2006-02-15 devnull unhex(char *s)

 19 941e1713 2006-02-15 devnull {

 20 941e1713 2006-02-15 devnull 	return unhex1(s[0])*16+unhex1(s[1]);

 21 941e1713 2006-02-15 devnull }

 22 941e1713 2006-02-15 devnull 

 23 941e1713 2006-02-15 devnull int

 24 6a8add52 2006-02-23 devnull _decqp(uchar *out, int lim, char *in, int n, int underscores)

 25 941e1713 2006-02-15 devnull {

 26 941e1713 2006-02-15 devnull 	char *p, *ep;

 27 941e1713 2006-02-15 devnull 	uchar *eout, *out0;

 28 941e1713 2006-02-15 devnull 	

 29 941e1713 2006-02-15 devnull 	out0 = out;

 30 941e1713 2006-02-15 devnull 	eout = out+lim;

 31 941e1713 2006-02-15 devnull 	for(p=in, ep=in+n; p<ep && out<eout; ){

 32 6a8add52 2006-02-23 devnull 		if(underscores && *p == '_'){

 33 941e1713 2006-02-15 devnull 			*out++ = ' ';

 34 941e1713 2006-02-15 devnull 			p++;

 35 941e1713 2006-02-15 devnull 		}

 36 941e1713 2006-02-15 devnull 		else if(*p == '='){

 37 941e1713 2006-02-15 devnull 			if(p+1 >= ep)

 38 941e1713 2006-02-15 devnull 				break;

 39 941e1713 2006-02-15 devnull 			if(*(p+1) == '\n'){

 40 941e1713 2006-02-15 devnull 				p += 2;

 41 941e1713 2006-02-15 devnull 				continue;

 42 941e1713 2006-02-15 devnull 			}

 43 941e1713 2006-02-15 devnull 			if(p+3 > ep)

 44 941e1713 2006-02-15 devnull 				break;

 45 941e1713 2006-02-15 devnull 			*out++ = unhex(p+1);

 46 941e1713 2006-02-15 devnull 			p += 3;

 47 941e1713 2006-02-15 devnull 		}else

 48 941e1713 2006-02-15 devnull 			*out++ = *p++;

 49 941e1713 2006-02-15 devnull 	}

 50 941e1713 2006-02-15 devnull 	return out-out0;

 51 941e1713 2006-02-15 devnull }

 52 941e1713 2006-02-15 devnull 

 53 6a8add52 2006-02-23 devnull int

 54 6a8add52 2006-02-23 devnull decqp(uchar *out, int lim, char *in, int n)

 55 6a8add52 2006-02-23 devnull {

 56 6a8add52 2006-02-23 devnull 	return _decqp(out, lim, in, n, 0);

 57 6a8add52 2006-02-23 devnull }

 58 6a8add52 2006-02-23 devnull 

 59 941e1713 2006-02-15 devnull char*

 60 941e1713 2006-02-15 devnull decode(int kind, char *s, int *len)

 61 941e1713 2006-02-15 devnull {

 62 941e1713 2006-02-15 devnull 	char *t;

 63 941e1713 2006-02-15 devnull 	int l;

 64 941e1713 2006-02-15 devnull 

 65 941e1713 2006-02-15 devnull 	if(s == nil)

 66 941e1713 2006-02-15 devnull 		return s;

 67 941e1713 2006-02-15 devnull 	switch(kind){

 68 384d563d 2006-02-23 devnull 	case QuotedPrintable:

 69 6a8add52 2006-02-23 devnull 	case QuotedPrintableU:

 70 941e1713 2006-02-15 devnull 		l = strlen(s)+1;

 71 941e1713 2006-02-15 devnull 		t = emalloc(l);

 72 1ff2c2b9 2006-02-23 devnull 		l = _decqp((uchar*)t, l, s, l-1, kind==QuotedPrintableU);

 73 941e1713 2006-02-15 devnull 		*len = l;

 74 941e1713 2006-02-15 devnull 		t[l] = 0;

 75 941e1713 2006-02-15 devnull 		return t;

 76 941e1713 2006-02-15 devnull 	

 77 941e1713 2006-02-15 devnull 	case Base64:

 78 941e1713 2006-02-15 devnull 		l = strlen(s)+1;

 79 941e1713 2006-02-15 devnull 		t = emalloc(l);

 80 941e1713 2006-02-15 devnull 		l = dec64((uchar*)t, l, s, l-1);

 81 941e1713 2006-02-15 devnull 		*len = l;

 82 941e1713 2006-02-15 devnull 		t[l] = 0;

 83 941e1713 2006-02-15 devnull 		return t;

 84 941e1713 2006-02-15 devnull 

 85 941e1713 2006-02-15 devnull 	default:

 86 941e1713 2006-02-15 devnull 		*len = strlen(s);

 87 941e1713 2006-02-15 devnull 		return estrdup(s);

 88 941e1713 2006-02-15 devnull 	}

 89 941e1713 2006-02-15 devnull }

 90 941e1713 2006-02-15 devnull 

 91 941e1713 2006-02-15 devnull struct {

 92 941e1713 2006-02-15 devnull 	char *mime;

 93 941e1713 2006-02-15 devnull 	char *tcs;

 94 941e1713 2006-02-15 devnull } tcstab[] = {

 95 941e1713 2006-02-15 devnull 	"iso-8859-2",		"8859-2",

 96 941e1713 2006-02-15 devnull 	"iso-8859-3",		"8859-3",

 97 941e1713 2006-02-15 devnull 	"iso-8859-4",		"8859-4",

 98 941e1713 2006-02-15 devnull 	"iso-8859-5",		"8859-5",

 99 941e1713 2006-02-15 devnull 	"iso-8859-6",		"8859-6",

100 941e1713 2006-02-15 devnull 	"iso-8859-7",		"8859-7",

101 941e1713 2006-02-15 devnull 	"iso-8859-8",		"8859-8",

102 941e1713 2006-02-15 devnull 	"iso-8859-9",		"8859-9",

103 941e1713 2006-02-15 devnull 	"iso-8859-10",	"8859-10",

104 941e1713 2006-02-15 devnull 	"iso-8859-15",	"8859-15",

105 941e1713 2006-02-15 devnull 	"big5",			"big5",

106 941e1713 2006-02-15 devnull 	"iso-2022-jp",	"jis-kanji",

107 941e1713 2006-02-15 devnull 	"windows-1251",	"cp1251",

108 cbeb0b26 2006-04-01 devnull 	"koi8-r",			"koi8"

109 941e1713 2006-02-15 devnull };

110 941e1713 2006-02-15 devnull 

111 941e1713 2006-02-15 devnull char*

112 941e1713 2006-02-15 devnull tcs(char *charset, char *s)

113 941e1713 2006-02-15 devnull {

114 941e1713 2006-02-15 devnull 	static char buf[4096];

115 941e1713 2006-02-15 devnull 	int i, n;

116 941e1713 2006-02-15 devnull 	int fd[3], p[2], pp[2];

117 941e1713 2006-02-15 devnull 	uchar *us;

118 941e1713 2006-02-15 devnull 	char *t, *u;

119 941e1713 2006-02-15 devnull 	char *argv[4];

120 941e1713 2006-02-15 devnull 	Rune r;

121 941e1713 2006-02-15 devnull 	

122 941e1713 2006-02-15 devnull 	if(s == nil || charset == nil || *s == 0)

123 941e1713 2006-02-15 devnull 		return s;

124 941e1713 2006-02-15 devnull 

125 941e1713 2006-02-15 devnull 	if(cistrcmp(charset, "utf-8") == 0)

126 941e1713 2006-02-15 devnull 		return s;

127 941e1713 2006-02-15 devnull 	if(cistrcmp(charset, "iso-8859-1") == 0 || cistrcmp(charset, "us-ascii") == 0){

128 941e1713 2006-02-15 devnull latin1:

129 941e1713 2006-02-15 devnull 		n = 0;

130 941e1713 2006-02-15 devnull 		for(us=(uchar*)s; *us; us++)

131 941e1713 2006-02-15 devnull 			n += runelen(*us);

132 941e1713 2006-02-15 devnull 		n++;

133 941e1713 2006-02-15 devnull 		t = emalloc(n);

134 941e1713 2006-02-15 devnull 		for(us=(uchar*)s, u=t; *us; us++){

135 941e1713 2006-02-15 devnull 			r = *us;

136 941e1713 2006-02-15 devnull 			u += runetochar(u, &r);

137 941e1713 2006-02-15 devnull 		}

138 941e1713 2006-02-15 devnull 		*u = 0;

139 941e1713 2006-02-15 devnull 		free(s);

140 941e1713 2006-02-15 devnull 		return t;

141 941e1713 2006-02-15 devnull 	}

142 941e1713 2006-02-15 devnull 	for(i=0; i<nelem(tcstab); i++)

143 941e1713 2006-02-15 devnull 		if(cistrcmp(charset, tcstab[i].mime) == 0)

144 941e1713 2006-02-15 devnull 			goto tcs;

145 941e1713 2006-02-15 devnull 	goto latin1;

146 941e1713 2006-02-15 devnull 

147 941e1713 2006-02-15 devnull tcs:

148 941e1713 2006-02-15 devnull 	argv[0] = "tcs";

149 941e1713 2006-02-15 devnull 	argv[1] = "-f";

150 941e1713 2006-02-15 devnull 	argv[2] = charset;

151 941e1713 2006-02-15 devnull 	argv[3] = nil;

152 941e1713 2006-02-15 devnull 	

153 941e1713 2006-02-15 devnull 	if(pipe(p) < 0 || pipe(pp) < 0)

154 941e1713 2006-02-15 devnull 		sysfatal("pipe: %r");

155 941e1713 2006-02-15 devnull 	fd[0] = p[0];

156 941e1713 2006-02-15 devnull 	fd[1] = pp[0];

157 941e1713 2006-02-15 devnull 	fd[2] = dup(2, -1);

158 941e1713 2006-02-15 devnull 	if(threadspawnl(fd, "tcs", "tcs", "-f", tcstab[i].tcs, nil) < 0){

159 941e1713 2006-02-15 devnull 		close(p[0]);

160 941e1713 2006-02-15 devnull 		close(p[1]);

161 941e1713 2006-02-15 devnull 		close(pp[0]);

162 941e1713 2006-02-15 devnull 		close(pp[1]);

163 941e1713 2006-02-15 devnull 		close(fd[2]);

164 941e1713 2006-02-15 devnull 		goto latin1;

165 941e1713 2006-02-15 devnull 	}

166 941e1713 2006-02-15 devnull 	close(p[0]);

167 941e1713 2006-02-15 devnull 	close(pp[0]);

168 941e1713 2006-02-15 devnull 	write(p[1], s, strlen(s));

169 941e1713 2006-02-15 devnull 	close(p[1]);

170 941e1713 2006-02-15 devnull 	n = readn(pp[1], buf, sizeof buf-1);

171 941e1713 2006-02-15 devnull 	close(pp[1]);

172 941e1713 2006-02-15 devnull 	if(n <= 0)

173 941e1713 2006-02-15 devnull 		goto latin1;

174 941e1713 2006-02-15 devnull 	free(s);

175 941e1713 2006-02-15 devnull 	buf[n] = 0;

176 941e1713 2006-02-15 devnull 	return estrdup(buf);

177 941e1713 2006-02-15 devnull }

178 941e1713 2006-02-15 devnull 

179 941e1713 2006-02-15 devnull char*

180 941e1713 2006-02-15 devnull unrfc2047(char *s)

181 941e1713 2006-02-15 devnull {

182 941e1713 2006-02-15 devnull 	char *p, *q, *t, *u, *v;

183 941e1713 2006-02-15 devnull 	int len;

184 941e1713 2006-02-15 devnull 	Rune r;

185 941e1713 2006-02-15 devnull 	Fmt fmt;

186 941e1713 2006-02-15 devnull 	

187 941e1713 2006-02-15 devnull 	if(s == nil)

188 941e1713 2006-02-15 devnull 		return nil;

189 941e1713 2006-02-15 devnull 

190 941e1713 2006-02-15 devnull 	if(strstr(s, "=?") == nil)

191 941e1713 2006-02-15 devnull 		return s;

192 941e1713 2006-02-15 devnull 	

193 941e1713 2006-02-15 devnull 	fmtstrinit(&fmt);

194 941e1713 2006-02-15 devnull 	for(p=s; *p; ){

195 941e1713 2006-02-15 devnull 		/* =?charset?e?text?= */

196 941e1713 2006-02-15 devnull 		if(*p=='=' && *(p+1)=='?'){

197 941e1713 2006-02-15 devnull 			p += 2;

198 941e1713 2006-02-15 devnull 			q = strchr(p, '?');

199 941e1713 2006-02-15 devnull 			if(q == nil)

200 941e1713 2006-02-15 devnull 				goto emit;

201 941e1713 2006-02-15 devnull 			q++;

202 941e1713 2006-02-15 devnull 			if(*q == '?' || *(q+1) != '?')

203 941e1713 2006-02-15 devnull 				goto emit;

204 941e1713 2006-02-15 devnull 			t = q+2;

205 941e1713 2006-02-15 devnull 			u = strchr(t, '?');

206 941e1713 2006-02-15 devnull 			if(u == nil || *(u+1) != '=')

207 941e1713 2006-02-15 devnull 				goto emit;

208 941e1713 2006-02-15 devnull 			switch(*q){

209 941e1713 2006-02-15 devnull 			case 'q':

210 941e1713 2006-02-15 devnull 			case 'Q':

211 941e1713 2006-02-15 devnull 				*u = 0;

212 6a8add52 2006-02-23 devnull 				v = decode(QuotedPrintableU, t, &len);

213 941e1713 2006-02-15 devnull 				break;

214 941e1713 2006-02-15 devnull 			case 'b':

215 941e1713 2006-02-15 devnull 			case 'B':

216 941e1713 2006-02-15 devnull 				*u = 0;

217 941e1713 2006-02-15 devnull 				v = decode(Base64, t, &len);

218 941e1713 2006-02-15 devnull 				break;

219 941e1713 2006-02-15 devnull 			default:

220 941e1713 2006-02-15 devnull 				goto emit;

221 941e1713 2006-02-15 devnull 			}

222 941e1713 2006-02-15 devnull 			*(q-1) = 0;

223 941e1713 2006-02-15 devnull 			v = tcs(p, v);

224 941e1713 2006-02-15 devnull 			fmtstrcpy(&fmt, v);

225 941e1713 2006-02-15 devnull 			free(v);

226 941e1713 2006-02-15 devnull 			p = u+2;

227 941e1713 2006-02-15 devnull 		}

228 941e1713 2006-02-15 devnull 	emit:

229 941e1713 2006-02-15 devnull 		p += chartorune(&r, p);

230 941e1713 2006-02-15 devnull 		fmtrune(&fmt, r);

231 941e1713 2006-02-15 devnull 	}

232 941e1713 2006-02-15 devnull 	p = fmtstrflush(&fmt);

233 941e1713 2006-02-15 devnull 	if(p == nil)

234 941e1713 2006-02-15 devnull 		sysfatal("out of memory");

235 941e1713 2006-02-15 devnull 	free(s);

236 941e1713 2006-02-15 devnull 	return p;

237 941e1713 2006-02-15 devnull }

238 941e1713 2006-02-15 devnull 

239 941e1713 2006-02-15 devnull #ifdef TEST

240 941e1713 2006-02-15 devnull char *test[] = 

241 941e1713 2006-02-15 devnull {

242 941e1713 2006-02-15 devnull 	"hello world",

243 941e1713 2006-02-15 devnull 	"hello =?iso-8859-1?q?this is some text?=",

244 941e1713 2006-02-15 devnull 	"=?US-ASCII?Q?Keith_Moore?=",

245 941e1713 2006-02-15 devnull 	"=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?=",

246 941e1713 2006-02-15 devnull 	"=?ISO-8859-1?Q?Andr=E9?= Pirard",

247 941e1713 2006-02-15 devnull 	"=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=",

248 941e1713 2006-02-15 devnull 	"=?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=",

249 941e1713 2006-02-15 devnull 	"=?ISO-8859-1?Q?Olle_J=E4rnefors?=",

250 941e1713 2006-02-15 devnull 	"=?iso-2022-jp?B?GyRCTTVKISRKP006SiRyS34kPyQ3JEZKcz03JCIkahsoQg==?=",

251 941e1713 2006-02-15 devnull 	"=?UTF-8?B?Ik5pbHMgTy4gU2Vsw6VzZGFsIg==?="

252 941e1713 2006-02-15 devnull };

253 941e1713 2006-02-15 devnull 

254 941e1713 2006-02-15 devnull void

255 941e1713 2006-02-15 devnull threadmain(int argc, char **argv)

256 941e1713 2006-02-15 devnull {

257 941e1713 2006-02-15 devnull 	int i;

258 941e1713 2006-02-15 devnull 	

259 941e1713 2006-02-15 devnull 	for(i=0; i<nelem(test); i++)

260 941e1713 2006-02-15 devnull 		print("%s\n\t%s\n", test[i], unrfc2047(estrdup(test[i])));

261 941e1713 2006-02-15 devnull 	threadexitsall(0);

262 941e1713 2006-02-15 devnull }

263 941e1713 2006-02-15 devnull 

264 941e1713 2006-02-15 devnull #endif