gno/lib/libcontrib/expandpath.c

91 lines
1.8 KiB
C
Raw Normal View History

/*
* $Id: expandpath.c,v 1.1 1997/10/30 04:57:25 gdr Exp $
*/
/* Change the arg types of GS/OS parameter blocks. Must be before #includes */
#define __USE_DYNAMIC_GSSTRING__
#include <types.h>
#include <gsos.h>
#include <errno.h>
#include <orca.h>
#include <gno/gno.h>
#include "contrib.h"
/*
* expandpath
*
* Uses the GS/OS facilities to expand the pathname <path>. On
* success, returns a pointer to the malloc'd expanded path. On
* failure it will return NULL and set errno.
*
* Note that in using this function, all directory separators will
* be converted to colons.
*
* *********** THIS ROUTINE IS NOT REENTRANT **************
*/
#define OUTBUF_QUANTUM 255
GSStringPtr
LC_ExpandPathGS (GSStringPtr path)
{
static ExpandPathRecGS expand;
static ResultBufPtr outBuf = NULL;
static int outBufSize = 0;
int i;
expand.pCount = 2;
expand.inputPath = path;
expand.flags = 0x0000;
if (outBuf == NULL) {
outBufSize += OUTBUF_QUANTUM;
outBuf = GOinit(outBufSize, NULL);
if (outBuf == NULL) {
errno = ENOMEM;
return NULL;
}
}
for(;;) {
expand.outputPath = outBuf;
ExpandPathGS(&expand);
switch (_toolErr) {
case 0:
/* NULL-terminate it and return */
(outBuf->bufString.text)[outBuf->bufString.length]
= '\0';
return &(outBuf->bufString);
break;
case buffTooSmall:
break;
default:
errno = _mapErr(_toolErr);
return NULL;
}
/* if we got here, the buffer wasn't large enough */
outBufSize += OUTBUF_QUANTUM;
outBuf = GOchange(outBuf, outBufSize, NULL);
}
}
char *
LC_ExpandPath (char *path)
{
GSStringPtr inStr, result;
int e;
if ((inStr = __C2GSMALLOC(path)) == NULL) {
return NULL;
}
result = LC_ExpandPathGS(inStr);
e = errno;
GIfree(inStr);
errno = e;
if (result) {
return result->text;
} else {
return NULL;
}
}