/* -*- mona-c++ -*-
* Copyright (c) Leipzig, Madrid 2004 - 2008
* Max-Planck-Institute for Human Cognitive and Brain Science
* Max-Planck-Institute for Evolutionary Anthropology
* BIT, ETSI Telecomunicacion, UPM
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*
*/
/* $Id: monaPopt.c 776 2005-12-19 16:26:01Z write1 $ */
/*! \brief Wrapper for libpopt - always use this rather than popt.h
\file monaPopt.c
\author M. Tittgemeyer, tittge@cbs.mpg.de, 2004
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdlib.h>
#include "monaLibiberty.h"
#include "monaPopt.h"
poptContext mona_poptGetContext(char const * name,
int argc, char const ** argv,
struct poptOption const * options, int flags)
{
poptContext optcon;
int c;
#ifdef HAVE_LIBERTY
xmalloc_set_program_name(argv[0]);
#endif
#ifdef CONST_POPT
optcon = poptGetContext(name, argc, argv, options, flags);
#else
optcon = poptGetContext((char *)name, argc, (char **)argv, options, flags);
#endif
c = poptGetNextOpt(optcon);
if (c < -1) {
fprintf(stderr, "%s: %s: %s\n", argv[0],
poptBadOption(optcon, POPT_BADOPTION_NOALIAS),
poptStrerror(c));
poptPrintHelp(optcon, stderr, 0);
exit(EXIT_FAILURE);
}
return optcon;
}