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


/************************************************
* rcIntro(void)                                 *
* Introduction to rc: help, usage, or version   *
************************************************/
rc_return_t rcIntro(void)
{
    ex_t Except;

    ex_try { /* Basic checks of version, usage, and help options */
        if (configGetval(RC_VER_VAL))
            fprintf(stdout, "OSSP rc %s\n", RC_VERSION);
        if (configGetval(RC_USE_VAL))
            clioptPrintusage();
        if (configGetval(RC_HLP_VAL))
            clioptPrintusage(); /* FIXME Replace with real help FIXME */
    }
    ex_catch(Except) {
        rethrow;
    }

    return(RC_THROW(RC_OK));
}

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

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

/*        pRc = procNew();
        procReadrc(pRc);
        procReadfuncs(pRc);
        procReadtmp(pRc);
        for (i = 0; i < clioptGetseclen; procSection(pRc, configGetsec(i)));
        procParse(pRc);         /- Script generation               -/
        procOut(pRc);           /- [Execute|Evaluate|Print] script -/

        procDelete(pRc);*/
        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 */
}