/*  OSSP rc - Run-command processor
**  Copyright (c) 2002 Ralf S. Engelschall
**  Copyright (c) 2002 Cable & Wireless Deutschland GmbH
**  Copyright (c) 2002 The OSSP Project <http://www.ossp.org/>
**
**  This file is part of OSSP rc, a portable Run-command processor
**  which can be found at http://www.ossp.org/pkg/lib/rc/
**
**  Permission to use, copy, modify, and distribute this software for
**  any purpose with or without fee is hereby granted, provided that
**  the above copyright notice and this permission notice appear in all
**  copies.
**
**  THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED 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 AUTHORS AND COPYRIGHT HOLDERS AND THEIR
**  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.
**
**  rc.c: Run-command processor ISO C source file
*/

#include <stdlib.h>

#include "rc.h"         /* Public interfaces            */
#include "rc_const.h"   /* Englisch string constants    */
#include "rc_config.h"  /* For RC_XXX_VAL definitions   */


/************************************************
* main(int, char **)                            *
* Main rc control block                         *
************************************************/
int main(int argc, char *argv[])
{
    ex_t Except;
    rc_proc_t *pProc = NULL;

    ex_try {
        configNew();            /* Construct a new configuration              */
        configLoad(argc, argv); /* Read configuration from cli, env, and conf */
        configDebug();          /* FIXME Remove FIXME */
        configVerify();         /* Test for usage, help, and version options  */

        pProc = procNew();
        procReadtmp(pProc, configGetval(RC_TMP_VAL));
/*        procReadfuncs(pProc, configGetval(RC_FNC_VAL));
        procReadrc(pProc, configGetrcfile());
        for (i = 0; i < clioptGetseclen; procSection(pProc, configGetsec(i++)));
        procParse(pProc);         /- Script generation               -/
        procRun(pProc);*/         /* [Execute|Evaluate|Print] script */

        procDelete(pProc);
        configDelete();
    }
    ex_catch(Except) {
        if ((rc_return_t)Except.ex_value == RC_ERR_USE) {
            clioptPrintusage();
        }
        else
            fprintf(stderr, "Class '%s' threw exception %d in %s:%s():%d.\n",\
                   (char *)Except.ex_class, (int)Except.ex_value,\
                   Except.ex_file, Except.ex_func, Except.ex_line);
        exit(1);        /* Failure */
    }

    exit(0);            /* Success */
}