mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-11-27 07:30:33 +08:00
c68c4c804d
Fix Issue https://github.com/Unidata/netcdf-c/issues/1725. Replace PR https://github.com/Unidata/netcdf-c/pull/1726 Also replace PR https://github.com/Unidata/netcdf-c/pull/1694 The general problem is that under Visual Studio, we are seeing a number of undefined reference and other scoping errors. The reason is that the code is not properly using Visual Studio _declspec() declarations. The basic solution is to ensure that when compiling the code itself one needs to ensure that _declspec(dllexport) is used. There are several sets of macros to handle this, but they all rely on the flag DLL_EXPORT being define when the code is compiled, but not being defined when the code is used via a .h file. As a test, I modified XGetOpt.c to build properly. I also fixed the oc2 library to properly _declspec things like ocdebug. I also made some misc. changes to get all the tests to run if cygwin is installed (to get bash, sed, etc). Misc. Changes: * Put XGetOpt.c into libsrc and copy at build time to the other directories where it is needed.
221 lines
6.6 KiB
C
221 lines
6.6 KiB
C
// XGetopt.cpp Version 1.2
|
|
//
|
|
// Author: Hans Dietrich
|
|
// hdietrich2@hotmail.com
|
|
//
|
|
// Description:
|
|
// XGetopt.cpp implements getopt(), a function to parse command lines.
|
|
//
|
|
// History
|
|
// Version 1.2 - 2003 May 17
|
|
// - Added Unicode support
|
|
//
|
|
// Version 1.1 - 2002 March 10
|
|
// - Added example to XGetopt.cpp module header
|
|
//
|
|
// This software is released into the public domain.
|
|
// You are free to use it in any way you like.
|
|
//
|
|
// This software is provided "as is" with no expressed
|
|
// or implied warranty. I accept no liability for any
|
|
// damage or loss of business that this software may cause.
|
|
//
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
// if you are not using precompiled headers then include these lines:
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
|
|
#ifndef DLL_EXPORT
|
|
#define DLL_EXPORT
|
|
#endif
|
|
|
|
#include "XGetopt.h"
|
|
|
|
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
//
|
|
// X G e t o p t . c p p
|
|
//
|
|
//
|
|
// NAME
|
|
// getopt -- parse command line options
|
|
//
|
|
// SYNOPSIS
|
|
// int getopt(int argc, TCHAR *argv[], TCHAR *optstring)
|
|
//
|
|
// extern TCHAR *optarg;
|
|
// extern int optind;
|
|
//
|
|
// DESCRIPTION
|
|
// The getopt() function parses the command line arguments. Its
|
|
// arguments argc and argv are the argument count and array as
|
|
// passed into the application on program invocation. In the case
|
|
// of Visual C++ programs, argc and argv are available via the
|
|
// variables __argc and __argv (double underscores), respectively.
|
|
// getopt returns the next option letter in argv that matches a
|
|
// letter in optstring. (Note: Unicode programs should use
|
|
// __targv instead of __argv. Also, all character and string
|
|
// literals should be enclosed in _T( ) ).
|
|
//
|
|
// optstring is a string of recognized option letters; if a letter
|
|
// is followed by a colon, the option is expected to have an argument
|
|
// that may or may not be separated from it by white space. optarg
|
|
// is set to point to the start of the option argument on return from
|
|
// getopt.
|
|
//
|
|
// Option letters may be combined, e.g., "-ab" is equivalent to
|
|
// "-a -b". Option letters are case sensitive.
|
|
//
|
|
// getopt places in the external variable optind the argv index
|
|
// of the next argument to be processed. optind is initialized
|
|
// to 0 before the first call to getopt.
|
|
//
|
|
// When all options have been processed (i.e., up to the first
|
|
// non-option argument), getopt returns EOF, optarg will point
|
|
// to the argument, and optind will be set to the argv index of
|
|
// the argument. If there are no non-option arguments, optarg
|
|
// will be set to NULL.
|
|
//
|
|
// The special option "--" may be used to delimit the end of the
|
|
// options; EOF will be returned, and "--" (and everything after it)
|
|
// will be skipped.
|
|
//
|
|
// RETURN VALUE
|
|
// For option letters contained in the string optstring, getopt
|
|
// will return the option letter. getopt returns a question mark (?)
|
|
// when it encounters an option letter not included in optstring.
|
|
// EOF is returned when processing is finished.
|
|
//
|
|
// BUGS
|
|
// 1) Long options are not supported.
|
|
// 2) The GNU double-colon extension is not supported.
|
|
// 3) The environment variable POSIXLY_CORRECT is not supported.
|
|
// 4) The + syntax is not supported.
|
|
// 5) The automatic permutation of arguments is not supported.
|
|
// 6) This implementation of getopt() returns EOF if an error is
|
|
// encountered, instead of -1 as the latest standard requires.
|
|
//
|
|
// EXAMPLE
|
|
// BOOL CMyApp::ProcessCommandLine(int argc, TCHAR *argv[])
|
|
// {
|
|
// int c;
|
|
//
|
|
// while ((c = getopt(argc, argv, _T("aBn:"))) != EOF)
|
|
// {
|
|
// switch (c)
|
|
// {
|
|
// case _T('a'):
|
|
// TRACE(_T("option a\n"));
|
|
// //
|
|
// // set some flag here
|
|
// //
|
|
// break;
|
|
//
|
|
// case _T('B'):
|
|
// TRACE( _T("option B\n"));
|
|
// //
|
|
// // set some other flag here
|
|
// //
|
|
// break;
|
|
//
|
|
// case _T('n'):
|
|
// TRACE(_T("option n: value=%d\n"), atoi(optarg));
|
|
// //
|
|
// // do something with value here
|
|
// //
|
|
// break;
|
|
//
|
|
// case _T('?'):
|
|
// TRACE(_T("ERROR: illegal option %s\n"), argv[optind-1]);
|
|
// return FALSE;
|
|
// break;
|
|
//
|
|
// default:
|
|
// TRACE(_T("WARNING: no handler for option %c\n"), c);
|
|
// return FALSE;
|
|
// break;
|
|
// }
|
|
// }
|
|
// //
|
|
// // check for non-option args here
|
|
// //
|
|
// return TRUE;
|
|
// }
|
|
//
|
|
///////////////////////////////////////////////////////////////////////////////
|
|
|
|
GTOPT_EXTRA TCHAR *optarg; // global argument pointer
|
|
GTOPT_EXTRA int optind = 0; // global argv index
|
|
GTOPT_EXTRA int opterr; // print error
|
|
|
|
GTOPT_EXTRA
|
|
int getopt(int argc, TCHAR *argv[], TCHAR *optstring)
|
|
{
|
|
static TCHAR *next = NULL;
|
|
TCHAR c;
|
|
TCHAR *cp = malloc(sizeof(TCHAR)*1024);
|
|
|
|
if (optind == 0)
|
|
next = NULL;
|
|
|
|
optarg = NULL;
|
|
|
|
if (next == NULL || *next == _T('\0'))
|
|
{
|
|
if (optind == 0)
|
|
optind++;
|
|
|
|
if (optind >= argc || argv[optind][0] != _T('-') || argv[optind][1] == _T('\0'))
|
|
{
|
|
optarg = NULL;
|
|
if (optind < argc)
|
|
optarg = argv[optind];
|
|
return EOF;
|
|
}
|
|
|
|
if (_tcscmp(argv[optind], _T("--")) == 0)
|
|
{
|
|
optind++;
|
|
optarg = NULL;
|
|
if (optind < argc)
|
|
optarg = argv[optind];
|
|
return EOF;
|
|
}
|
|
|
|
next = argv[optind];
|
|
next++; // skip past -
|
|
optind++;
|
|
}
|
|
|
|
c = *next++;
|
|
cp = strchr(optstring, c);
|
|
|
|
if (cp == NULL || c == _T(':'))
|
|
return _T('?');
|
|
|
|
cp++;
|
|
if (*cp == _T(':'))
|
|
{
|
|
if (*next != _T('\0'))
|
|
{
|
|
optarg = next;
|
|
next = NULL;
|
|
}
|
|
else if (optind < argc)
|
|
{
|
|
optarg = argv[optind];
|
|
optind++;
|
|
}
|
|
else
|
|
{
|
|
return _T('?');
|
|
}
|
|
}
|
|
|
|
return c;
|
|
}
|