configured_symbols.c

Go to the documentation of this file.

/***************************************************************************
 *   Copyright (C) 2007-2011 Mike Kinghan, imk@strudl.org                  *
 *   All rights reserved.                                                  *
 *                                                                         *
 *   Contributed originally by Mike Kinghan, imk@strudl.org                *
 *                                                                         *
 *   Redistribution and use in source and binary forms, with or without    *
 *   modification, are permitted provided that the following conditions    *
 *   are met:                                                              *
 *                                                                         *
 *   Redistributions of source code must retain the above copyright        *
 *   notice, this list of conditions and the following disclaimer.         *
 *                                                                         *
 *   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.  *
 *                                                                         *
 *   Neither the name of Symbian Software Ltd. nor the names of its        *
 *   contributors may be used to endorse or promote products derived from  *
 *   this software without specific prior written permission.              *
 *                                                                         *
 *   THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS 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 THE        *
 *   COPYRIGHT OWNER 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 "configured_symbols.h"
#include "report.h"
#include "io.h"

NO_PRIVATE_STATE(configured_symbols);
IMPLEMENT(configured_symbols,USER_INITABLE);

DEFINE_USER_INIT(configured_symbols)(STATE_T(configured_symbols) * st_state)
{
    st_state->global_sym_tab = ptr_set_new((comparator_t)symbol_compare,
                                    (dtor_t)symbol_dispose,
                                    (cloner_t)symbol_copy);

    st_state->sym_tab = ptr_set_new((comparator_t)symbol_compare,
                                    (dtor_t)symbol_dispose,
                                    (cloner_t)symbol_copy);

}

DEFINE_USER_FINIS(configured_symbols)(STATE_T(configured_symbols) * st_state)
{
    ptr_set_dispose(st_state->global_sym_tab);
    ptr_set_dispose(st_state->sym_tab);
}
/* API*/

symbol_const_h
configured_symbol_seek_const(char const **cpp)
{
        canonical_string_h symname ;
    assert(cpp);
    symname = canonical_identifier(cpp);
    if (!*canonical_string_text(symname)) {
        bail(   GRIPE_NOT_IDENTIFIER,
                "Identifier needed instead of \"%s\"",
                *cpp);
    }
    return configured_symbol_match_const(canonical_string_text(symname),0);
}

symbol_h
configured_symbol_seek(char const **cpp)
{
    return (symbol_h)configured_symbol_seek_const(cpp);
}

symbol_const_h
configured_symbol_match_const(char const * symname, size_t namelen)
{
    symbol_const_h sym = NULL;
    ptr_set_h sym_tab = INSOURCE ?
            GET_PUBLIC(configured_symbols,sym_tab) : GET_PUBLIC(configured_symbols,global_sym_tab);
    assert(symname);
    if (symname[0]) {
        if (!namelen) {
            namelen = strlen(symname);
        }
        sym = ptr_set_search(sym_tab,symname,namelen);
        if (sym) {
            debug(DBG_18, symbol_name(sym),symbol_definition(sym));
            if (!symbol_is_configured(sym)) {
                sym = NULL;
            }
        }
    }
    return sym;
}

symbol_h
configured_symbol_match(char const * symname, size_t namelen)
{
    return (symbol_h)configured_symbol_match_const(symname,namelen);
}

line_type_t
configured_symbol_add(bool define, symbol_h sym, char const *tail, char const **pend)
{
    ptr_set_h sym_tab = INSOURCE ? GET_PUBLIC(configured_symbols,sym_tab) : GET_PUBLIC(configured_symbols,global_sym_tab);
    line_type_t retval = define ? symbol_define(sym,tail,pend) : symbol_undefine(sym,tail,pend);
    if (retval == LT_DIRECTIVE_KEEP && symbol_is_configured(sym)) {
        ptr_set_insert(sym_tab,sym);
    }
    return retval;
}

void
configured_symbols_rewind(void)
{
    ptr_set_assign(GET_PUBLIC(configured_symbols,sym_tab),GET_PUBLIC(configured_symbols,global_sym_tab));
}

symbol_h
configured_symbol_find(canonical_string_const_h cs, size_t *start)
{
    size_t offset;
    ptr_set_const_h ps;
    symbol_h hit = NULL;
    assert(cs);
    assert(start);
    offset = *start;
    if (offset < canonical_string_length(cs)) {
        symbol_h * psym;
        symbol_h *pend;
        char const *text = canonical_string_text(cs) + offset;
        char const *textend = text + strlen(text);
        ps = GET_PUBLIC(configured_symbols,sym_tab);
        psym = (symbol_h *)ptr_set_begin_const(ps);
        pend = (symbol_h *)ptr_set_end_const(ps);
        for (   ;psym < pend && !hit; ++psym) {
            symbol_h sym = *psym;
            char const *symname = symbol_name(sym);
            char const *where = strstr(text,symname);
            if (where) {
                char const *symend = where + strlen(symname);
                if (((where == text) || !is_symbol_inner_char(where[-1]))
                    && ((symend == textend) || !is_symbol_inner_char(symend[0]))) {
                        *start = where - canonical_string_text(cs);
                        hit = sym;
                }
            }
        }
    }
    return hit;
}


/* EOF*/