main.c

Go to the documentation of this file.

/***************************************************************************
 *   Copyright (C) 2004, 2006 Symbian Software Ltd.                        *
 *   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 "report.h"
#include "contradiction.h"
#include "line_despatch.h"
#include "if_control.h"
#include "args.h"
#include "io.h"
#include "chew.h"
#include "line_edit.h"
#include "exception.h"
#include "dataset.h"
#include "configured_symbols.h"
#include "unconfigured_symbols.h"
#include "includes_tally.h"
#include "line_select.h"


static void             ready(void);

static void             process(void);

int
main(int argc, char *argv[])
{
    ready();
    atexit(exit_diagnostics);
    parse_executable(argv);
    parse_args(argc,argv);
    finish_args();
    process();
    give_up_confused(); /* bug*/
    return 0;
}

static void
line_debug(int line)
{
    if (line < 0) {
        /* Call with negative value to write line numbers*/
        printf("%d\n",GET_PUBLIC(io,line_num));
    } else if (line > 0 && line == GET_PUBLIC(io,line_num)) {
        /* Call with positive line number and put breakpoint here ...*/
        fputs("Here\n",stderr);
    }
}

static void
ready(void)
{
    INITIALISE(chew);
    INITIALISE(report);
    INITIALISE(evaluator);
    INITIALISE(if_control);
    INITIALISE(io);
    INITIALISE(dataset);
    INITIALISE(line_edit);
    INITIALISE(args);
    INITIALISE(configured_symbols);
    INITIALISE(unconfigured_symbols);
    INITIALISE(line_despatch);
    INITIALISE(contradiction);
    INITIALISE(includes_tally);
    INITIALISE(directives_tally);
    INITIALISE(line_select);
}

static void
node_proc(      file_tree_h ft,
            char const *name,
            file_tree_traverse_state_t context)
{
    static int error;
    switch(context) {
    case FT_AT_FILE: {
        line_type_t lineval;
        if_control_toplevel();
        processing_file(name);
        open_io(name);
        chew_toplevel();
        exceptions_enabled = true;
        error = catch();
        for (; !error && (lineval = eval_line()) != LT_EOF;) {
            line_debug(0);
            if (lineval != LT_DIRECTIVE_DROP) {
                transition(lineval);
            }
            else {
                drop();
            }
            debug(DBG_19,lineval);
        }
        exceptions_enabled = false;
        close_io(error);
    }
    break;
    case FT_ENTERING_DIR: {
        file_tree_count_t count;
        file_tree_count(ft,FT_COUNT_CHILDREN | FT_COUNT_ALL,&count);
        if_control_toplevel();
        /* Don't report entry to a directory if it is merely
                the parent of another*/
        if (count.dirs != 1 || count.files != 0) {
            entering_dir(name);
        }
    }
    break;
    case FT_LEAVING_DIR: {
        file_tree_count_t count;
        file_tree_count(ft,FT_COUNT_CHILDREN | FT_COUNT_ALL,&count);
        /* Don't report leaving a directory if it is merely
                the parent of another*/
        if_control_toplevel();
        if (count.dirs != 1 || count.files != 0) {
            leaving_dir(name);
        }
    }
    break;
    case FT_ENTERING_TREE:
        if (file_tree_is_empty(ft)) {
            node_proc(ft,STDIN_NAME,FT_AT_FILE);
        }
        break;
    case FT_LEAVING_TREE:
        io_toplevel();
        break;
    default:
        assert(false);
    }
}

static void
process(void)
{
    file_tree_h ft = GET_PUBLIC(dataset,file_tree);
    file_tree_traverse(ft,node_proc);
    exit(exitcode());
}

/* EOF*/