forked from epics_driver_modules/require
brands
79 lines
1.7 KiB
C
79 lines
1.7 KiB
C
/* winunixconv.c
|
|
*
|
|
* convert backslashes into slashes
|
|
*
|
|
* $Author: brands $
|
|
*
|
|
* $Source: /cvs/G/DRV/misc/winunixconv.c,v $
|
|
*
|
|
*/
|
|
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <dbScan.h>
|
|
#include <dbStaticLib.h>
|
|
#include <dbAccess.h>
|
|
#include <epicsVersion.h>
|
|
#ifdef BASE_VERSION
|
|
#define EPICS_3_13
|
|
extern DBBASE *pdbbase;
|
|
#else
|
|
#define EPICS_3_14
|
|
#include <iocsh.h>
|
|
#include <epicsExport.h>
|
|
#endif
|
|
|
|
|
|
int winunixconv (char* envvar)
|
|
{
|
|
char *cp;
|
|
char *envstr = getenv(envvar);
|
|
int j = 0;
|
|
|
|
|
|
while (envstr[j] != '\0'){
|
|
if (envstr[j] == '\\') {
|
|
envstr[j] = '/';
|
|
}
|
|
j++;
|
|
}
|
|
cp = mallocMustSucceed (strlen (envvar) + strlen (envstr) + 2, "winunixconv");
|
|
|
|
strcpy (cp, envvar);
|
|
strcat (cp, "=");
|
|
strcat (cp, envstr);
|
|
if (putenv (cp) < 0) {
|
|
errPrintf(
|
|
-1L,
|
|
__FILE__,
|
|
__LINE__,
|
|
"Failed to set environment parameter \"%s\" to new value \"%s\": %s\n",
|
|
envvar,
|
|
envstr,
|
|
strerror (errno));
|
|
free (cp);
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
#ifdef EPICS_3_14
|
|
static const iocshArg winunixconvArg0 = { "envVar", iocshArgString };
|
|
static const iocshArg * const winunixconvArgs[1] = { &winunixconvArg0 };
|
|
static const iocshFuncDef winunixconvDef = { "winunixconv", 1, winunixconvArgs };
|
|
static void winunixconvFunc (const iocshArgBuf *args)
|
|
{
|
|
winunixconv(args[0].sval);
|
|
}
|
|
static void winunixconvRegister(void)
|
|
{
|
|
static int winunixconvfirstTime = 1;
|
|
if (winunixconvfirstTime) {
|
|
iocshRegister (&winunixconvDef, winunixconvFunc);
|
|
winunixconvfirstTime = 0;
|
|
}
|
|
}
|
|
epicsExportRegistrar(winunixconvRegister);
|
|
#endif
|
|
|