1 75a8a1ec 2022-02-08 op /*
  2 75a8a1ec 2022-02-08 op  * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
  3 75a8a1ec 2022-02-08 op  *
  4 75a8a1ec 2022-02-08 op  * Permission to use, copy, modify, and distribute this software for any
  5 75a8a1ec 2022-02-08 op  * purpose with or without fee is hereby granted, provided that the above
  6 75a8a1ec 2022-02-08 op  * copyright notice and this permission notice appear in all copies.
  7 75a8a1ec 2022-02-08 op  *
  8 75a8a1ec 2022-02-08 op  * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  9 75a8a1ec 2022-02-08 op  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 10 75a8a1ec 2022-02-08 op  * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 11 75a8a1ec 2022-02-08 op  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 12 75a8a1ec 2022-02-08 op  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 13 75a8a1ec 2022-02-08 op  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 14 75a8a1ec 2022-02-08 op  * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 15 75a8a1ec 2022-02-08 op  */
 16 75a8a1ec 2022-02-08 op 
 17 75a8a1ec 2022-02-08 op #include "compat.h"
 18 75a8a1ec 2022-02-08 op 
 19 75a8a1ec 2022-02-08 op #include <stdio.h>
 20 75a8a1ec 2022-02-08 op #include <stdlib.h>
 21 75a8a1ec 2022-02-08 op #include <string.h>
 22 75a8a1ec 2022-02-08 op 
 23 75a8a1ec 2022-02-08 op #include "parser.h"
 24 75a8a1ec 2022-02-08 op #include "utils.h"
 25 75a8a1ec 2022-02-08 op 
 26 75a8a1ec 2022-02-08 op #define evap evbuffer_add_printf
 27 75a8a1ec 2022-02-08 op 
 28 75a8a1ec 2022-02-08 op struct gm_selector {
 29 75a8a1ec 2022-02-08 op 	char		 type;
 30 75a8a1ec 2022-02-08 op 	const char	*ds;
 31 75a8a1ec 2022-02-08 op 	const char	*selector;
 32 75a8a1ec 2022-02-08 op 	const char	*addr;
 33 75a8a1ec 2022-02-08 op 	const char	*port;
 34 75a8a1ec 2022-02-08 op };
 35 75a8a1ec 2022-02-08 op 
 36 75a8a1ec 2022-02-08 op static void	gm_parse_selector(char *, struct gm_selector *);
 37 75a8a1ec 2022-02-08 op 
 38 75a8a1ec 2022-02-08 op static int	gm_parse(struct parser *, const char *, size_t);
 39 75a8a1ec 2022-02-08 op static int	gm_foreach_line(struct parser *, const char *, size_t);
 40 75a8a1ec 2022-02-08 op static int	gm_free(struct parser *);
 41 75a8a1ec 2022-02-08 op static int	gm_serialize(struct parser *, struct evbuffer *);
 42 75a8a1ec 2022-02-08 op 
 43 75a8a1ec 2022-02-08 op void
 44 75a8a1ec 2022-02-08 op gophermap_initparser(struct parser *p)
 45 75a8a1ec 2022-02-08 op {
 46 75a8a1ec 2022-02-08 op 	memset(p, 0, sizeof(*p));
 47 75a8a1ec 2022-02-08 op 
 48 75a8a1ec 2022-02-08 op 	p->name = "gophermap";
 49 75a8a1ec 2022-02-08 op 	p->parse = &gm_parse;
 50 75a8a1ec 2022-02-08 op 	p->free = &gm_free;
 51 75a8a1ec 2022-02-08 op 	p->serialize = &gm_serialize;
 52 75a8a1ec 2022-02-08 op 
 53 75a8a1ec 2022-02-08 op 	TAILQ_INIT(&p->head);
 54 75a8a1ec 2022-02-08 op }
 55 75a8a1ec 2022-02-08 op 
 56 75a8a1ec 2022-02-08 op static void
 57 75a8a1ec 2022-02-08 op gm_parse_selector(char *line, struct gm_selector *s)
 58 75a8a1ec 2022-02-08 op {
 59 75a8a1ec 2022-02-08 op 	s->type = *line++;
 60 75a8a1ec 2022-02-08 op 	s->ds = line;
 61 75a8a1ec 2022-02-08 op 	s->selector = "";
 62 75a8a1ec 2022-02-08 op 	s->addr = "";
 63 75a8a1ec 2022-02-08 op 	s->port = "";
 64 75a8a1ec 2022-02-08 op 
 65 75a8a1ec 2022-02-08 op 	if ((line = strchr(line, '\t')) == NULL)
 66 75a8a1ec 2022-02-08 op 		return;
 67 75a8a1ec 2022-02-08 op 	*line++ = '\0';
 68 75a8a1ec 2022-02-08 op 	s->selector = line;
 69 75a8a1ec 2022-02-08 op 
 70 75a8a1ec 2022-02-08 op 	if ((line = strchr(line, '\t')) == NULL)
 71 75a8a1ec 2022-02-08 op 		return;
 72 75a8a1ec 2022-02-08 op 	*line++ = '\0';
 73 75a8a1ec 2022-02-08 op 	s->addr = line;
 74 75a8a1ec 2022-02-08 op 
 75 75a8a1ec 2022-02-08 op 	if ((line = strchr(line, '\t')) == NULL)
 76 75a8a1ec 2022-02-08 op 		return;
 77 75a8a1ec 2022-02-08 op 	*line++ = '\0';
 78 75a8a1ec 2022-02-08 op 	s->port = line;
 79 75a8a1ec 2022-02-08 op }
 80 75a8a1ec 2022-02-08 op 
 81 75a8a1ec 2022-02-08 op static int
 82 75a8a1ec 2022-02-08 op gm_parse(struct parser *p, const char *buf, size_t size)
 83 75a8a1ec 2022-02-08 op {
 84 75a8a1ec 2022-02-08 op 	return parser_foreach_line(p, buf, size, gm_foreach_line);
 85 75a8a1ec 2022-02-08 op }
 86 75a8a1ec 2022-02-08 op 
 87 75a8a1ec 2022-02-08 op static inline int
 88 75a8a1ec 2022-02-08 op emit_line(struct parser *p, enum line_type type, struct gm_selector *s)
 89 75a8a1ec 2022-02-08 op {
 90 75a8a1ec 2022-02-08 op 	struct line *l;
 91 75a8a1ec 2022-02-08 op 	char buf[LINE_MAX], b[2] = {0};
 92 75a8a1ec 2022-02-08 op 
 93 75a8a1ec 2022-02-08 op 	if ((l = calloc(1, sizeof(*l))) == NULL)
 94 75a8a1ec 2022-02-08 op 		goto err;
 95 75a8a1ec 2022-02-08 op 
 96 75a8a1ec 2022-02-08 op 	if ((l->line = strdup(s->ds)) == NULL)
 97 75a8a1ec 2022-02-08 op 		goto err;
 98 75a8a1ec 2022-02-08 op 
 99 75a8a1ec 2022-02-08 op 	switch (l->type = type) {
100 75a8a1ec 2022-02-08 op 	case LINE_LINK:
101 75a8a1ec 2022-02-08 op 		if (s->type == 'h' && has_prefix(s->selector, "URL:")) {
102 75a8a1ec 2022-02-08 op 			strlcpy(buf, s->selector+4, sizeof(buf));
103 75a8a1ec 2022-02-08 op 		} else {
104 75a8a1ec 2022-02-08 op 			strlcpy(buf, "gopher://", sizeof(buf));
105 75a8a1ec 2022-02-08 op 			strlcat(buf, s->addr, sizeof(buf));
106 75a8a1ec 2022-02-08 op 			strlcat(buf, ":", sizeof(buf));
107 75a8a1ec 2022-02-08 op 			strlcat(buf, s->port, sizeof(buf));
108 75a8a1ec 2022-02-08 op 			strlcat(buf, "/", sizeof(buf));
109 75a8a1ec 2022-02-08 op 			b[0] = s->type;
110 75a8a1ec 2022-02-08 op 			strlcat(buf, b, sizeof(buf));
111 75a8a1ec 2022-02-08 op 			if (*s->selector != '/')
112 75a8a1ec 2022-02-08 op 				strlcat(buf, "/", sizeof(buf));
113 75a8a1ec 2022-02-08 op 			strlcat(buf, s->selector, sizeof(buf));
114 75a8a1ec 2022-02-08 op 		}
115 75a8a1ec 2022-02-08 op 
116 75a8a1ec 2022-02-08 op 		if ((l->alt = strdup(buf)) == NULL)
117 75a8a1ec 2022-02-08 op 			goto err;
118 75a8a1ec 2022-02-08 op 		break;
119 75a8a1ec 2022-02-08 op 
120 75a8a1ec 2022-02-08 op 	default:
121 75a8a1ec 2022-02-08 op 		break;
122 75a8a1ec 2022-02-08 op 	}
123 75a8a1ec 2022-02-08 op 
124 75a8a1ec 2022-02-08 op 	TAILQ_INSERT_TAIL(&p->head, l, lines);
125 75a8a1ec 2022-02-08 op 
126 75a8a1ec 2022-02-08 op 	return 1;
127 75a8a1ec 2022-02-08 op 
128 75a8a1ec 2022-02-08 op err:
129 75a8a1ec 2022-02-08 op 	if (l != NULL) {
130 75a8a1ec 2022-02-08 op 		free(l->line);
131 75a8a1ec 2022-02-08 op 		free(l->alt);
132 75a8a1ec 2022-02-08 op 		free(l);
133 75a8a1ec 2022-02-08 op 	}
134 75a8a1ec 2022-02-08 op 	return 0;
135 75a8a1ec 2022-02-08 op }
136 75a8a1ec 2022-02-08 op 
137 75a8a1ec 2022-02-08 op static int
138 75a8a1ec 2022-02-08 op gm_foreach_line(struct parser *p, const char *line, size_t linelen)
139 75a8a1ec 2022-02-08 op {
140 75a8a1ec 2022-02-08 op 	char buf[LINE_MAX] = {0};
141 75a8a1ec 2022-02-08 op 	struct gm_selector s = {0};
142 75a8a1ec 2022-02-08 op 
143 75a8a1ec 2022-02-08 op 	memcpy(buf, line, MIN(sizeof(buf)-1, linelen));
144 75a8a1ec 2022-02-08 op 	gm_parse_selector(buf, &s);
145 75a8a1ec 2022-02-08 op 
146 75a8a1ec 2022-02-08 op 	switch (s.type) {
147 75a8a1ec 2022-02-08 op 	case '0':	/* text file */
148 75a8a1ec 2022-02-08 op 	case '1':	/* gopher submenu */
149 75a8a1ec 2022-02-08 op 	case '2':	/* CCSO nameserver */
150 75a8a1ec 2022-02-08 op 	case '4':	/* binhex-encoded file */
151 75a8a1ec 2022-02-08 op 	case '5':	/* DOS file */
152 75a8a1ec 2022-02-08 op 	case '6':	/* uuencoded file */
153 75a8a1ec 2022-02-08 op 	case '7':	/* full-text search */
154 75a8a1ec 2022-02-08 op 	case '8':	/* telnet */
155 75a8a1ec 2022-02-08 op 	case '9':	/* binary file */
156 75a8a1ec 2022-02-08 op 	case '+':	/* mirror or alternate server */
157 75a8a1ec 2022-02-08 op 	case 'g':	/* gif */
158 75a8a1ec 2022-02-08 op 	case 'I':	/* image */
159 75a8a1ec 2022-02-08 op 	case 'T':	/* telnet 3270 */
160 75a8a1ec 2022-02-08 op 	case ':':	/* gopher+: bitmap image */
161 75a8a1ec 2022-02-08 op 	case ';':	/* gopher+: movie file */
162 75a8a1ec 2022-02-08 op 	case 'd':	/* non-canonical: doc */
163 75a8a1ec 2022-02-08 op 	case 'h':	/* non-canonical: html file */
164 75a8a1ec 2022-02-08 op 	case 's':	/* non-canonical: sound file */
165 75a8a1ec 2022-02-08 op 		if (!emit_line(p, LINE_LINK, &s))
166 75a8a1ec 2022-02-08 op 			return 0;
167 75a8a1ec 2022-02-08 op 		break;
168 75a8a1ec 2022-02-08 op 
169 75a8a1ec 2022-02-08 op 		break;
170 75a8a1ec 2022-02-08 op 
171 75a8a1ec 2022-02-08 op 	case 'i':	/* non-canonical: message */
172 75a8a1ec 2022-02-08 op 		if (!emit_line(p, LINE_TEXT, &s))
173 75a8a1ec 2022-02-08 op 			return 0;
174 75a8a1ec 2022-02-08 op 		break;
175 75a8a1ec 2022-02-08 op 
176 75a8a1ec 2022-02-08 op 	case '3':	/* error code */
177 75a8a1ec 2022-02-08 op 		if (!emit_line(p, LINE_QUOTE, &s))
178 75a8a1ec 2022-02-08 op 			return 0;
179 75a8a1ec 2022-02-08 op 		break;
180 75a8a1ec 2022-02-08 op 	}
181 75a8a1ec 2022-02-08 op 
182 75a8a1ec 2022-02-08 op 	return 1;
183 75a8a1ec 2022-02-08 op }
184 75a8a1ec 2022-02-08 op 
185 75a8a1ec 2022-02-08 op static int
186 75a8a1ec 2022-02-08 op gm_free(struct parser *p)
187 75a8a1ec 2022-02-08 op {
188 75a8a1ec 2022-02-08 op 	/* flush the buffer */
189 75a8a1ec 2022-02-08 op 	if (p->len != 0)
190 75a8a1ec 2022-02-08 op 		gm_foreach_line(p, p->buf, p->len);
191 75a8a1ec 2022-02-08 op 
192 75a8a1ec 2022-02-08 op 	free(p->buf);
193 75a8a1ec 2022-02-08 op 
194 75a8a1ec 2022-02-08 op 	return 1;
195 75a8a1ec 2022-02-08 op }
196 75a8a1ec 2022-02-08 op 
197 75a8a1ec 2022-02-08 op static inline const char *
198 75a8a1ec 2022-02-08 op gopher_skip_selector(const char *path, int *ret_type)
199 75a8a1ec 2022-02-08 op {
200 75a8a1ec 2022-02-08 op 	*ret_type = 0;
201 75a8a1ec 2022-02-08 op 
202 75a8a1ec 2022-02-08 op 	if (!strcmp(path, "/") || *path == '\0') {
203 75a8a1ec 2022-02-08 op 		*ret_type = '1';
204 75a8a1ec 2022-02-08 op 		return path;
205 75a8a1ec 2022-02-08 op 	}
206 75a8a1ec 2022-02-08 op 
207 75a8a1ec 2022-02-08 op 	if (*path != '/')
208 75a8a1ec 2022-02-08 op 		return path;
209 75a8a1ec 2022-02-08 op 	path++;
210 75a8a1ec 2022-02-08 op 
211 75a8a1ec 2022-02-08 op 	switch (*ret_type = *path) {
212 75a8a1ec 2022-02-08 op 	case '0':
213 75a8a1ec 2022-02-08 op 	case '1':
214 75a8a1ec 2022-02-08 op 	case '7':
215 75a8a1ec 2022-02-08 op 		break;
216 75a8a1ec 2022-02-08 op 
217 75a8a1ec 2022-02-08 op 	default:
218 75a8a1ec 2022-02-08 op 		*ret_type = 0;
219 75a8a1ec 2022-02-08 op 		path -= 1;
220 75a8a1ec 2022-02-08 op 		return path;
221 75a8a1ec 2022-02-08 op 	}
222 75a8a1ec 2022-02-08 op 
223 75a8a1ec 2022-02-08 op 	return ++path;
224 75a8a1ec 2022-02-08 op }
225 75a8a1ec 2022-02-08 op 
226 75a8a1ec 2022-02-08 op static int
227 75a8a1ec 2022-02-08 op serialize_link(struct line *line, const char *text, struct evbuffer *evb)
228 75a8a1ec 2022-02-08 op {
229 75a8a1ec 2022-02-08 op 	size_t		 portlen = 0;
230 75a8a1ec 2022-02-08 op 	int		 type;
231 75a8a1ec 2022-02-08 op 	const char	*uri, *endhost, *port, *path, *colon;
232 75a8a1ec 2022-02-08 op 
233 75a8a1ec 2022-02-08 op 	if ((uri = line->alt) == NULL)
234 75a8a1ec 2022-02-08 op 		return -1;
235 75a8a1ec 2022-02-08 op 
236 75a8a1ec 2022-02-08 op 	if (!has_prefix(uri, "gopher://"))
237 75a8a1ec 2022-02-08 op 		return evap(evb, "h%s\tURL:%s\terror.host\t1\n",
238 75a8a1ec 2022-02-08 op 		    text, line->alt);
239 75a8a1ec 2022-02-08 op 
240 75a8a1ec 2022-02-08 op 	uri += 9; /* skip gopher:// */
241 75a8a1ec 2022-02-08 op 
242 75a8a1ec 2022-02-08 op 	path = strchr(uri, '/');
243 75a8a1ec 2022-02-08 op 	colon = strchr(uri, ':');
244 75a8a1ec 2022-02-08 op 
245 75a8a1ec 2022-02-08 op 	if (path != NULL && colon > path)
246 75a8a1ec 2022-02-08 op 		colon = NULL;
247 75a8a1ec 2022-02-08 op 
248 75a8a1ec 2022-02-08 op 	if ((endhost = colon) == NULL &&
249 75a8a1ec 2022-02-08 op 	    (endhost = path) == NULL)
250 75a8a1ec 2022-02-08 op 		endhost = strchr(path, '\0');
251 75a8a1ec 2022-02-08 op 
252 75a8a1ec 2022-02-08 op 	if (colon != NULL) {
253 75a8a1ec 2022-02-08 op 		for (port = colon+1; *port && *port != '/'; ++port)
254 75a8a1ec 2022-02-08 op 			++portlen;
255 75a8a1ec 2022-02-08 op 		port = colon+1;
256 75a8a1ec 2022-02-08 op 	} else {
257 75a8a1ec 2022-02-08 op 		port = "70";
258 75a8a1ec 2022-02-08 op 		portlen = 2;
259 75a8a1ec 2022-02-08 op 	}
260 75a8a1ec 2022-02-08 op 
261 75a8a1ec 2022-02-08 op 	if (path == NULL) {
262 75a8a1ec 2022-02-08 op 		type = '1';
263 75a8a1ec 2022-02-08 op 		path = "";
264 75a8a1ec 2022-02-08 op 	} else
265 75a8a1ec 2022-02-08 op 		path = gopher_skip_selector(path, &type);
266 75a8a1ec 2022-02-08 op 
267 75a8a1ec 2022-02-08 op 	return evap(evb, "%c%s\t%s\t%.*s\t%.*s\n", type, text,
268 75a8a1ec 2022-02-08 op 	    path, (int)(endhost - uri), uri, (int)portlen, port);
269 75a8a1ec 2022-02-08 op }
270 75a8a1ec 2022-02-08 op 
271 75a8a1ec 2022-02-08 op static int
272 75a8a1ec 2022-02-08 op gm_serialize(struct parser *p, struct evbuffer *evb)
273 75a8a1ec 2022-02-08 op {
274 75a8a1ec 2022-02-08 op 	struct line	*line;
275 75a8a1ec 2022-02-08 op 	const char	*text;
276 75a8a1ec 2022-02-08 op 	int		 r;
277 75a8a1ec 2022-02-08 op 
278 75a8a1ec 2022-02-08 op 	TAILQ_FOREACH(line, &p->head, lines) {
279 75a8a1ec 2022-02-08 op 		if ((text = line->line) == NULL)
280 75a8a1ec 2022-02-08 op 			text = "";
281 75a8a1ec 2022-02-08 op 
282 75a8a1ec 2022-02-08 op 		switch (line->type) {
283 75a8a1ec 2022-02-08 op 		case LINE_LINK:
284 75a8a1ec 2022-02-08 op 			r = serialize_link(line, text, evb);
285 75a8a1ec 2022-02-08 op 			break;
286 75a8a1ec 2022-02-08 op 
287 75a8a1ec 2022-02-08 op 		case LINE_TEXT:
288 75a8a1ec 2022-02-08 op 			r = evap(evb, "i%s\t\terror.host\t1\n",
289 75a8a1ec 2022-02-08 op 			    text);
290 75a8a1ec 2022-02-08 op 			break;
291 75a8a1ec 2022-02-08 op 
292 75a8a1ec 2022-02-08 op 		case LINE_QUOTE:
293 75a8a1ec 2022-02-08 op 			r = evap(evb, "3%s\t\terror.host\t1\n",
294 75a8a1ec 2022-02-08 op 			    text);
295 75a8a1ec 2022-02-08 op 			break;
296 75a8a1ec 2022-02-08 op 
297 75a8a1ec 2022-02-08 op 		default:
298 75a8a1ec 2022-02-08 op 			/* unreachable */
299 75a8a1ec 2022-02-08 op 			abort();
300 75a8a1ec 2022-02-08 op 		}
301 75a8a1ec 2022-02-08 op 
302 75a8a1ec 2022-02-08 op 		if (r == -1)
303 75a8a1ec 2022-02-08 op 			return 0;
304 75a8a1ec 2022-02-08 op 	}
305 75a8a1ec 2022-02-08 op 
306 75a8a1ec 2022-02-08 op 	return 1;
307 75a8a1ec 2022-02-08 op }