Blob


1 /*
2 * Copyright (c) 2021 Omar Polo <op@omarpolo.com>
3 *
4 * Permission to use, copy, modify, and distribute this software for any
5 * purpose with or without fee is hereby granted, provided that the above
6 * copyright notice and this permission notice appear in all copies.
7 *
8 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
9 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
10 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
11 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
12 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
13 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
14 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
15 */
17 #include "compat.h"
19 #include <stdio.h>
20 #include <stdlib.h>
21 #include <string.h>
23 #include "parser.h"
25 struct gm_selector {
26 char type;
27 const char *ds;
28 const char *selector;
29 const char *addr;
30 const char *port;
31 };
33 static void gm_parse_selector(char *, struct gm_selector *);
35 static int gm_parse(struct parser *, const char *, size_t);
36 static int gm_foreach_line(struct parser *, const char *, size_t);
37 static int gm_free(struct parser *);
39 void
40 gophermap_initparser(struct parser *p)
41 {
42 memset(p, 0, sizeof(*p));
44 p->name = "gophermap";
45 p->parse = &gm_parse;
46 p->free = &gm_free;
48 TAILQ_INIT(&p->head);
49 }
51 static void
52 gm_parse_selector(char *line, struct gm_selector *s)
53 {
54 s->type = *line++;
55 s->ds = line;
56 s->selector = "";
57 s->addr = "";
58 s->port = "";
60 if ((line = strchr(line, '\t')) == NULL)
61 return;
62 *line++ = '\0';
63 s->selector = line;
65 if ((line = strchr(line, '\t')) == NULL)
66 return;
67 *line++ = '\0';
68 s->addr = line;
70 if ((line = strchr(line, '\t')) == NULL)
71 return;
72 *line++ = '\0';
73 s->port = line;
74 }
76 static int
77 gm_parse(struct parser *p, const char *buf, size_t size)
78 {
79 return parser_foreach_line(p, buf, size, gm_foreach_line);
80 }
82 static inline int
83 emit_line(struct parser *p, enum line_type type, struct gm_selector *s)
84 {
85 struct line *l;
86 char buf[LINE_MAX], b[2] = {0};
88 if ((l = calloc(1, sizeof(*l))) == NULL)
89 goto err;
91 if ((l->line = strdup(s->ds)) == NULL)
92 goto err;
94 switch (l->type = type) {
95 case LINE_LINK:
96 if (s->type == 'h' && has_prefix(s->selector, "URL:")) {
97 strlcpy(buf, s->selector+4, sizeof(buf));
98 } else {
99 strlcpy(buf, "gopher://", sizeof(buf));
100 strlcat(buf, s->addr, sizeof(buf));
101 strlcat(buf, ":", sizeof(buf));
102 strlcat(buf, s->port, sizeof(buf));
103 strlcat(buf, "/", sizeof(buf));
104 b[0] = s->type;
105 strlcat(buf, b, sizeof(buf));
106 if (*s->selector != '/')
107 strlcat(buf, "/", sizeof(buf));
108 strlcat(buf, s->selector, sizeof(buf));
111 if ((l->alt = strdup(buf)) == NULL)
112 goto err;
113 break;
115 default:
116 break;
119 TAILQ_INSERT_TAIL(&p->head, l, lines);
121 return 1;
123 err:
124 if (l != NULL) {
125 free(l->line);
126 free(l->alt);
127 free(l);
129 return 0;
132 static int
133 gm_foreach_line(struct parser *p, const char *line, size_t linelen)
135 char buf[LINE_MAX] = {0};
136 struct gm_selector s = {0};
138 memcpy(buf, line, MIN(sizeof(buf)-1, linelen));
139 gm_parse_selector(buf, &s);
141 switch (s.type) {
142 case '0': /* text file */
143 case '1': /* gopher submenu */
144 case '2': /* CCSO nameserver */
145 case '4': /* binhex-encoded file */
146 case '5': /* DOS file */
147 case '6': /* uuencoded file */
148 case '7': /* full-text search */
149 case '8': /* telnet */
150 case '9': /* binary file */
151 case '+': /* mirror or alternate server */
152 case 'g': /* gif */
153 case 'I': /* image */
154 case 'T': /* telnet 3270 */
155 case ':': /* gopher+: bitmap image */
156 case ';': /* gopher+: movie file */
157 case 'd': /* non-canonical: doc */
158 case 'h': /* non-canonical: html file */
159 case 's': /* non-canonical: sound file */
160 if (!emit_line(p, LINE_LINK, &s))
161 return 0;
162 break;
164 break;
166 case 'i': /* non-canonical: message */
167 if (!emit_line(p, LINE_TEXT, &s))
168 return 0;
169 break;
171 case '3': /* error code */
172 if (!emit_line(p, LINE_QUOTE, &s))
173 return 0;
174 break;
177 return 1;
180 static int
181 gm_free(struct parser *p)
183 /* flush the buffer */
184 if (p->len != 0)
185 gm_foreach_line(p, p->buf, p->len);
187 free(p->buf);
189 return 1;