GCOV - Varnish Cache


/*-
 * Copyright (c) 2006 Verdens Gang AS
 * Copyright (c) 2006-2011 Varnish Software AS
 * All rights reserved.
 *
 * Author: Poul-Henning Kamp <phk@phk.freebsd.dk>
 *
 * SPDX-License-Identifier: BSD-2-Clause
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL AUTHOR OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 * const char **VAV_Parse(const char *s, int *argc, int flag)
 *      Parse a command like line into an argv[]
 *      Index zero contains NULL or an error message
 *      (The error message is a static const char* and does not
 *      need saving or copying.)
 *      "double quotes" and backslash substitution is handled.
 *
 * void VAV_Free(const char **argv)
 *      Free the result of VAV_Parse()
 *
 */

#include "config.h"

#include <ctype.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "vdef.h"

#include "vas.h"
#include "vav.h"
#include "vnum.h"

static int
vav_backslash_txt(const char *s, const char *e, char *res)
{
        int r, l, i;
        const char *p;
        char c;

        AN(s);
        if (e == NULL)
                e = strchr(s, '\0');

        l = pdiff(s, e);
        if (l < 2)
                return (0);

        assert(*s == '\\');
        r = c = 0;
        switch (s[1]) {
        case 'n':
                c = '\n';
                r = 2;
                break;
        case 'r':
                c = '\r';
                r = 2;
                break;
        case 't':
                c = '\t';
                r = 2;
                break;
        case '"':
                c = '"';
                r = 2;
                break;
        case '\\':
                c = '\\';
                r = 2;
                break;
        case '0': case '1': case '2': case '3':
        case '4': case '5': case '6': case '7':
                for (r = 1; r < 4 && r < l; r++) {
                        if (!isdigit(s[r]))
                                break;
                        if (s[r] - '0' > 7)
                                break;
                        c <<= 3;        /*lint !e701 signed left shift */
                        c |= s[r] - '0';
                }
                break;
        case 'x':
                if (l >= 4 && (i = VNUM_hex(s + 2, s + 4, &p)) >= 0 &&
                    p == s + 4) {
                        AZ(i & ~0xff);
                        c = i;  /*lint !e734 loss of precision */
                        r = 4;
                }
                break;
        default:
                break;
        }
        if (res != NULL)
                *res = c;
        return (r);
}

int
VAV_BackSlash(const char *s, char *res)
{

        return (vav_backslash_txt(s, NULL, res));
}

char *
VAV_BackSlashDecode(const char *s, const char *e)
{
        const char *q;
        char *p, *r;
        int i;

        if (e == NULL)
                e = strchr(s, '\0');
        assert(e != NULL);
        p = calloc(1, (e - s) + 1L);
        if (p == NULL)
                return (p);
        for (r = p, q = s; q < e; ) {
                if (*q != '\\') {
                        *r++ = *q++;
                        continue;
                }
                i = vav_backslash_txt(q, e, r);
                if (i == 0) {
                        free(p);
                        errno = EINVAL;
                        return (NULL);
                }
                q += i;
                r++;
        }
        *r = '\0';
        return (p);
}

static char err_invalid_backslash[] = "Invalid backslash sequence";
static char err_invalid_quote[] = "Invalid '\"'";
static char err_missing_quote[] = "Missing '\"'";
static char err_missing_separator[] = "Missing separator between arguments";

