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