2017-04-15 01:05:30 +08:00
|
|
|
/*
|
|
|
|
* Copyright 1996, University Corporation for Atmospheric Research
|
|
|
|
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "config.h"
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <assert.h>
|
|
|
|
#ifdef HAVE_FCNTL_H
|
|
|
|
#include <fcntl.h>
|
|
|
|
#endif
|
|
|
|
#ifdef _MSC_VER
|
|
|
|
#include <io.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#include "ncexternl.h"
|
|
|
|
|
2017-07-15 09:37:35 +08:00
|
|
|
#include "ncwinpath.h"
|
2017-07-14 00:40:07 +08:00
|
|
|
|
2017-04-15 01:05:30 +08:00
|
|
|
/*
|
|
|
|
Code to provide some path conversion code so that
|
|
|
|
cygwin and (some) mingw paths can be passed to open/fopen
|
|
|
|
for Windows. Other cases will be added as needed.
|
|
|
|
Rules:
|
|
|
|
1. a leading single alpha-character path element (e.g. /D/...)
|
|
|
|
will be interpreted as a windows drive letter.
|
|
|
|
2. a leading '/cygdrive/X' will be converted to
|
|
|
|
a drive letter X if X is alpha-char.
|
|
|
|
3. a leading D:/... is treated as a windows drive letter
|
|
|
|
4. If #1, #2, or #3 is encounterd, then forward slashes
|
|
|
|
will be converted to backslashes.
|
|
|
|
5. All other cases are passed thru unchanged
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* Define legal windows drive letters */
|
|
|
|
static char* windrive = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
|
|
|
|
|
|
|
|
static size_t cdlen = 10; /* strlen("/cygdrive/") */
|
|
|
|
|
2017-07-15 09:37:35 +08:00
|
|
|
static int pathdebug = -1;
|
|
|
|
static int pathformat = -1;
|
|
|
|
|
2017-04-15 01:05:30 +08:00
|
|
|
EXTERNL
|
|
|
|
char* /* caller frees */
|
|
|
|
NCpathcvt(const char* path)
|
|
|
|
{
|
|
|
|
char* outpath = NULL;
|
|
|
|
char* p;
|
|
|
|
char* q;
|
|
|
|
size_t pathlen;
|
|
|
|
|
2017-07-14 00:40:07 +08:00
|
|
|
if(path == NULL) goto done; /* defensive driving */
|
2017-07-15 09:37:35 +08:00
|
|
|
|
|
|
|
/* Check for path debug env vars */
|
|
|
|
if(pathformat < 0) {
|
|
|
|
const char* s = getenv("NCPATHFORMAT");
|
|
|
|
pathformat = (s == NULL ? 0 : 1);
|
|
|
|
}
|
|
|
|
if(pathdebug < 0) {
|
|
|
|
const char* s = getenv("NCPATHDEBUG");
|
|
|
|
pathdebug = (s == NULL ? 0 : 1);
|
|
|
|
}
|
|
|
|
|
2017-04-15 01:05:30 +08:00
|
|
|
pathlen = strlen(path);
|
|
|
|
|
|
|
|
/* 1. look for MSYS path /D/... */
|
|
|
|
if(pathlen >= 2
|
|
|
|
&& (path[0] == '/' || path[0] == '\\')
|
|
|
|
&& strchr(windrive,path[1]) != NULL
|
|
|
|
&& (path[2] == '/' || path[2] == '\\' || path[2] == '\0')) {
|
|
|
|
/* Assume this is a mingw path */
|
|
|
|
outpath = (char*)malloc(pathlen+3); /* conservative */
|
2017-07-14 00:40:07 +08:00
|
|
|
if(outpath == NULL) goto done;
|
2017-04-15 01:05:30 +08:00
|
|
|
q = outpath;
|
|
|
|
*q++ = path[1];
|
|
|
|
*q++ = ':';
|
|
|
|
strncpy(q,&path[2],pathlen);
|
|
|
|
if(strlen(outpath) == 2)
|
|
|
|
strcat(outpath,"/");
|
|
|
|
goto slashtrans;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* 2. Look for leading /cygdrive/D where D is a single-char drive letter */
|
|
|
|
if(pathlen >= (cdlen+1)
|
|
|
|
&& memcmp(path,"/cygdrive/",cdlen)==0
|
|
|
|
&& strchr(windrive,path[cdlen]) != NULL
|
|
|
|
&& (path[cdlen+1] == '/'
|
|
|
|
|| path[cdlen+1] == '\\'
|
|
|
|
|| path[cdlen+1] == '\0')) {
|
|
|
|
/* Assume this is a cygwin path */
|
|
|
|
outpath = (char*)malloc(pathlen+1); /* conservative */
|
2017-07-14 00:40:07 +08:00
|
|
|
if(outpath == NULL) goto done;
|
|
|
|
outpath[0] = path[cdlen]; /* drive letter */
|
2017-04-15 01:05:30 +08:00
|
|
|
outpath[1] = ':';
|
|
|
|
strcpy(&outpath[2],&path[cdlen+1]);
|
|
|
|
if(strlen(outpath) == 2)
|
|
|
|
strcat(outpath,"/");
|
|
|
|
goto slashtrans;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* 3. Look for leading D: where D is a single-char drive letter */
|
|
|
|
if(pathlen >= 2
|
|
|
|
&& strchr(windrive,path[0]) != NULL
|
|
|
|
&& path[1] == ':'
|
|
|
|
&& (path[2] == '\0' || path[2] == '/' || path[2] == '\\')) {
|
|
|
|
outpath = strdup(path);
|
|
|
|
goto slashtrans;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* 4. Other: just pass thru */
|
|
|
|
outpath = strdup(path);
|
|
|
|
goto done;
|
|
|
|
|
|
|
|
slashtrans:
|
2017-07-14 00:40:07 +08:00
|
|
|
/* In order to help debugging, and if not using MSC_VER or MINGW,
|
|
|
|
convert back slashes to forward, else convert forward to back
|
|
|
|
*/
|
2017-04-15 01:05:30 +08:00
|
|
|
p = outpath;
|
2017-07-14 00:40:07 +08:00
|
|
|
/* In all #1 or #2 cases, translate '/' -> '\\' */
|
2017-04-15 01:05:30 +08:00
|
|
|
for(;*p;p++) {
|
|
|
|
if(*p == '/') {*p = '\\';}
|
|
|
|
}
|
2017-07-15 09:37:35 +08:00
|
|
|
if(pathformat > 0) {
|
2017-07-14 00:40:07 +08:00
|
|
|
#ifndef _MSC_VER
|
2017-07-15 09:37:35 +08:00
|
|
|
p = outpath;
|
|
|
|
/* Convert '\' back to '/' */
|
|
|
|
for(;*p;p++) {
|
|
|
|
if(*p == '\\') {*p = '/';}
|
|
|
|
}
|
2017-07-14 00:40:07 +08:00
|
|
|
}
|
|
|
|
#endif /*!_MSC_VER*/
|
|
|
|
|
2017-04-15 01:05:30 +08:00
|
|
|
done:
|
2017-07-15 09:37:35 +08:00
|
|
|
if(pathdebug) {
|
|
|
|
fprintf(stderr,"XXXX: inpath=|%s| outpath=|%s|\n",
|
|
|
|
path?path:"NULL",outpath?outpath:"NULL");
|
|
|
|
fflush(stderr);
|
|
|
|
}
|
2017-04-15 01:05:30 +08:00
|
|
|
return outpath;
|
|
|
|
}
|
|
|
|
|
|
|
|
#ifdef WINPATH
|
|
|
|
|
|
|
|
/*
|
|
|
|
Provide wrappers for open and fopen.
|
|
|
|
*/
|
|
|
|
|
|
|
|
EXTERNL
|
|
|
|
FILE*
|
|
|
|
NCfopen(const char* path, const char* flags)
|
|
|
|
{
|
|
|
|
FILE* f = NULL;
|
|
|
|
char* cvtname = NCpathcvt(path);
|
|
|
|
if(cvtname == NULL) return NULL;
|
|
|
|
f = fopen(cvtname,flags);
|
|
|
|
free(cvtname);
|
|
|
|
return f;
|
|
|
|
}
|
|
|
|
|
|
|
|
EXTERNL
|
|
|
|
int
|
|
|
|
NCopen3(const char* path, int flags, int mode)
|
|
|
|
{
|
|
|
|
int fd = -1;
|
|
|
|
fflush(stderr);
|
|
|
|
char* cvtname = NCpathcvt(path);
|
|
|
|
fflush(stderr);
|
|
|
|
if(cvtname == NULL) return -1;
|
|
|
|
fd = open(cvtname,flags,mode);
|
|
|
|
free(cvtname);
|
|
|
|
return fd;
|
|
|
|
}
|
|
|
|
|
|
|
|
EXTERNL
|
|
|
|
int
|
|
|
|
NCopen2(const char *path, int flags)
|
|
|
|
{
|
|
|
|
return NCopen3(path,flags,0);
|
|
|
|
}
|
|
|
|
|
|
|
|
#endif /*WINPATH*/
|