char **
VAV_ParseTxt(const char *b, const char *e, int *argc, int flag)
{
        char **argv;
        const char *p, *sep;
        int nargv, largv;
        int i, quote;

        AN(b);
        if (e == NULL)
                e = strchr(b, '\0');
        sep = NULL;
        quote = 0;
        nargv = 1;
        largv = 16;
        argv = calloc(largv, sizeof *argv);
        if (argv == NULL)
                return (NULL);

        while (b < e) {
                if (isspace(*b)) {
                        b++;
                        continue;
                }
                if (sep != NULL && isspace(*sep) &&
                    *b == ',' && (flag & ARGV_COMMA)) {
                        sep = NULL;
                        b++;
                        continue;
                }
                if (sep != NULL && *sep == '"' &&
                    *b == ',' && (flag & ARGV_COMMA)) {
                        sep = NULL;
                        b++;
                        continue;
                }
                if (sep != NULL && *sep == '"' && *b == '"' && (b - sep) < 2) {
                        argv[0] = err_missing_separator;
                        return (argv);
                }
                sep = NULL;
                if ((flag & ARGV_COMMENT) && *b == '#')
                        break;
                if (*b == '"' && !(flag & ARGV_NOESC)) {
                        p = ++b;
                        quote = 1;
                } else {
                        p = b;
                        quote = 0;
                }
                while (b < e) {
                        if (*b == '\\' && !(flag & ARGV_NOESC)) {
                                i = vav_backslash_txt(b, e, NULL);
                                if (i == 0) {
                                        argv[0] = err_invalid_backslash;
                                        return (argv);
                                }
                                b += i;
                                continue;
                        }
                        if (!quote) {
                                if (isspace(*b)) {
                                        sep = b;
                                        break;
                                }
                                if ((flag & ARGV_COMMA) && *b == ',') {
                                        sep = b;
                                        break;
                                }
                                if (!(flag & ARGV_NOESC) && *b == '"') {
                                        argv[0] = err_invalid_quote;
                                        return (argv);
                                }
                                b++;
                                continue;
                        }
                        if (*b == '"' && !(flag & ARGV_NOESC)) {
                                sep = b;
                                quote = 0;
                                break;
                        }
                        b++;
                }
                if (sep == NULL && quote) {
                        argv[0] = err_missing_quote;
                        return (argv);
                }
                /*
                 * Ensure slots for 1 new arg plus 1 trailing arg,
                 * vcli_serve.c depends on this extra slot.
                 */
                if (nargv + 2 >= largv) {
                        argv = realloc(argv, sizeof (*argv) * (largv += largv));
                        assert(argv != NULL);
                }
                if (flag & ARGV_NOESC) {
                        argv[nargv] = malloc(1L + (b - p));
                        assert(argv[nargv] != NULL);
                        memcpy(argv[nargv], p, b - p);
                        argv[nargv][b - p] = '\0';
                } else {
                        argv[nargv] = VAV_BackSlashDecode(p, b);
                        assert(argv[nargv] != NULL);
                }
                nargv++;
                if (b < e)
                        b++;
        }
        if (sep != NULL && *sep == ',') {
                argv[nargv] = strdup("");
                assert(argv[nargv] != NULL);
                nargv++;
        }
        argv[nargv] = NULL;
        if (argc != NULL)
                *argc = nargv;
        return (argv);
}

char **
VAV_Parse(const char *s, int *argc, int flag)
{

        return (VAV_ParseTxt(s, NULL, argc, flag));
}

void
VAV_Free(char **argv)
{
        int i;

        for (i = 1; argv[i] != NULL; i++)
                free(argv[i]);
        free(argv);
}

#ifdef TESTPROG

#include <printf.h>

static void
VAV_Print(char **argv)
{
        int i;

        printf("---- %p\n", argv);
        if (argv[0] != NULL)
                printf("err %V\n", argv[0]);
        for (i = 1; argv[i] != NULL; i++)
                printf("%3d %V\n", i, argv[i]);
}

static void
Test(const char *str)
{
        char **av;

        printf("Test: <%V>\n", str);
        av = VAV_Parse(str, NULL, 0);
        VAV_Print(av);
}

#if defined __linux__
int
printf_v(FILE *stream, const struct printf_info *info,
    const void *const *args)
{
        const char *v = *((char **)args[0]);
        return (fprintf(stream, "%*s",
            info->left ? -info->width : info->width, v));
}

int
printf_v_info(const struct printf_info *info, size_t n, int *argtypes,
    int *size)
{
        if (n > 0)
                argtypes[0] = PA_STRING;
        return (1);
}
#endif

int
main(int argc, char **argv)
{
        char buf[BUFSIZ];

        (void)argc;
        (void)argv;

#if defined __FreeBSD__
        register_printf_render_std("V");
#elif defined __linux__
        register_printf_specifier('V', printf_v, printf_v_info);
#else
#error Unsupported platform
#endif

        while (fgets(buf, sizeof buf, stdin))
                Test(buf);

        return (0);
}
#endif

#ifdef TEST_DRIVER
#  include <stdio.h>

struct test_case {
        int             flag;
        const char      *str;
        const char      **argv;
};

