mirror of
https://github.com/Unidata/netcdf-c.git
synced 2024-12-21 08:39:46 +08:00
36102e3c32
re: Issue https://github.com/Unidata/netcdf-c/issues/2190 The primary purpose of this PR is to improve the utf8 support for windows. This is persuant to a change in Windows that supports utf8 natively (almost). The almost means that it is still utf16 internally and the set of characters representable by utf8 is larger than those representable by utf16. This leaves open the question in the Issue about handling the Windows 1252 character set. This required the following changes: 1. Test the Windows build and major version in order to see if native utf8 is supported. 2. If native utf8 is supported, Modify dpathmgr.c to call the 8-bit version of the windows fopen() and open() functions. 3. In support of this, programs that use XGetOpt (Windows versions) need to get the command line as utf8 and then parse to arc+argv as utf8. This requires using a homegrown command line parser named XCommandLineToArgvA. 4. Add a utility program called "acpget" that prints out the current Windows code page and locale. Additionally, some technical debt was cleaned up as follows: 1. Unify all the places which attempt to read all or a part of a file into the dutil.c#NC_readfile code. 2. Similary unify all the code that creates temp files into dutil.c#NC_mktmp code. 3. Convert almost all remaining calls to fopen() and open() to NCfopen() and NCopen3(). This is to ensure that path management is used consistently. This touches a number of files. 4. extern->EXTERNL as needed to get it to work under Windows.
166 lines
3.8 KiB
C
166 lines
3.8 KiB
C
/*********************************************************************
|
|
* Copyright 2016, UCAR/Unidata
|
|
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
|
*********************************************************************/
|
|
|
|
/* Define various things common to all the t_dmr*.c testers */
|
|
#undef DEBUG
|
|
#undef DUMP
|
|
|
|
#include "d4includes.h"
|
|
|
|
#ifdef DEBUG
|
|
#include "ezxml.h"
|
|
#endif
|
|
|
|
typedef int TDMR;
|
|
#define TDMR_PARSE 1
|
|
#define TDMR_META 2
|
|
#define TDMR_DATA 4
|
|
|
|
static NCbytes* input = NULL;
|
|
static NCbytes* output = NULL;
|
|
static NCD4meta* metadata = NULL;
|
|
static char* infile = NULL;
|
|
static char* outfile = NULL;
|
|
static int ncid = 0;
|
|
static int translatenc4 = 0;
|
|
|
|
static void
|
|
fail(int code)
|
|
{
|
|
if(code != NC_NOERR)
|
|
fprintf(stderr,"***Fail: %s\n",nc_strerror(code));
|
|
exit((code==NC_NOERR?EXIT_SUCCESS:EXIT_FAILURE));
|
|
}
|
|
|
|
static void
|
|
setup(int tdmr, int argc, char** argv)
|
|
{
|
|
int ret = NC_NOERR;
|
|
argc--; argv++;
|
|
int expected = 0;
|
|
NCD4mode mode = 0;
|
|
NCD4INFO* controller = NULL;
|
|
|
|
switch(tdmr) {
|
|
case TDMR_PARSE:
|
|
expected = 1;
|
|
mode = NCD4_DMR;
|
|
break;
|
|
case TDMR_META:
|
|
expected = 2;
|
|
mode = NCD4_DMR;
|
|
break;
|
|
case TDMR_DATA:
|
|
fprintf(stderr,"setup is not used for t_dmrdata\n");
|
|
mode = NCD4_DAP;
|
|
exit(1);
|
|
}
|
|
|
|
if(argc < expected) {
|
|
fprintf(stderr, "too few arguments\n");
|
|
exit(1);
|
|
}
|
|
infile = argv[0];
|
|
outfile = NULL;
|
|
input = ncbytesnew();
|
|
output = ncbytesnew();
|
|
if((ret = NC_readfile(infile,input))) fail(ret);
|
|
{
|
|
const char* trans = getenv("translatenc4");
|
|
if(trans != NULL)
|
|
translatenc4 = 1;
|
|
}
|
|
|
|
#ifdef DUMP
|
|
NCD4_dumpbytes(ncbyteslength(input),ncbytescontents(input),0);
|
|
#endif
|
|
|
|
/* Create a fake NCD4INFO */
|
|
controller = (NCD4INFO*)calloc(1,sizeof(NCD4INFO));
|
|
if(controller == NULL)
|
|
fail(NC_ENOMEM);
|
|
controller->controls.translation = NCD4_TRANSNC4;
|
|
if(translatenc4)
|
|
controller->controls.translation = NCD4_TRANSNC4;
|
|
NCD4_applyclientparamcontrols(controller);
|
|
if((metadata=NCD4_newmeta(controller))==NULL)
|
|
fail(NC_ENOMEM);
|
|
metadata->mode = mode;
|
|
NCD4_attachraw(metadata, ncbyteslength(input),ncbytescontents(input));
|
|
|
|
if((ret=NCD4_dechunk(metadata))) /* ok for mode == DMR or mode == DAP */
|
|
fail(ret);
|
|
#ifdef DEBUG
|
|
{
|
|
int swap = (metadata->serial.hostbigendian != metadata->serial.remotebigendian);
|
|
void* d = metadata->serial.dap;
|
|
size_t sz = metadata->serial.dapsize;
|
|
fprintf(stderr,"====================\n");
|
|
fprintf(stderr,"%s\n",metadata->serial.dmr);
|
|
fprintf(stderr,"----------\n");
|
|
NCD4_dumpbytes(sz,d,swap);
|
|
fprintf(stderr,"====================\n");
|
|
fflush(stderr);
|
|
}
|
|
#endif
|
|
if(expected > 1) {
|
|
outfile = argv[1];
|
|
if((ret = nc_create(outfile,NC_CLOBBER|NC_NETCDF4,&ncid))) fail(ret);
|
|
}
|
|
|
|
#ifdef DEBUG
|
|
{
|
|
char* tree;
|
|
ezxml_t dom = ezxml_parse_str(ncbytescontents(input),ncbyteslength(input));
|
|
if(dom == NULL) exit(1);
|
|
tree = ezxml_toxml(dom);
|
|
fprintf(stderr,"////////////////////\n");
|
|
fprintf(stderr,"%s\n",tree);
|
|
fprintf(stderr,"////////////////////\n");
|
|
}
|
|
#endif
|
|
{
|
|
const char* slevel = getenv("d4loglevel");
|
|
int level;
|
|
if(slevel != NULL && sscanf(slevel,"%d",&level) == 1) {
|
|
nc_set_log_level(level);
|
|
}
|
|
}
|
|
}
|
|
|
|
int
|
|
cleanup(int ret)
|
|
{
|
|
if(outfile != NULL) {
|
|
if(ret != NC_NOERR)
|
|
ret = nc_abort(ncid);
|
|
else
|
|
ret = nc_close(ncid);
|
|
}
|
|
if(metadata->controller != NULL)
|
|
free(metadata->controller);
|
|
NCD4_reclaimMeta(metadata);
|
|
ncbytesfree(output);
|
|
if(ret)
|
|
fail(ret);
|
|
else
|
|
exit(EXIT_SUCCESS);
|
|
return 0;
|
|
}
|
|
|
|
#if 0
|
|
static void
|
|
printxml(const char* input)
|
|
{
|
|
char* tree;
|
|
ezxml_t dom = ezxml_parse_str(input,strlen(input));
|
|
if(dom == NULL) exit(1);
|
|
tree = ezxml_toxml(dom);
|
|
fprintf(stderr,"////////////////////\n");
|
|
fprintf(stderr,"%s\n",tree);
|
|
fprintf(stderr,"////////////////////\n");
|
|
}
|
|
#endif
|