ossp-pkg/rc/rc.c
1.25
/* 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 */
/************************************************
* main(int, char **) *
* Main rc control block *
************************************************/
int main(int argc, char *argv[])
{
ex_t Except;
rc_proc_t *pProc = NULL;
ex_try {
configNew(); /* Construct a new configuration */
configLoad(argc, argv); /* Read configuration from cli, env, and conf */
configDebug(); /* FIXME Remove FIXME */
configVerify(); /* Test for usage, help, and version options */
pProc = procNew();
procReadtmp(pProc, configGetval(RC_TMP_VAL));
/* procReadfuncs(pProc, configGetval(RC_FNC_VAL));
procReadrc(pProc, configGetrcfile());
for (i = 0; i < clioptGetseclen; procSection(pProc, configGetsec(i++)));
procParse(pProc); /- Script generation -/
procRun(pProc);*/ /* [Execute|Evaluate|Print] script */
procDelete(pProc);
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 */
}