static const struct test_case *tests[] = {
#define TEST_PASS(flag, str, ...)                                       \
        &(const struct test_case){flag, str,                            \
            (const char **)&(const void *[]){NULL, __VA_ARGS__, NULL}}
#define TEST_FAIL(flag, str, err)                                       \
        &(const struct test_case){flag, str,                            \
            (const char **)&(const void *[]){err_ ## err, NULL}}
#define K ARGV_COMMENT
#define C ARGV_COMMA
#define N ARGV_NOESC
        TEST_PASS(K|C|N, "", NULL),
        TEST_PASS(0    , "foo", "foo"),
        TEST_PASS(0    , "foo bar", "foo", "bar"),
        TEST_PASS(  C  , "foo bar", "foo", "bar"),
        TEST_PASS(  C  , "foo,bar", "foo", "bar"),
        TEST_PASS(0    , "  foo  bar  ", "foo", "bar"),
        TEST_PASS(  C  , "  foo  ,  bar  ", "foo", "bar"),
        TEST_PASS(  C  , "foo bar ", "foo", "bar"),
        TEST_PASS(  C  , "foo,bar,", "foo", "bar", ""),
        TEST_PASS(0    , "foo \"bar baz\"", "foo", "bar baz"),
        TEST_PASS(0    , "foo #bar", "foo", "#bar"),
        TEST_PASS(K    , "foo #bar", "foo"),
        TEST_PASS(0    , "foo#bar", "foo#bar"),
        TEST_PASS(K    , "foo#bar", "foo#bar"),
        TEST_PASS(    N, "\\", "\\"),
        TEST_FAIL(0    , "\\", invalid_backslash),
        TEST_FAIL(0    , "\\x", invalid_backslash),
        TEST_FAIL(0    , "\\x2", invalid_backslash),
        TEST_FAIL(0    , "\\x2O", invalid_backslash),
        TEST_PASS(0    , "\\x20", " "),
        TEST_FAIL(0    , "\"foo", missing_quote),
        TEST_PASS(    N, "foo\"bar", "foo\"bar"),
        TEST_FAIL(0    , "foo\"bar", invalid_quote),
        TEST_FAIL(0    , "foo\"bar", invalid_quote),
        TEST_PASS(0    , "\"foo\" \"bar\"", "foo", "bar"),
        TEST_PASS(  C  , "\"foo\",\"bar\"", "foo", "bar"),
        TEST_PASS(    N, "\"foo\"\"bar\"", "\"foo\"\"bar\""),
        TEST_FAIL(0    , "\"foo\"\"bar\"", missing_separator),
        NULL
#undef N
#undef C
#undef K
#undef TEST_FAIL
#undef TEST_PASS
};

static char **
test_run(const struct test_case *tc, int *ret)
{
        const char *exp, *act;
        char **argv, *tmp;
        int argc, i;

        i = vstrlen(tc->str);
        if (i == 0) {
                argv = VAV_Parse(tc->str, &argc, tc->flag);
        } else {
                tmp = malloc(i); /* sanitizer-friendly */
                AN(tmp);
                memcpy(tmp, tc->str, i);
                argv = VAV_ParseTxt(tmp, tmp + i, &argc, tc->flag);
                free(tmp);
        }
        AN(argv);

        if (tc->argv[0] != argv[0]) {
                exp = tc->argv[0] != NULL ? tc->argv[0] : "success";
                act = argv[0] != NULL ? argv[0] : "success";
                printf(
                    "ERROR: Parsing string <%s> with flags %x, "
                    "expected <%s> got <%s>.\n",
                    tc->str, tc->flag, exp, act);
                *ret = 1;
                return (argv);
        }

        for (i = 1; i < argc && tc->argv[i] != NULL && argv[i] != NULL; i++) {
                if (!vstrcmp(tc->argv[i], argv[i]))
                        continue;
                printf(
                    "ERROR: Parsing string <%s> with flags %x, "
                    "expected <%s> for argv[%d] got <%s>.\n",
                    tc->str, tc->flag, tc->argv[i], i, argv[i]);
                *ret = 1;
                return (argv);
        }

        if (tc->argv[0] == NULL && (tc->argv[i] != NULL || argv[i] != NULL)) {
                act = i < argc ? "less" : "more";
                printf(
                    "ERROR: Parsing string <%s> with flags %x, "
                    "got %s arguments (%d) than expected.\n",
                    tc->str, tc->flag, act, argc);
                *ret = 1;
                return (argv);
        }

        exp = tc->argv[0] == NULL ? "PASS" : "FAIL";
        printf("%s: <%s> with flags %x as expected.\n", exp, tc->str, tc->flag);
        return (argv);
}

int
main(int argc, char **argv)
{
        const struct test_case **tc;
        int ret = 0, fail = 0;

        (void)argc;
        (void)argv;

        for (tc = tests; *tc != NULL; ret = 0, tc++) {
                argv = test_run(*tc, &ret);
                VAV_Free(argv);
                if (ret)
                        fail = 1;
        }
        return (fail);
}
#endif /* TEST_DRIVER */

		vinyl-cache/lib/libvinyl/vav.c
0		/*-
1		* Copyright (c) 2006 Verdens Gang AS
2		* Copyright (c) 2006-2011 Varnish Software AS
3		* All rights reserved.
4		*
5		* Author: Poul-Henning Kamp <phk@phk.freebsd.dk>
6		*
7		* SPDX-License-Identifier: BSD-2-Clause
8		*
9		* Redistribution and use in source and binary forms, with or without
10		* modification, are permitted provided that the following conditions
11		* are met:
12		* 1. Redistributions of source code must retain the above copyright
13		* notice, this list of conditions and the following disclaimer.
14		* 2. Redistributions in binary form must reproduce the above copyright
15		* notice, this list of conditions and the following disclaimer in the
16		* documentation and/or other materials provided with the distribution.
17		*
18		* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
19		* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20		* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
21		* ARE DISCLAIMED. IN NO EVENT SHALL AUTHOR OR CONTRIBUTORS BE LIABLE
22		* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23		* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
24		* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
25		* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
26		* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27		* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28		* SUCH DAMAGE.
29		*
30		* const char *VAV_Parse(const char s, int *argc, int flag)
31		* Parse a command like line into an argv[]
32		* Index zero contains NULL or an error message
33		* (The error message is a static const char* and does not
34		* need saving or copying.)
35		* "double quotes" and backslash substitution is handled.
36		*
37		* void VAV_Free(const char **argv)
38		* Free the result of VAV_Parse()
39		*
40		*/
41
42		#include "config.h"
43
44		#include <ctype.h>
45		#include <stdint.h>
46		#include <stdio.h>
47		#include <stdlib.h>
48		#include <string.h>
49
50		#include "vdef.h"
51
52		#include "vas.h"
53		#include "vav.h"
54		#include "vnum.h"
55
56		static int
57	9182	vav_backslash_txt(const char s, const char e, char *res)
58		{
59		int r, l, i;
60		const char *p;
61		char c;
62
63	9182	AN(s);
64	9182	if (e == NULL)
65	8912	e = strchr(s, '\0');
66
67	9182	l = pdiff(s, e);
68	9182	if (l < 2)
69	3	return (0);
70
71	9179	assert(*s == '\\');
72	9179	r = c = 0;
73	9179	switch (s[1]) {
74		case 'n':
75	4399	c = '\n';
76	4399	r = 2;
77	4399	break;
78		case 'r':
79	3334	c = '\r';
80	3334	r = 2;
81	3334	break;
82		case 't':
83	69	c = '\t';
84	69	r = 2;
85	69	break;
86		case '"':
87	444	c = '"';
88	444	r = 2;
89	444	break;
90		case '\\':
91	147	c = '\\';
92	147	r = 2;
93	147	break;
94		case '0': case '1': case '2': case '3':
95		case '4': case '5': case '6': case '7':
96	60	for (r = 1; r < 4 && r < l; r++) {
97	48	if (!isdigit(s[r]))
98	6	break;
99	42	if (s[r] - '0' > 7)
100	0	break;
101	42	c <<= 3; /lint !e701 signed left shift /
102	42	c \|= s[r] - '0';
103	42	}
104	18	break;
105		case 'x':
106	720	if (l >= 4 && (i = VNUM_hex(s + 2, s + 4, &p)) >= 0 &&
107	714	p == s + 4) {
108	711	AZ(i & ~0xff);
109	711	c = i; /lint !e734 loss of precision /
110	711	r = 4;
111	711	}
112	720	break;
113		default:
114	48	break;
115		}
116	9179	if (res != NULL)
117	9041	*res = c;
118	9179	return (r);
119	9182	}
120
121		int
122	8912	VAV_BackSlash(const char s, char res)
123		{
124
125	8912	return (vav_backslash_txt(s, NULL, res));
126		}
127
128		char *
129	1693698	VAV_BackSlashDecode(const char s, const char e)
130		{
131		const char *q;
132		char p, r;
133		int i;
134
135	1693698	if (e == NULL)
136	0	e = strchr(s, '\0');
137	1693698	assert(e != NULL);
138	1693698	p = calloc(1, (e - s) + 1L);
139	1693698	if (p == NULL)
140	0	return (p);
141	15395642	for (r = p, q = s; q < e; ) {
142	13701944	if (*q != '\\') {
143	13701815	r++ = q++;
144	13701815	continue;
145		}
146	129	i = vav_backslash_txt(q, e, r);
147	129	if (i == 0) {
148	0	free(p);
149	0	errno = EINVAL;
150	0	return (NULL);
151		}
152	129	q += i;
153	129	r++;
154		}
155	1693698	*r = '\0';
156	1693698	return (p);
157	1693698	}
158
159		static char err_invalid_backslash[] = "Invalid backslash sequence";
160		static char err_invalid_quote[] = "Invalid '\"'";
161		static char err_missing_quote[] = "Missing '\"'";
162		static char err_missing_separator[] = "Missing separator between arguments";
163
164		char **
165	438279	VAV_ParseTxt(const char b, const char e, int *argc, int flag)
166		{
167		char **argv;
168		const char p, sep;
169		int nargv, largv;
170		int i, quote;
171
172	438279	AN(b);
173	438279	if (e == NULL)
174	399864	e = strchr(b, '\0');
175	438279	sep = NULL;
176	438279	quote = 0;
177	438279	nargv = 1;
178	438279	largv = 16;
179	438279	argv = calloc(largv, sizeof *argv);
180	438279	if (argv == NULL)
181	0	return (NULL);
182
183	2426572	while (b < e) {
184	1988332	if (isspace(*b)) {
185	294084	b++;
186	294084	continue;
187		}
188	1694251	if (sep != NULL && isspace(*sep) &&
189	1157392	*b == ',' && (flag & ARGV_COMMA)) {
190	3	sep = NULL;
191	3	b++;
192	3	continue;
193		}
194	1694248	if (sep != NULL && *sep == '"' &&
195	3090	*b == ',' && (flag & ARGV_COMMA)) {
196	3	sep = NULL;
197	3	b++;
198	3	continue;
199		}
200	1694242	if (sep != NULL && sep == '"' && b == '"' && (b - sep) < 2) {
201	3	argv[0] = err_missing_separator;
202	3	return (argv);
203		}
204	1694239	sep = NULL;
205	1694239	if ((flag & ARGV_COMMENT) && *b == '#')
206	3	break;
207	1694236	if (*b == '"' && !(flag & ARGV_NOESC)) {
208	6099	p = ++b;
209	6099	quote = 1;
210	6099	} else {
211	1688137	p = b;
212	1688137	quote = 0;
213		}
214	15399281	while (b < e) {
215	14998173	if (*b == '\\' && !(flag & ARGV_NOESC)) {
216	141	i = vav_backslash_txt(b, e, NULL);
217	141	if (i == 0) {
218	12	argv[0] = err_invalid_backslash;
219	12	return (argv);
220		}
221	129	b += i;
222	129	continue;
223		}
224	14998032	if (!quote) {
225	14965441	if (isspace(*b)) {
226	1191530	sep = b;
227	1191530	break;
228		}
229	13773911	if ((flag & ARGV_COMMA) && *b == ',') {
230	95496	sep = b;
231	95496	break;
232		}
233	13678415	if (!(flag & ARGV_NOESC) && *b == '"') {
234	6	argv[0] = err_invalid_quote;
235	6	return (argv);
236		}
237	13678409	b++;
238	13678409	continue;
239		}
240	32591	if (*b == '"' && !(flag & ARGV_NOESC)) {
241	6084	sep = b;
242	6084	quote = 0;
243	6084	break;
244		}
245	26507	b++;
246		}
247	1694218	if (sep == NULL && quote) {
248	15	argv[0] = err_missing_quote;
249	15	return (argv);
250		}
251		/*
252		* Ensure slots for 1 new arg plus 1 trailing arg,
253		* vcli_serve.c depends on this extra slot.
254		*/
255	1694203	if (nargv + 2 >= largv) {
256	3285	argv = realloc(argv, sizeof (argv) (largv += largv));
257	3285	assert(argv != NULL);
258	3285	}
259	1694203	if (flag & ARGV_NOESC) {
260	504	argv[nargv] = malloc(1L + (b - p));
261	504	assert(argv[nargv] != NULL);
262	504	memcpy(argv[nargv], p, b - p);
263	504	argv[nargv][b - p] = '\0';
264	504	} else {
265	1693699	argv[nargv] = VAV_BackSlashDecode(p, b);
266	1693699	assert(argv[nargv] != NULL);
267		}
268	1694203	nargv++;
269	1694203	if (b < e)
270	1293110	b++;
271		}
272	438243	if (sep != NULL && *sep == ',') {
273	3	argv[nargv] = strdup("");
274	3	assert(argv[nargv] != NULL);
275	3	nargv++;
276	3	}
277	438243	argv[nargv] = NULL;
278	438243	if (argc != NULL)
279	412827	*argc = nargv;
280	438243	return (argv);
281	438279	}
282
283		char **
284	399864	VAV_Parse(const char s, int argc, int flag)
285		{
286
287	399864	return (VAV_ParseTxt(s, NULL, argc, flag));
288		}
289
290		void
291	423066	VAV_Free(char **argv)
292		{
293		int i;
294
295	2078086	for (i = 1; argv[i] != NULL; i++)
296	1655020	free(argv[i]);
297	423066	free(argv);
298	423066	}
299
300		#ifdef TESTPROG
301
302		#include <printf.h>
303
304		static void
305		VAV_Print(char **argv)
306		{
307		int i;
308
309		printf("---- %p\n", argv);
310		if (argv[0] != NULL)
311		printf("err %V\n", argv[0]);
312		for (i = 1; argv[i] != NULL; i++)
313		printf("%3d %V\n", i, argv[i]);
314		}
315
316		static void
317		Test(const char *str)
318		{
319		char **av;
320
321		printf("Test: <%V>\n", str);
322		av = VAV_Parse(str, NULL, 0);
323		VAV_Print(av);
324		}
325
326		#if defined __linux__
327		int
328		printf_v(FILE stream, const struct printf_info info,
329		const void const args)
330		{
331		const char v = ((char **)args[0]);
332		return (fprintf(stream, "%*s",
333		info->left ? -info->width : info->width, v));
334		}
335
336		int
337		printf_v_info(const struct printf_info info, size_t n, int argtypes,
338		int *size)
339		{
340		if (n > 0)
341		argtypes[0] = PA_STRING;
342		return (1);
343		}
344		#endif
345
346		int
347		main(int argc, char **argv)
348		{
349		char buf[BUFSIZ];
350
351		(void)argc;
352		(void)argv;
353
354		#if defined __FreeBSD__
355		register_printf_render_std("V");
356		#elif defined __linux__
357		register_printf_specifier('V', printf_v, printf_v_info);
358		#else
359		#error Unsupported platform
360		#endif
361
362		while (fgets(buf, sizeof buf, stdin))
363		Test(buf);
364
365		return (0);
366		}
367		#endif
368
369		#ifdef TEST_DRIVER
370		# include <stdio.h>
371
372		struct test_case {
373		int flag;
374		const char *str;
375		const char **argv;
376		};
377
378		static const struct test_case *tests[] = {
379		#define TEST_PASS(flag, str, ...) \
380		&(const struct test_case){flag, str, \
381		(const char *)&(const void []){NULL, __VA_ARGS__, NULL}}
382		#define TEST_FAIL(flag, str, err) \
383		&(const struct test_case){flag, str, \
384		(const char *)&(const void []){err_ ## err, NULL}}
385		#define K ARGV_COMMENT
386		#define C ARGV_COMMA
387		#define N ARGV_NOESC
388		TEST_PASS(K\|C\|N, "", NULL),
389		TEST_PASS(0 , "foo", "foo"),
390		TEST_PASS(0 , "foo bar", "foo", "bar"),
391		TEST_PASS( C , "foo bar", "foo", "bar"),
392		TEST_PASS( C , "foo,bar", "foo", "bar"),
393		TEST_PASS(0 , " foo bar ", "foo", "bar"),
394		TEST_PASS( C , " foo , bar ", "foo", "bar"),
395		TEST_PASS( C , "foo bar ", "foo", "bar"),
396		TEST_PASS( C , "foo,bar,", "foo", "bar", ""),
397		TEST_PASS(0 , "foo \"bar baz\"", "foo", "bar baz"),
398		TEST_PASS(0 , "foo #bar", "foo", "#bar"),
399		TEST_PASS(K , "foo #bar", "foo"),
400		TEST_PASS(0 , "foo#bar", "foo#bar"),
401		TEST_PASS(K , "foo#bar", "foo#bar"),
402		TEST_PASS( N, "\\", "\\"),
403		TEST_FAIL(0 , "\\", invalid_backslash),
404		TEST_FAIL(0 , "\\x", invalid_backslash),
405		TEST_FAIL(0 , "\\x2", invalid_backslash),
406		TEST_FAIL(0 , "\\x2O", invalid_backslash),
407		TEST_PASS(0 , "\\x20", " "),
408		TEST_FAIL(0 , "\"foo", missing_quote),
409		TEST_PASS( N, "foo\"bar", "foo\"bar"),
410		TEST_FAIL(0 , "foo\"bar", invalid_quote),
411		TEST_FAIL(0 , "foo\"bar", invalid_quote),
412		TEST_PASS(0 , "\"foo\" \"bar\"", "foo", "bar"),
413		TEST_PASS( C , "\"foo\",\"bar\"", "foo", "bar"),
414		TEST_PASS( N, "\"foo\"\"bar\"", "\"foo\"\"bar\""),
415		TEST_FAIL(0 , "\"foo\"\"bar\"", missing_separator),
416		NULL
417		#undef N
418		#undef C
419		#undef K
420		#undef TEST_FAIL
421		#undef TEST_PASS
422		};
423
424		static char **
425	84	test_run(const struct test_case tc, int ret)
426		{
427		const char exp, act;
428		char *argv, tmp;
429		int argc, i;
430
431	84	i = vstrlen(tc->str);
432	84	if (i == 0) {
433	3	argv = VAV_Parse(tc->str, &argc, tc->flag);
434	3	} else {
435	81	tmp = malloc(i); /* sanitizer-friendly */
436	81	AN(tmp);
437	81	memcpy(tmp, tc->str, i);
438	81	argv = VAV_ParseTxt(tmp, tmp + i, &argc, tc->flag);
439	81	free(tmp);
440		}
441	84	AN(argv);
442
443	84	if (tc->argv[0] != argv[0]) {
444	0	exp = tc->argv[0] != NULL ? tc->argv[0] : "success";
445	0	act = argv[0] != NULL ? argv[0] : "success";
446	0	printf(
447		"ERROR: Parsing string <%s> with flags %x, "
448		"expected <%s> got <%s>.\n",
449	0	tc->str, tc->flag, exp, act);
450	0	*ret = 1;
451	0	return (argv);
452		}
453
454	177	for (i = 1; i < argc && tc->argv[i] != NULL && argv[i] != NULL; i++) {
455	93	if (!vstrcmp(tc->argv[i], argv[i]))
456	93	continue;
457	0	printf(
458		"ERROR: Parsing string <%s> with flags %x, "
459		"expected <%s> for argv[%d] got <%s>.\n",
460	0	tc->str, tc->flag, tc->argv[i], i, argv[i]);
461	0	*ret = 1;
462	0	return (argv);
463		}
464
465	84	if (tc->argv[0] == NULL && (tc->argv[i] != NULL \|\| argv[i] != NULL)) {
466	0	act = i < argc ? "less" : "more";
467	0	printf(
468		"ERROR: Parsing string <%s> with flags %x, "
469		"got %s arguments (%d) than expected.\n",
470	0	tc->str, tc->flag, act, argc);
471	0	*ret = 1;
472	0	return (argv);
473		}
474
475	84	exp = tc->argv[0] == NULL ? "PASS" : "FAIL";
476	84	printf("%s: <%s> with flags %x as expected.\n", exp, tc->str, tc->flag);
477	84	return (argv);
478	84	}
479
480		int
481	3	main(int argc, char **argv)
482		{
483		const struct test_case **tc;
484	3	int ret = 0, fail = 0;
485
486	3	(void)argc;
487	3	(void)argv;
488
489	87	for (tc = tests; *tc != NULL; ret = 0, tc++) {
490	84	argv = test_run(*tc, &ret);
491	84	VAV_Free(argv);
492	84	if (ret)
493	0	fail = 1;
494	84	}
495	3	return (fail);
496		}
497		#endif /* TEST_DRIVER */