ossp-pkg/rc/rc_cliopt.c
1.21
/* OSSP rc - Run-Command Processor
** Copyright (c) 2002-2003 Ralf S. Engelschall
** Copyright (c) 2002-2003 Cable & Wireless Deutschland GmbH
** Copyright (c) 2002-2003 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_cliopt.c: Run-Command Processor ISO C source file
*/
#include <stdlib.h>
#include <string.h>
#include "rc.h"
#include "rc_cliopt.h"
#include "rc_const.h"
#include "rc_config.h"
#include "popt.h" /* OSSP popt options library */
/***************************************
* clioptNew(void) *
* Construct a command line option *
***************************************/
rc_cliopt_t *clioptNew(void)
{
rc_cliopt_t *pRetobj = calloc(1, sizeof (rc_cliopt_t));
if (pRetobj) {
pRetobj->m_pszOptuples = calloc(RC_NUMOPTS, sizeof (char *));
if (!pRetobj->m_pszOptuples)
RC_THROW(RC_ERR_MEM);
}
else
RC_THROW(RC_ERR_MEM);
return(pRetobj);
/* assert(s_pBintab == NULL); */ /* Error if constructed already */
/* s_pBintab = malloc(sizeof(*s_pBintab));*/ /* Allocate a cliopt instance */
/* if (!s_pBintab)
return(RC_THROW(RC_ERR_MEM));
s_pBintab->pOptlist = malloc(sizeof(*s_pBintab->pOptlist));*/
/*FIXME optNew((rc_opt_t **)&s_pBintab->pOptlist->pvData);FIXME*/
/* s_pBintab->pOptlist->pvData = NULL;
s_pBintab->pOptlist->pvNext = NULL;*/
}
/***************************************
* clioptPrintusage(rc_cliopt_t *) *
* Print usage to command line stderr *
***************************************/
rc_return_t clioptPrintusage(rc_cliopt_t *this)
{
popt_printusage(m_Optcon, stderr, 0);
return(RC_THROW(RC_OK));
}
/***************************************
* clioptGetXXX(rc_cliopt_t *) *
* clioptSetXXX(rc_cliopt_t *) *
* Command line option accessors *
***************************************/
const char *clioptGetval(rc_cliopt_t *this, rc_opt_t Optname)
{
if (!(Optname < RC_NUMOPTS)) /* Validate option range */
RC_THROW(RC_ERR_USE);
return((const char *)this->m_pszOptuples[Optname]);
}
const char *clioptGetrcfile(rc_cliopt_t *this)
{
if (!this->m_szRcfile)
RC_THROW(RC_ERR_USE);
return((const char *)this->m_szRcfile);
}
const char **clioptGetsecs(rc_cliopt_t *this)
{
if (!this->m_pszSecs)
RC_THROW(RC_ERR_USE);
return((const char **)this->m_pszSecs);
}
rc_return_t clioptSetval(rc_cliopt_t *this, rc_opt_t Optname, const char *kszOptval)
{
if (!(Optname < RC_NUMOPTS)) /* Validate option range */
return(RC_THROW(RC_ERR_USE));
if (!(kszOptval)) /* Validate string value */
return(RC_THROW(RC_ERR_USE));
if (!(m_pszOptuples[Optname] = strdup(kszOptval)))
return(RC_THROW(RC_ERR_MEM));
return(RC_THROW(RC_OK));
}
rc_return_t clioptSetrcfile(rc_cliopt_t *this, const char *kszRc)
{
if (this->m_szRcfile) /* Warn on overwrites */
RC_THROW(RC_WRN_OWR);
if (kszRc)
this->m_szRcfile = strdup(kszRc);
else
return(RC_THROW(RC_ERR_USE)); /* Incoming string is NULL? */
return(RC_THROW(RC_OK));
}
rc_return_t clioptSetsecs(rc_cliopt_t *this, const char **pkszSecs)
{
ex_t Except;
assert (pkszSecs); /* IF NULL, its broken */
if (this->m_pszSecs) /* Warn on overwrites */
RC_THROW(RC_WRN_OWR);
try {
this->m_pszSecs = vectorCopy(pkszSecs);
}
catch(Except)
rethrow;
return(RC_THROW(RC_OK));
}
/****************************************************
* clioptProcess(rc_cliopt_t *, int, const char *) *
* Switch through available options *
* processing the corresponding option *
* and update option table accordingly *
****************************************************/
rc_return_t clioptProcess(rc_cliopt_t *this, int cliOption, const char *kszArg)
{
switch (cliOption) {
/* Begin concrete (digital) options */
case RC_USE_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Usage */
case RC_DBG_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Debug */
case RC_VER_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Version */
case RC_EVL_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Eval */
case RC_HLP_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Help */
case RC_INF_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Info */
case RC_LBL_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Label */
case RC_PRN_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Print */
case RC_PAR_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Print */
case RC_SIL_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Silent */
case RC_RAW_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Raw */
case RC_VRB_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Verbose */
case RC_EXC_VAL:
clioptSetval(this, cliOption, RC_DEF_ON); break; /* Exec */
/* Begin abstract (nondigital) options */
case RC_LOC_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Locations */
case RC_CNF_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Conf file */
case RC_FNC_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Func file */
case RC_QRY_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Format */
case RC_TMP_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Temp dir */
case RC_OWN_VAL:
clioptSetval(this, cliOption, kszArg); break; /* User name */
case RC_GRP_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Group name */
case RC_MSK_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Umask */
case RC_ASS_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Assignregex */
case RC_DEF_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Labelregex */
case RC_REF_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Refregex */
case RC_PRM_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Paramregex */
case RC_TRM_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Termregex */
case RC_NCF_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Configname */
case RC_CMN_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Commonname */
case RC_DFL_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Defaultname */
case RC_ERR_VAL:
clioptSetval(this, cliOption, kszArg); break; /* Errorname */
default : break;
}
return(RC_THROW(RC_OK));
}
/********************************************************
* clioptParseopts(rc_cliopt_t *, int, const char **) *
* Parse command line options *
********************************************************/
rc_return_t clioptParseopts(rc_cliopt_t *this, int nArgs, const char *szVector[])
{
ex_t Except;
char cliOpt = 0; /* For argument parsing */
m_Optcon = popt_getcontext(NULL, nArgs, szVector, m_pOptable, 0);
popt_setotheroptionhelp(m_Optcon, "<rcfile> <sections [args]>");
if (nArgs < 2) { /* Allow the user to enter just one option, -h z.B. */
fprintf(stderr, RC_LST_TEXT);
popt_printusage(m_Optcon, stderr, 0);
return(RC_THROW(RC_ERR_USE));
}
/* Now do options processing */
while ((cliOpt = popt_getnextopt(m_Optcon)) >= 0) {/* Loop, each time */
try { /* eating a new option */
clioptProcess(this, cliOpt, popt_getoptarg(m_Optcon));
}
catch(Except) /* Error condition probably deserves attention */
rethrow;
}
if (cliOpt < -1) { /* The option given was not found in the index */
fprintf(stderr, "%s: %s\n",
popt_badoption(m_Optcon, POPT_BADOPTION_NOALIAS),
popt_strerror(cliOpt));
return(RC_THROW(RC_ERR_USE));
}
return(RC_THROW(RC_OK));
}
/******************************************
* clioptParseargs(rc_cliopt_t *) *
* Parse command line rc file and sections *
******************************************/
rc_return_t clioptParseargs(rc_cliopt_t *this)
{
ex_t Except;
/* Use popt as a transport to read the user specified rcfile and sections */
try {
clioptSetrcfile(this, popt_getarg(m_Optcon));
clioptSetsecs(this, popt_getargs(m_Optcon));
}
catch(Except)
rethrow; /* Our generic response */
return(RC_THROW(RC_OK));
}
/***************************************
* clioptDelete(rc_cliopt_t *) *
* Destruct a command line option *
***************************************/
rc_return_t clioptDelete(rc_cliopt_t *this)
{
int i = 0;
/* ex_t Except;
assert(s_pBintab);*/ /* Error if not constructed */
/* try {
clioptRemall();*/ /* Removes ALL list nodes */
/*FIXME optDelete((rc_opt_t **)&s_pBintab->pOptlist->pvData);FIXME*/
/* free(s_pBintab->pOptlist);*/ /* Deallocate option list */
/* free(s_pBintab);*/ /* Deallocate cliopt and */
/* s_pBintab = NULL;*/ /* clear its reference */
/* }
catch(Except)
rethrow;
*/
popt_freecontext(m_Optcon); /* Free the popt context */
if (m_pszOptuples) {
for (i = 0; i < RC_NUMOPTS; i++) { /* Free the tuples themselves */
if (m_pszOptuples[i]) {
free(m_pszOptuples[i]);
m_pszOptuples[i] = NULL;
}
}
free(this->m_pszOptuples);
this->m_pszOptuples = NULL;
}
if (this->m_szRcfile) { /* Free the rc file arg */
free(this->m_szRcfile);
this->m_szRcfile = NULL;
}
if (this->m_pszSecs) { /* Free the section name arg */
vectorDel(this->m_pszSecs);
this->m_pszSecs = NULL;
}
free(this);
return(RC_THROW(RC_OK));
}
