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