/*  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;
    rc_anal_t *pAnal = NULL;    /* Holds preprocessed configuration       */

    ex_try {                /* Configuration and abstract analysis block  */
        configNew();        /* Construct a new configuration              */
        configLoad(argc, (const char **)argv); /* Load cli, env, and conf */
        configDebug();      /* FIXME Remove FIXME */
        configVerify();     /* Test for usage, help, and version options  */

        pAnal = analNew();  /* Construct a new configuration analyser     */
TRACE("BeforeAnalparse");
        analParse(pAnal);   /* Preprocess the analysed configuration      */
TRACE("AfterAnalparse");
    }
    ex_catch(Except) {      /* Exceptions during configuration and analysis */
TRACE("Hopla1");
        if ((rc_return_t)Except.ex_value == RC_ERR_USE) {
TRACE("Hopla2");
            clioptPrintusage();
TRACE("Hopla3");
        }
        else {
TRACE("Hopla4");
            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);
TRACE("Hopla5");
        }
TRACE("Hopla6");
        if (FAILED((rc_return_t)Except.ex_value)) { /* NOP on warnings */
TRACE("Hopla7");
            exit(1); /* Report failure and exit the program */
TRACE("Hopla8");
        }
        else {
TRACE("Hopla9");
        }
    }

    ex_try { /* Main script building and processing block */
/*        rc_script_t *pScript = NULL;*/
/*        rc_proc_t *pProc     = NULL;*/

/*        pScript = scriptNew(pAnal);*/ /* Construct a new script           */
/*        scriptBuild(pScript);*/

/*        pProc = procNew(pScript);*/   /* Construct a new processor        */
/*        procRun(pProc);*/             /* [Execute|Evaluate|Print] script  */
/*        procDelete(pProc);*/          /* Destroy the processor            */
/*        scriptDelete(pScript);*/      /* Destroy the script               */
    }
    ex_catch(Except) {  /* Error exceptions thrown during script processing */
        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 {                /* Shutdown of main program  */
        analDelete(pAnal);  /* Destroy the analyser      */
        configDelete();     /* Destroy the configuration */
    }
    ex_catch(Except) { /* Error exceptions thrown during program shutdown */
        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 */
        }
    }

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