src/server/config/serverconf.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2013 Olaf Wintermann. All rights reserved.
 *
 * 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 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 HOLDER 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 <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "serverconf.h"

ServerConfig *load_server_config(char *file) {
    FILE *in = fopen(file, "r");
    if(in == NULL) {
        return NULL;
    }

    ServerConfig *conf = malloc(sizeof(ServerConfig));
    conf->parser.parse = serverconf_parse;
    conf->file = file;
    conf->objects = ucx_map_new(16);
    conf->obj = NULL;
    
    int r = cfg_parse_basic_file((ConfigParser*)conf, in);
    cfg_map_destr(conf->parser.mp, conf->objects);
    if(r != 0) {
        // TODO: free
        return NULL;
    }
    
    fclose(in);

    return conf;
}

void free_server_config(ServerConfig *conf) {
    ucx_mempool_destroy(conf->parser.mp);
    free(conf);
}

int serverconf_parse(void *p, ConfigLine *begin, ConfigLine *end, sstr_t line){
    ServerConfig *conf = p;
    UcxMempool *mp = conf->parser.mp;
    
    begin->type = cfg_get_line_type(line);
    switch(begin->type) {
        case LINE_BEGIN_TAG: {
            ConfigTag *tag = cfg_parse_begin_tag(line, conf->parser.mp);

            // create server config object
            ServerConfigObject *obj = OBJ_NEW(
                    conf->parser.mp,
                    ServerConfigObject);
            obj->type = tag->name;
            obj->begin = begin;
            obj->end = end;
            obj->directives = NULL;

            // add object to server config
            UcxList *list = ucx_map_sstr_get(conf->objects, obj->type);
            list = cfg_list_append(mp, list, obj);
            ucx_map_sstr_put(conf->objects, obj->type, list);
            conf->obj = obj;

            break;
        }
        case LINE_END_TAG: {
            sstr_t tag = cfg_get_end_tag_name(line);
            if(sstrcmp(tag, conf->obj->type) != 0) {
                fprintf(stderr, "syntax error: wrong close tag\n");
                fprintf(stderr, "open tag: %s   close tag: %s\n", sstrdup(tag).ptr, sstrdup(conf->obj->type).ptr);
                exit(-1);
            }
            conf->obj = NULL;

            break;
        }
        case LINE_DIRECTIVE: {
            if(conf->obj == NULL) {
                fprintf(stderr, "syntax error: directive outside of object\n");
                exit(-1);
            }

            ConfigDirective *d = cfg_parse_directive(line, conf->parser.mp);
            d->begin = begin;
            d->end = end;

            //printf("%s.%s\n", conf->obj->type.ptr, d->directive_type.ptr);
            conf->obj->directives = cfg_dlist_append(mp, conf->obj->directives, d);
        }
    }
    return 0;
}


UcxList* srvcfg_get_listeners(ServerConfig *cfg, UcxMempool *mp, int *error) {
    mp = mp ? mp : cfg->parser.mp;
    
    UcxList *list = ucx_map_sstr_get(cfg->objects, sstrn("Listener", 8));
    UcxList *lslist = NULL;
    UCX_FOREACH(UcxList*, list, elm) {
        ServerConfigObject *ls = elm->data;
        sstr_t name = cfg_directivelist_get_str(ls->directives, sstr("Name"));
        sstr_t port = cfg_directivelist_get_str(ls->directives, sstr("Port"));
        sstr_t vs = cfg_directivelist_get_str(
                ls->directives,
                sstr("DefaultVS"));
        sstr_t threadpool = cfg_directivelist_get_str(
                ls->directives,
                sstr("Threadpool"));
        
        CfgListener *listener = ucx_mempool_calloc(mp, 1, sizeof(CfgListener));
        // threadpool is optional, all other configs must be set
        if(!name.ptr || !port.ptr || !vs.ptr) {
            // TODO: log error
            *error = 1;
            listener->cfg_correct = 0;
        } else {
            listener->cfg_correct = 1;
        }
        
        if(name.ptr) {
            listener->name = sstrdup_mp(mp, name);
        }
        if(port.ptr) {
            // don't expect that port is null terminated, sstrdup it to be sure
            sstr_t portdp = sstrdup(port);
            listener->port = atoi(portdp.ptr);
            free(portdp.ptr);
        }
        if(vs.ptr) {
            listener->vs = sstrdup_mp(mp, vs);
        }
        if(threadpool.ptr) {
            listener->threadpool = sstrdup_mp(mp, threadpool);
        }
        
        lslist = cfg_list_append(mp, lslist, listener);
    }
    
    return lslist;
}