ossp-pkg/rc/rc.c
1.23
/* 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 */
configVerify(); /* 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 -/
procRun(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 */
}