src/server/config/conf.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2011 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 "conf.h"

#include <string.h>

int cfg_parse_basic_file(ConfigParser *parser, FILE *in) {
    parser->lines = NULL;
    parser->mp = ucx_mempool_new(512);

    // one logical line over many lines
    sstr_t mline;
    mline.ptr = NULL;
    mline.length = 0;
    ConfigLine *start_line;
    ConfigLine *end_line;

    // read file
    sstr_t l;
    while((l = cfg_readln(in)).ptr != NULL) {
        // put the line to the list
        ConfigLine *line = OBJ_NEW(parser->mp, ConfigLine);
        line->line = sstrdub_mp(parser->mp, l);
        line->object = NULL;
        line->type = LINE_OTHER;
        parser->lines = ucx_dlist_append(parser->lines, line);

        // check if the line contains something
        l = cfg_trim_comment(l);
        line->type = cfg_get_basic_type(l);

        if(line->type == LINE_OTHER) {
            // check for multi line
            if(mline.ptr != NULL) {
                // concate lines
                char *ptr = malloc(mline.length + l.length + 1);
                memcpy(ptr, mline.ptr, mline.length);
                memcpy(ptr + mline.length - 1, l.ptr, l.length);
                mline.length += l.length;
                free(mline.ptr);
                mline.ptr = ptr;
                mline.ptr[mline.length] = 0;

                end_line = line;

                line->type = LINE_MULTI;
            }
            if(l.ptr[l.length - 1] == '\\') {
                if(mline.ptr == NULL) {
                    mline = sstrdub(l);
                    start_line = line;
                }
            } else {
                // this line is complete so we can parse it
                sstr_t ll; // we parse this line

                if(mline.ptr == NULL) {
                    // single line
                    ll = l;
                    start_line = line;
                    end_line = line;
                } else {
                    ll = mline;
                }

                // parse
                int r = parser->parse(parser, start_line, end_line, ll);

                // clean up
                if(mline.ptr != NULL) {
                    free(mline.ptr);
                    mline.ptr = NULL;
                    mline.length = 0;
                    start_line = NULL;
                    end_line = NULL;
                }

                if(r != 0) {
                    return -1;
                }
            }
        }
    }

    return 0;
}

sstr_t cfg_readln(FILE *file) {
    sstr_t ns;
    ns.ptr = NULL;
    ns.length = 0;

    if(!feof(file)) {
        char buf[512];
        buf[0] = 0;
        int  len = 512;

        if(fgets(buf, len, file) == NULL) {
            return ns;
        }

        if(*buf == 0) {
            printf("???\n");
            return ns;
        }

        char *ptr;
        if((ptr = strrchr(buf, '\n'))) {
            ptr[0] = 0;
        }

        sstr_t line = sstr(buf);
        return line;
    }

    sstr_t s;
    s.ptr = NULL;
    s.length = 0;
    return s;
}

/*
 * checks if the line contains only a comment or space
 */
int cfg_get_basic_type(sstr_t line) {
    if(line.length == 0) {
        return LINE_NOCONTENT;
    } else if(line.ptr[0] == '#') {
        return LINE_NOCONTENT;
    }
    return LINE_OTHER;
}

/*
 * removes a comment from the line
 */
sstr_t cfg_trim_comment(sstr_t line) {
    sstr_t nl = line;
    for(int i=0;i<line.length;i++) {
        if(line.ptr[i] == '#') {
            if(i > 0) {
                nl.ptr = line.ptr + i - 1;
                nl.length = i;
                break;
            } else {
                nl.ptr = line.ptr;
                nl.length = 0;
                break;
            }
        }
    }
    return sstrtrim(nl);
}

/*
 * gets the first parameter in the params string and returns a new string
 * containing the other parameters or an empty string, if there are no more
 * parameters
 */
sstr_t cfg_param(sstr_t params, sstr_t *name, sstr_t *value) {
    name->ptr = NULL;
    name->length = 0;
    value->ptr = NULL;
    value->length = 0;

    // get name
    int i;
    for(i=0;i<params.length;i++) {
        char c = params.ptr[i];
        if(c == '=') {
            break;
        } else if(c < 33) {
            // no '=' means there is only a name, no value
            name->ptr = params.ptr;
            name->length = i;

            params.ptr = params.ptr + i;
            params.length -= i;
            return sstrtrim(params);
        }
    }

    name->ptr = params.ptr;
    name->length = i;
    i++;
    
    // get value
    if(i>=params.length) {
        sstr_t ns;
        ns.ptr = NULL;
        ns.length = 0;
        return ns;
    }

    int quote = 0;
    value->ptr = params.ptr + i;
    for(;i<params.length;i++) {
        char c = params.ptr[i];
        if(c == '"') {
            if(quote) {
                break; // end of quoted value
            } else {
                quote = 1;
                value->ptr++;
            }
        } else if(!quote && c < 33) {
            break; // end of value
        }
    }
    value->length = i - name->length - 2;
    i++;

    if(value->length <= 0) {
        value->length = 0;
        value->ptr = NULL;
    }

    // create new params string
    params.ptr += i;
    params.length -= i;
    return sstrtrim(params);
}

/*
 * gets from a parameter list a value
 */
sstr_t cfg_param_get(UcxList *list, sstr_t name) {
    while(list != NULL) {
        ConfigParam *param = list->data;
        if(!sstrcmp(param->name, name)) {
            return param->value;
        }
        list = list->next;
    }
    sstr_t ns;
    ns.ptr = NULL;
    ns.length = 0;
    return ns;
}

/*
 * gets the directive type number from a type string
 * valid types are:
 *   AuthTrans      0
 *   NameTrans      1
 *   PathCheck      2
 *   ObjectType     3
 *   Service        4
 *   AddLog         5
 *   Init           6
 */
int cfg_get_directive_type_num(sstr_t type) {
    /* get nsapi function type */
    int dt = -1;
    if(sstrcmp(type, sstr("AuthTrans")) == 0) {
        dt = 0;
    } else if(sstrcmp(type, sstr("NameTrans")) == 0) {
        dt = 1;
    } else if(sstrcmp(type, sstr("PathCheck")) == 0) {
        dt = 2;
    } else if(sstrcmp(type, sstr("ObjectType")) == 0) {
        dt = 3;
    } else if(sstrcmp(type, sstr("Service")) == 0) {
        dt = 4;
    } else if(sstrcmp(type, sstr("AddLog")) == 0) {
        dt = 5;
    } else if(sstrcmp(type, sstr("Init")) == 0) {
        dt = 6;
    }
    return dt;
}