2ce696fd586981f90c939de8982f2e3702314089
[oweals/opkg-lede.git] / libopkg / pkg_parse.c
1 /* pkg_parse.c - the opkg package management system
2
3    Copyright (C) 2009 Ubiq Technologies <graham.gower@gmail.com>
4
5    Steven M. Ayer
6    Copyright (C) 2002 Compaq Computer Corporation
7
8    This program is free software; you can redistribute it and/or
9    modify it under the terms of the GNU General Public License as
10    published by the Free Software Foundation; either version 2, or (at
11    your option) any later version.
12
13    This program is distributed in the hope that it will be useful, but
14    WITHOUT ANY WARRANTY; without even the implied warranty of
15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16    General Public License for more details.
17 */
18
19 #include "config.h"
20
21 #include <stdio.h>
22 #include <ctype.h>
23
24 #include "pkg.h"
25 #include "opkg_utils.h"
26 #include "pkg_parse.h"
27 #include "libbb/libbb.h"
28
29 static int
30 is_field(const char *type, const char *line)
31 {
32         if (!strncmp(line, type, strlen(type)))
33                 return 1;
34         return 0;
35 }
36
37 static char *
38 parse_simple(const char *type, const char *line)
39 {
40         return trim_xstrdup(line + strlen(type) + 1);
41 }
42
43 /*
44  * Parse a comma separated string into an array.
45  */
46 static char **
47 parse_comma_separated(const char *raw, unsigned int *count)
48 {
49         char **depends = NULL;
50         const char *start, *end;
51         int line_count = 0;
52
53         /* skip past the "Field:" marker */
54         while (*raw && *raw != ':')
55                 raw++;
56         raw++;
57
58         if (line_is_blank(raw)) {
59                 *count = line_count;
60                 return NULL;
61         }
62
63         while (*raw) {
64                 depends = xrealloc(depends, sizeof(char *) * (line_count + 1));
65
66                 while (isspace(*raw))
67                         raw++;
68
69                 start = raw;
70                 while (*raw != ',' && *raw)
71                         raw++;
72                 end = raw;
73
74                 while (end > start && isspace(*end))
75                         end--;
76
77                 depends[line_count] = xstrndup(start, end-start);
78
79                 line_count++;
80                 if (*raw == ',')
81                     raw++;
82         }
83
84         *count = line_count;
85         return depends;
86 }
87
88 static void
89 parse_status(pkg_t *pkg, const char *sstr)
90 {
91         char sw_str[64], sf_str[64], ss_str[64];
92
93         if (sscanf(sstr, "Status: %63s %63s %63s",
94                                 sw_str, sf_str, ss_str) != 3) {
95                 opkg_msg(ERROR, "Failed to parse Status line for %s\n",
96                                 pkg->name);
97                 return;
98         }
99
100         pkg->state_want = pkg_state_want_from_str(sw_str);
101         pkg->state_flag = pkg_state_flag_from_str(sf_str);
102         pkg->state_status = pkg_state_status_from_str(ss_str);
103 }
104
105 static void
106 parse_conffiles(pkg_t *pkg, const char *cstr)
107 {
108         char file_name[1024], md5sum[35];
109
110         if (sscanf(cstr, "%1023s %34s", file_name, md5sum) != 2) {
111                 opkg_msg(ERROR, "Failed to parse Conffiles line for %s\n",
112                                 pkg->name);
113                 return;
114         }
115
116         conffile_list_append(&pkg->conffiles, file_name, md5sum);
117 }
118
119 int
120 parse_version(pkg_t *pkg, const char *vstr)
121 {
122         char *colon;
123
124         if (strncmp(vstr, "Version:", 8) == 0)
125                 vstr += 8;
126
127         while (*vstr && isspace(*vstr))
128                 vstr++;
129
130         colon = strchr(vstr, ':');
131         if (colon) {
132                 errno = 0;
133                 pkg->epoch = strtoul(vstr, NULL, 10);
134                 if (errno) {
135                         opkg_perror(ERROR, "%s: invalid epoch", pkg->name);
136                 }
137                 vstr = ++colon;
138         } else {
139                 pkg->epoch= 0;
140         }
141
142         pkg->version= xstrdup(vstr);
143         pkg->revision = strrchr(pkg->version,'-');
144
145         if (pkg->revision)
146                 *pkg->revision++ = '\0';
147
148         return 0;
149 }
150
151 static int
152 get_arch_priority(const char *arch)
153 {
154         nv_pair_list_elt_t *l;
155
156         list_for_each_entry(l , &conf->arch_list.head, node) {
157                 nv_pair_t *nv = (nv_pair_t *)l->data;
158                 if (strcmp(nv->name, arch) == 0)
159                         return strtol(nv->value, NULL, 0);
160         }
161         return 0;
162 }
163
164 static int
165 pkg_parse_line(pkg_t *pkg, const char *line, uint mask)
166 {
167         /* these flags are a bit hackish... */
168         static int reading_conffiles = 0, reading_description = 0;
169         int ret = 0;
170
171         /* Exclude globally masked fields. */
172         mask |= conf->pfm;
173
174         /* Flip the semantics of the mask. */
175         mask ^= PFM_ALL;
176
177         switch (*line) {
178         case 'A':
179                 if ((mask & PFM_ARCHITECTURE ) && is_field("Architecture", line)) {
180                         pkg->architecture = parse_simple("Architecture", line);
181                         pkg->arch_priority = get_arch_priority(pkg->architecture);
182                 } else if ((mask & PFM_AUTO_INSTALLED) && is_field("Auto-Installed", line)) {
183                         char *tmp = parse_simple("Auto-Installed", line);
184                         if (strcmp(tmp, "yes") == 0)
185                             pkg->auto_installed = 1;
186                         free(tmp);
187                 }
188                 break;
189
190         case 'C':
191                 if ((mask & PFM_CONFFILES) && is_field("Conffiles", line)) {
192                         reading_conffiles = 1;
193                         reading_description = 0;
194                         goto dont_reset_flags;
195                 }
196                 else if ((mask & PFM_CONFLICTS) && is_field("Conflicts", line))
197                         pkg->conflicts_str = parse_comma_separated(line, &pkg->conflicts_count);
198                 break;
199
200         case 'D':
201                 if ((mask & PFM_DESCRIPTION) && is_field("Description", line)) {
202                         pkg->description = parse_simple("Description", line);
203                         reading_conffiles = 0;
204                         reading_description = 1;
205                         goto dont_reset_flags;
206                 } else if ((mask & PFM_DEPENDS) && is_field("Depends", line))
207                         pkg->depends_str = parse_comma_separated(line, &pkg->depends_count);
208                 break;
209
210         case 'E':
211                 if((mask & PFM_ESSENTIAL) && is_field("Essential", line)) {
212                         char *tmp = parse_simple("Essential", line);
213                         if (strcmp(tmp, "yes") == 0)
214                                 pkg->essential = 1;
215                         free(tmp);
216                 }
217                 break;
218
219         case 'F':
220                 if((mask & PFM_FILENAME) && is_field("Filename", line))
221                         pkg->filename = parse_simple("Filename", line);
222                 break;
223
224         case 'I':
225                 if ((mask && PFM_INSTALLED_SIZE) && is_field("Installed-Size", line)) {
226                         char *tmp = parse_simple("Installed-Size", line);
227                         pkg->installed_size = strtoul(tmp, NULL, 0);
228                         free (tmp);
229                 } else if ((mask && PFM_INSTALLED_TIME) && is_field("Installed-Time", line)) {
230                         char *tmp = parse_simple("Installed-Time", line);
231                         pkg->installed_time = strtoul(tmp, NULL, 0);
232                         free (tmp);
233                 }
234                 break;
235
236         case 'M':
237                 if (mask && PFM_MD5SUM) {
238                         if (is_field("MD5sum:", line))
239                                 pkg->md5sum = parse_simple("MD5sum", line);
240                         /* The old opkg wrote out status files with the wrong
241                         * case for MD5sum, let's parse it either way */
242                         else if (is_field("MD5Sum:", line))
243                                 pkg->md5sum = parse_simple("MD5Sum", line);
244                 } else if((mask & PFM_MAINTAINER) && is_field("Maintainer", line))
245                         pkg->maintainer = parse_simple("Maintainer", line);
246                 break;
247
248         case 'P':
249                 if ((mask & PFM_PACKAGE) && is_field("Package", line))
250                         pkg->name = parse_simple("Package", line);
251                 else if ((mask & PFM_PRIORITY) && is_field("Priority", line))
252                         pkg->priority = parse_simple("Priority", line);
253                 else if ((mask & PFM_PROVIDES) && is_field("Provides", line))
254                         pkg->provides_str = parse_comma_separated(line, &pkg->provides_count);
255                 else if ((mask & PFM_PRE_DEPENDS) && is_field("Pre-Depends", line))
256                         pkg->pre_depends_str = parse_comma_separated(line, &pkg->pre_depends_count);
257                 break;
258
259         case 'R':
260                 if ((mask & PFM_RECOMMENDS) && is_field("Recommends", line))
261                         pkg->recommends_str = parse_comma_separated(line, &pkg->recommends_count);
262                 else if ((mask & PFM_REPLACES) && is_field("Replaces", line))
263                         pkg->replaces_str = parse_comma_separated(line, &pkg->replaces_count);
264
265                 break;
266
267         case 'S':
268                 if ((mask & PFM_SECTION) && is_field("Section", line))
269                         pkg->section = parse_simple("Section", line);
270 #ifdef HAVE_SHA256
271                 else if ((mask & PFM_SHA256SUM) && is_field("SHA256sum", line))
272                         pkg->sha256sum = parse_simple("SHA256sum", line);
273 #endif
274                 else if ((mask & PFM_SIZE) && is_field("Size", line)) {
275                         char *tmp = parse_simple("Size", line);
276                         pkg->size = strtoul(tmp, NULL, 0);
277                         free (tmp);
278                 } else if ((mask & PFM_SOURCE) && is_field("Source", line))
279                         pkg->source = parse_simple("Source", line);
280                 else if ((mask & PFM_STATUS) && is_field("Status", line))
281                         parse_status(pkg, line);
282                 else if ((mask & PFM_SUGGESTS) && is_field("Suggests", line))
283                         pkg->suggests_str = parse_comma_separated(line, &pkg->suggests_count);
284                 break;
285
286         case 'T':
287                 if ((mask & PFM_TAGS) && is_field("Tags", line))
288                         pkg->tags = parse_simple("Tags", line);
289                 break;
290
291         case 'V':
292                 if ((mask & PFM_VERSION) && is_field("Version", line))
293                         parse_version(pkg, line);
294                 break;
295
296         case ' ':
297                 if ((mask & PFM_DESCRIPTION) && reading_description) {
298                         pkg->description = xrealloc(pkg->description,
299                                                 strlen(pkg->description)
300                                                 + 1 + strlen(line) + 1);
301                         strcat(pkg->description, "\n");
302                         strcat(pkg->description, (line));
303                         goto dont_reset_flags;
304                 } else if ((mask && PFM_CONFFILES) && reading_conffiles) {
305                         parse_conffiles(pkg, line);
306                         goto dont_reset_flags;
307                 }
308
309                 /* FALLTHROUGH */
310         default:
311                 /* For package lists, signifies end of package. */
312                 if(line_is_blank(line)) {
313                         ret = 1;
314                         break;
315                 }
316         }
317
318         reading_description = 0;
319         reading_conffiles = 0;
320
321 dont_reset_flags:
322
323         return ret;
324 }
325
326 int
327 pkg_parse_from_stream_nomalloc(pkg_t *pkg, FILE *fp, uint mask,
328                                                 char **buf0, size_t buf0len)
329 {
330         int ret, lineno;
331         char *buf, *nl;
332         size_t buflen;
333
334         lineno = 1;
335         ret = 0;
336
337         buflen = buf0len;
338         buf = *buf0;
339         buf[0] = '\0';
340
341         while (1) {
342                 if (fgets(buf, (int)buflen, fp) == NULL) {
343                         if (ferror(fp)) {
344                                 opkg_perror(ERROR, "fgets");
345                                 ret = -1;
346                         } else if (strlen(*buf0) == buf0len-1) {
347                                 opkg_msg(ERROR, "Missing new line character"
348                                                 " at end of file!\n");
349                                 pkg_parse_line(pkg, *buf0, mask);
350                         }
351                         break;
352                 }
353
354                 nl = strchr(buf, '\n');
355                 if (nl == NULL) {
356                         if (strlen(buf) < buflen-1) {
357                                 /*
358                                  * Line could be exactly buflen-1 long and
359                                  * missing a newline, but we won't know until
360                                  * fgets fails to read more data.
361                                  */
362                                 opkg_msg(ERROR, "Missing new line character"
363                                                 " at end of file!\n");
364                                 pkg_parse_line(pkg, *buf0, mask);
365                                 break;
366                         }
367                         if (buf0len >= EXCESSIVE_LINE_LEN) {
368                                 opkg_msg(ERROR, "Excessively long line at "
369                                         "%d. Corrupt file?\n",
370                                         lineno);
371                                 ret = -1;
372                                 break;
373                         }
374
375                         /*
376                          * Realloc and point buf past the data already read,
377                          * at the NULL terminator inserted by fgets.
378                          * |<--------------- buf0len ----------------->|
379                          * |                     |<------- buflen ---->|
380                          * |---------------------|---------------------|
381                          * buf0                   buf
382                          */
383                         buflen = buf0len +1;
384                         buf0len *= 2;
385                         *buf0 = xrealloc(*buf0, buf0len);
386                         buf = *buf0 + buflen -2;
387
388                         continue;
389                 }
390
391                 *nl = '\0';
392
393                 lineno++;
394
395                 if (pkg_parse_line(pkg, *buf0, mask))
396                         break;
397
398                 buf = *buf0;
399                 buflen = buf0len;
400                 buf[0] = '\0';
401         }
402
403         if (pkg->name == NULL) {
404                 /* probably just a blank line */
405                 ret = 1;
406         }
407
408         return ret;
409 }
410
411 int
412 pkg_parse_from_stream(pkg_t *pkg, FILE *fp, uint mask)
413 {
414         int ret;
415         char *buf;
416         const size_t len = 4096;
417
418         buf = xmalloc(len);
419         ret = pkg_parse_from_stream_nomalloc(pkg, fp, mask, &buf, len);
420         free(buf);
421
422         return ret;
423 }