/* OSSP rc - Run-command processor
** Copyright (c) 2002 Ralf S. Engelschall
** Copyright (c) 2002 Cable & Wireless Deutschland GmbH
** Copyright (c) 2002 The OSSP Project
**
** 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_config.c: Run-command processor ISO C source file
*/
#include
#include
#include "rc.h"
#include "rc_config.h"
#include "rc_const.h" /* String constants */
static int m_nLocks = 0; /* Server locks, not thread-safe FIXME */
static char *m_szSummary = NULL; /* Configuration summary storage */
/***************************************
* configDebug(void) *
* Debug a configuration *
* Warning: There is no error checking *
* or debugging of this *
* debugger block *
***************************************/
void configDebug(void)
{
int i = 0;
ex_t Except;
char *szTemp = NULL;
fprintf(stderr, "Run command file: %s\n", configGetrcfile());
szTemp = (char *)configGetsec(i);
fprintf(stderr, "Sections:");
while (szTemp) {
fprintf(stderr, " %s", szTemp);
ex_try {
szTemp = (char *)configGetsec(++i);
}
ex_catch(Except) {
break;
}
}
fprintf(stderr, "\n%s", configSummarize());
}
/***************************************
* configNew(void) *
* Construct a configuration *
***************************************/
rc_return_t configNew(void)
{
ex_t Except;
if (m_nLocks == 0) { /* If we don't have one yet */
ex_try { /* then construct a new one */
clioptNew(); /* Member cliopt instance */
}
ex_catch(Except) {
rethrow;
}
}
m_nLocks++; /* FIXME not threadsafe */
return(RC_THROW(RC_OK));
}
/***************************************
* configGetXXX(rc_opt_t) *
* Configuration accessors *
***************************************/
const char *configGetval(rc_opt_t Optname)
{
ex_t Except;
char *szTemp = NULL;
if (m_nLocks) { /* Make sure config exists */
ex_try {
if ((szTemp = (char *)clioptGetval(Optname)))
return((const char *)szTemp);
/* else if (szTemp = envoptGetval(Optname))
return((const char *)szTemp);
else if (szTemp = cnfoptGetval(Optname))
return((const char *)szTemp);*/
else
return(NULL); /* Special case when not found */
}
ex_catch(Except) {
rethrow;
}
}
else {
RC_THROW(RC_ERR_USE);
}
return(NULL); /* Not reached */
}
const char *configGetname(rc_opt_t Optname)
{
static char *s_szOptnametab[] = { /* NULL is for alignment */
NULL, RC_USE_NAME, RC_DBG_NAME, RC_VER_NAME,
RC_EVL_NAME, RC_HLP_NAME, RC_INF_NAME, RC_LBL_NAME,
RC_PRN_NAME, RC_SIL_NAME, RC_RAW_NAME, RC_VRB_NAME,
RC_EXC_NAME, RC_LOC_NAME, RC_CNF_NAME, RC_FNC_NAME,
RC_QRY_NAME, RC_TMP_NAME, RC_OWN_NAME, RC_GRP_NAME,
RC_MSK_NAME, RC_ASS_NAME, RC_DEF_NAME, RC_REF_NAME,
RC_PRM_NAME, RC_TRM_NAME, RC_NCF_NAME, RC_CMN_NAME,
RC_DFL_NAME, RC_ERR_NAME
};
if (m_nLocks) { /* Make sure config exists */
return((const char *)s_szOptnametab[Optname]);
}
else {
RC_THROW(RC_ERR_USE);
}
return(NULL); /* Not reached */
}
const char *configGetrcfile(void)
{
ex_t Except;
if (m_nLocks) { /* Make sure config exists */
ex_try {
/* Because (1) only one rc file can be specified and */
/* (2) it must be specified on the command line, */
/* we don't bother checking the environment or conf file */
/* contrary to the behaviour of Getval earlier */
return (clioptGetrcfile());
}
ex_catch(Except) {
rethrow;
}
}
else {
RC_THROW(RC_ERR_USE);
}
return(NULL); /* Not reached */
}
const char *configGetsec(int nIndex)
{
ex_t Except;
char **pszSectemp = NULL;
if (m_nLocks && nIndex < clioptGetseclen()) {/* Make sure config exists */
ex_try { /* FIXME Might need to check */
pszSectemp = (char **)clioptGetsec();/* FIXME env, conf, configs */
if (pszSectemp[nIndex])
return(pszSectemp[nIndex]);
else {
RC_THROW(RC_ERR_USE);
}
}
ex_catch(Except) {
rethrow;
}
}
else {
RC_THROW(RC_ERR_USE);
}
return(NULL); /* Not reached */
}
/***************************************
* configSummarize(void) *
* Configuration summary *
***************************************/
const char *configSummarize(void)
{
ex_t Except;
int i = 0;
char *szTemp = NULL;
m_szSummary = malloc(NULL);
for (i = 0; i < RC_NUMOPTS; i++)
{
ex_try { /* FIXME Not threadsafe, wrap with crit section */
if (configGetval(i) == NULL); /* NOP */
else if (!(strcmp(configGetval(i), "1"))) {
szTemp = malloc(strlen(m_szSummary) + strlen(configGetval(i)));
strcpy(szTemp, m_szSummary);
strcat(szTemp, "Option ");
strcat(szTemp, configGetname(i));
strcat(szTemp, " is on.\n");
if (m_szSummary)
free(m_szSummary);
m_szSummary = szTemp;
}
else {
szTemp = malloc(strlen(m_szSummary) + strlen(configGetval(i)));
strcpy(szTemp, m_szSummary);
strcat(szTemp, "Option ");
strcat(szTemp, configGetname(i));
strcat(szTemp, " is ");
strcat(szTemp, configGetval(i));
strcat(szTemp, ".\n");
if (m_szSummary)
free(m_szSummary);
m_szSummary = szTemp;
}
} /* FIXME Not threadsafe, wrap with crit section */
ex_catch(Except) { /* Breaks the otherwise endless loop above */
rethrow;
}
}
return ((const char *)m_szSummary);
}
/************************************************
* configLoad(int, char **) *
* Load a configuration *
************************************************/
rc_return_t configLoad(int argc, char *argv[])
{
ex_t Except;
ex_try { /* Parse option groups in order of priority */
clioptParseopt(argc, argv); /* Command line options */
clioptParserc(); /* Command line rc file */
clioptParsesec(); /* Command line sections */
/* envoptParse(m_nLocks->pOpt);*/ /* Environment options */
/* cnfoptParse(m_nLocks->pOpt);*/ /* Configfile options */
}
ex_catch(Except) {
rethrow;
}
return(RC_THROW(RC_OK));
}
/***************************************
* configDelete(void) *
* Destruct a configuration *
***************************************/
rc_return_t configDelete(void)
{
ex_t Except;
if (--m_nLocks == 0) { /* If m_nLocks is 0, deallocate */
ex_try { /* FIXME, not thread-safe */
clioptDelete();
if (m_szSummary)
free(m_szSummary);
}
ex_catch(Except) {
rethrow;
}
}
else
return(RC_THROW(RC_ERR_USE));
return(RC_THROW(RC_OK));
}