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.
 */

#include "config.h"

#include <stdlib.h>
#include <string.h>

#include "vcc_compile.h"

#include "vct.h"

/*--------------------------------------------------------------------*/

void
vcc_Header_Fh(const struct vcc *tl, const struct symbol *sym)
{
        const struct symbol *parent;

        AN(tl);
        AN(sym);
        AZ(sym->wildcard);
        assert(sym->type == HEADER);

        parent = sym->eval_priv;
        AN(parent);
        AN(parent->wildcard);
        assert(parent->type == HEADER);

        /* Create the static identifier */
        Fh(tl, 0, "static const struct gethdr_s %s =\n", sym->rname + 1);
        Fh(tl, 0, "    { %s, HDR(\"%s\")};\n", parent->rname, sym->name);
}

/*--------------------------------------------------------------------*/

void v_matchproto_(sym_wildcard_t)
vcc_Var_Wildcard(struct vcc *tl, struct symbol *parent, struct symbol *sym)
{
        struct vsb *vsb;
        const char *p;

        AN(sym);
        assert(parent->type == HEADER);

        if (strlen(sym->name) >= 127) {
                VSB_printf(tl->sb, "HTTP header (%.20s..) is too long.\n",
                    sym->name);
                tl->err = 1;
                return;
        }

        for (p = sym->name; *p != '\0'; p++) {
                if (!vct_istchar(*p)) {
                        VSB_cat(tl->sb, "Invalid character '");
                        VSB_quote(tl->sb, p, 1, VSB_QUOTE_PLAIN);
                        VSB_cat(tl->sb, "' in header name.\n");
                        tl->err = 1;
                        return;
                }
        }

        sym->noref = 1;
        sym->kind = SYM_VAR;
        sym->type = parent->type;
        sym->eval = vcc_Eval_Var;
        sym->eval_priv = parent;
        sym->r_methods = parent->r_methods;
        sym->w_methods = parent->w_methods;
        sym->u_methods = parent->u_methods;

        /* Create a C-name version of the header name */
        vsb = VSB_new_auto();
        AN(vsb);
        VSB_printf(vsb, "&VGC_%s_", parent->rname);
        VCC_PrintCName(vsb, sym->name, NULL);
        AZ(VSB_finish(vsb));

        /* Create the symbol r/l values */
        sym->rname = TlDup(tl, VSB_data(vsb));

        if (sym->w_methods) {
                VSB_clear(vsb);
                VSB_printf(vsb, "VRT_SetHdr(ctx, %s,", sym->rname);
                AZ(VSB_finish(vsb));
                sym->lname = TlDup(tl, VSB_data(vsb));
        }

        if (sym->u_methods) {
                VSB_clear(vsb);
                VSB_printf(vsb, "VRT_UnsetHdr(ctx, %s)", sym->rname);
                AZ(VSB_finish(vsb));
                sym->uname = TlDup(tl, VSB_data(vsb));
        }
        VSB_destroy(&vsb);

        if (sym->lorev > 0)
                vcc_Header_Fh(tl, sym);
}

		varnish-cache/lib/libvcc/vcc_var.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
31		#include "config.h"
32
33		#include <stdlib.h>
34		#include <string.h>
35
36		#include "vcc_compile.h"
37
38		#include "vct.h"
39
40		/--------------------------------------------------------------------/
41
42		void
43	1432800	vcc_Header_Fh(const struct vcc tl, const struct symbol sym)
44		{
45		const struct symbol *parent;
46
47	1432800	AN(tl);
48	1432800	AN(sym);
49	1432800	AZ(sym->wildcard);
50	1432800	assert(sym->type == HEADER);
51
52	1432800	parent = sym->eval_priv;
53	1432800	AN(parent);
54	1432800	AN(parent->wildcard);
55	1432800	assert(parent->type == HEADER);
56
57		/* Create the static identifier */
58	1432800	Fh(tl, 0, "static const struct gethdr_s %s =\n", sym->rname + 1);
59	1432800	Fh(tl, 0, " { %s, HDR(\"%s\")};\n", parent->rname, sym->name);
60	1432800	}
61
62		/--------------------------------------------------------------------/
63
64		void v_matchproto_(sym_wildcard_t)
65	2408120	vcc_Var_Wildcard(struct vcc tl, struct symbol parent, struct symbol *sym)
66		{
67		struct vsb *vsb;
68		const char *p;
69
70	2408120	AN(sym);
71	2408120	assert(parent->type == HEADER);
72
73	2408120	if (strlen(sym->name) >= 127) {
74	80	VSB_printf(tl->sb, "HTTP header (%.20s..) is too long.\n",
75	40	sym->name);
76	40	tl->err = 1;
77	40	return;
78		}
79
80	32313320	for (p = sym->name; *p != '\0'; p++) {
81	29905280	if (!vct_istchar(*p)) {
82	40	VSB_cat(tl->sb, "Invalid character '");
83	40	VSB_quote(tl->sb, p, 1, VSB_QUOTE_PLAIN);
84	40	VSB_cat(tl->sb, "' in header name.\n");
85	40	tl->err = 1;
86	40	return;
87		}
88	29905240	}
89
90	2408040	sym->noref = 1;
91	2408040	sym->kind = SYM_VAR;
92	2408040	sym->type = parent->type;
93	2408040	sym->eval = vcc_Eval_Var;
94	2408040	sym->eval_priv = parent;
95	2408040	sym->r_methods = parent->r_methods;
96	2408040	sym->w_methods = parent->w_methods;
97	2408040	sym->u_methods = parent->u_methods;
98
99		/* Create a C-name version of the header name */
100	2408040	vsb = VSB_new_auto();
101	2408040	AN(vsb);
102	2408040	VSB_printf(vsb, "&VGC_%s_", parent->rname);
103	2408040	VCC_PrintCName(vsb, sym->name, NULL);
104	2408040	AZ(VSB_finish(vsb));
105
106		/* Create the symbol r/l values */
107	2408040	sym->rname = TlDup(tl, VSB_data(vsb));
108
109	2408040	if (sym->w_methods) {
110	2407720	VSB_clear(vsb);
111	2407720	VSB_printf(vsb, "VRT_SetHdr(ctx, %s,", sym->rname);
112	2407720	AZ(VSB_finish(vsb));
113	2407720	sym->lname = TlDup(tl, VSB_data(vsb));
114	2407720	}
115
116	2408040	if (sym->u_methods) {
117	2407720	VSB_clear(vsb);
118	2407720	VSB_printf(vsb, "VRT_UnsetHdr(ctx, %s)", sym->rname);
119	2407720	AZ(VSB_finish(vsb));
120	2407720	sym->uname = TlDup(tl, VSB_data(vsb));
121	2407720	}
122	2408040	VSB_destroy(&vsb);
123
124	2408040	if (sym->lorev > 0)
125	1432360	vcc_Header_Fh(tl, sym);
126	2408120	}