ossp-pkg/rc/rc.c
1.31
/* 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 */
analParse(pAnal); /* Preprocess the analysed configuration */
}
ex_catch(Except) { /* Exceptions during configuration and analysis */
TRACE("Hopla, in config and anal exception block");
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 */
}
else {
}
}
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 */
}