/*  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 */


/************************************************
* rcError(ex_t)                                 *
* Main rc error handler                         *
************************************************/
void rcError(ex_t Localerr)
{
    if (FAILED((rc_return_t)Localerr.ex_value)) { /* Error condition */
        if ((rc_return_t)Localerr.ex_value == RC_ERR_TRM)
            exit(0);
        else if ((rc_return_t)Localerr.ex_value == RC_ERR_FNC)
            fprintf(stderr, "    Error condition, function file could not be opened.\n");
        else if ((rc_return_t)Localerr.ex_value == RC_ERR_DIR)
            fprintf(stderr, "    Error condition, location dir could not be opened.\n");
        else if ((rc_return_t)Localerr.ex_value == RC_ERR_RCF)
            fprintf(stderr, "    Error condition, rc file could not be opened.\n");
        else
            fprintf(stderr, "    Error condition of class '%s',\n    exception %d in %s:%s():%d.\n", (char *)Localerr.ex_class, (int)Localerr.ex_value, Localerr.ex_file, Localerr.ex_func, Localerr.ex_line);
        exit(1); /* Return failure */
    }
#ifdef DEBUG
    else        /* Warning condition */
        fprintf(stderr, "    Warning condition of class '%s',\n    exception %d in %s:%s():%d.\n", (char *)Localerr.ex_class, (int)Localerr.ex_value, Localerr.ex_file, Localerr.ex_func, Localerr.ex_line);
#else
    else        /* Warning condition */
        RC_NOP; /* No operation on warnings */
#endif
}

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

    try {                       /* Configuration block                      */
        configNew();            /* Construct a new configuration            */
        configLoad(argc, (const char **)argv);   /* Load cli, env, and conf */
        configVerify();         /* Test for usage, help and version options */
    }
    catch(Except)               /* Exceptions of the configuration block    */
        rcError(Except);

    try {                       /* Main processing block, script built here */
        rc_proc_t *pProc = NULL;
        pProc = procNew();      /* Construct a new processor, build script  */
        procPopulate(pProc);    /* Populate with run commands               */
        procRun(pProc);         /* [Execute|Evaluate|Print] script          */
        procDelete(pProc);      /* Destroy the processor                    */
        configDelete();         /* Destroy the configuration                */
    }
    catch(Except)               /* Exception thrown while script processing */
        rcError(Except);

    exit(0);                    /* Return success */
}