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


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

    ex_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  */
    }
    ex_catch(Except) {      /* Exceptions of the configuration block      */
        if ((rc_return_t)Except.ex_value == RC_WRN_TRM)
            exit(0);
        else 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);
        }
        if (FAILED((rc_return_t)Except.ex_value)) /* NOP on warnings */
            exit(1); /* Report failure and exit the program */
    }

    ex_try { /* Main processing block, the script is 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                */
    }
    ex_catch(Except) {  /* Error exceptions thrown during script processing */
        TRACE("Also, exception dans le processor bloque");
        if (FAILED((rc_return_t)Except.ex_value)) { /* NOP on warnings */
            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); /* Return failure */
        }
        else
            RC_NOP;  /* No operation on warnings */
    }

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