xump_headers.icl

<?xml?>
<!--
    Copyright (c) 1996-2009 iMatix Corporation

    This file is licensed under the GPL as follows:

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or (at
    your option) any later version.

    This program is distributed in the hope that it will be useful, but
    WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
    General Public License for more details.

    For information on alternative licensing for OEMs, please contact
    iMatix Corporation.
 -->
<class
    name      = "xump_headers"
    comment   = "Xump headers class"
    script    = "icl_gen"
    license   = "gpl"
    opaque    = "1"
    >
<doc>
The xump_headers class implements a environ-style headers block.
</doc>

<inherit class = "icl_object">
    <option name = "alloc" value = "cache" />
    <option name = "links" value = "1" />
</inherit>

<import class = "xump" />

<context>
    icl_longstr_t
        *longstr;                       //  Data for headers table
</context>

<method name = "new">
    //  Constructor is deliberately empty
</method>

<method name = "destroy">
    icl_longstr_destroy (&self->longstr);
</method>

<method name = "set" template = "function">
    <doc>
    Sets a header value.
    </doc>
    <argument name = "name"  type = "char *" />
    <argument name = "value" type = "char *" />
    //
    //  Name may not contain '=', that's a fail
    assert (strchr (name, '=') == NULL);
    if (self->longstr) {
        //  Look for existing value, squash if any
        icl_shortstr_t
            name_key;
        char
            *found;

        icl_shortstr_fmt (name_key, "%s=", name);
        found = (char *) icl_longstr_find (
            self->longstr, 0, (byte *) name_key, strlen (name_key));
        if (found) {
            byte
                *next = (byte *) strchr (found, 0) + 1;
            self->longstr->cur_size -= (next - self->longstr->data);
            memcpy (found, next, self->longstr->cur_size);
        }
        //  String ends in double null, we'll quash the last one
        if (self->longstr->cur_size)
            self->longstr->cur_size--;
    }
    else
        self->longstr = icl_longstr_new (NULL, 1024);

    icl_longstr_cat (self->longstr, "%s=%s%c%c", name, value, 0, 0);
</method>

<method name = "get" return = "value">
    <doc>
    Returns value of specified header; if not found returns an empty string.
    </doc>
    <argument name = "self" type = "$(selftype) *" />
    <argument name = "name" type = "char *" />
    <declare name = "value" type = "char *" />
    value = "";                         //  Default is empty string
    if (self->longstr) {
        icl_shortstr_t
            name_key;
        char
            *found;

        icl_shortstr_fmt (name_key, "%s=", name);
        found = (char *) icl_longstr_find (
            self->longstr, 0, (byte *) name_key, strlen (name_key));
        if (found)
            value = found + strlen (name_key);
    }
</method>

<method name = "selftest">
    xump_headers_t
        *headers;

    headers = xump_headers_new ();
    xump_headers_set (headers, "a", "one");
    xump_headers_set (headers, "b", "two");
    xump_headers_set (headers, "c", "three");
    xump_headers_set (headers, "a", "value");
    assert (streq (xump_headers_get (headers, "a"), "value"));
    assert (streq (xump_headers_get (headers, "z"), ""));
    xump_headers_destroy (&headers);
</method>

</class>