Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
308
cde/lib/DtSearch/raima/pathfcns.c
Normal file
308
cde/lib/DtSearch/raima/pathfcns.c
Normal file
@@ -0,0 +1,308 @@
|
||||
/* $XConsortium: pathfcns.c /main/2 1996/05/09 04:13:28 drk $ */
|
||||
/*
|
||||
* COMPONENT_NAME: austext
|
||||
*
|
||||
* FUNCTIONS: con_dbd
|
||||
* con_dbf
|
||||
* d_ctbpath
|
||||
* get_element
|
||||
* isabs
|
||||
* remdrv
|
||||
* remfile
|
||||
*
|
||||
* ORIGINS: 157
|
||||
*
|
||||
* OBJECT CODE ONLY SOURCE MATERIALS
|
||||
*/
|
||||
/*-----------------------------------------------------------------------
|
||||
pathfcns.c - Dictionary and file path functions
|
||||
|
||||
This file contains the functions con_dbd and con_dbf which construct
|
||||
the full path for the dictionary and data files. It provides a uniform
|
||||
method of dealing with how to construct the full paths given the schema
|
||||
path, d_open path, and the paths provided in DBDPATH and DBFPATH. This
|
||||
function does not depend upon the runtime and can be included with
|
||||
utilities that do not call the runtime.
|
||||
|
||||
This file also contains the function get_element which extracts a single
|
||||
element out of the possibly multiple-element DBDPATH or DBFPATH. Each
|
||||
element is separated by a semacolon.
|
||||
|
||||
AUTHOR: R.S. Carlson
|
||||
DATE: 08-Jun-88
|
||||
PROJECT: db_VISTA 3.10 enhancements
|
||||
|
||||
Copyright (C) 1988 by Raima Corporation
|
||||
-----------------------------------------------------------------------*/
|
||||
|
||||
/* ********************** EDIT HISTORY *******************************
|
||||
|
||||
SCR DATE INI DESCRIPTION
|
||||
----- --------- --- -----------------------------------------------------
|
||||
16-JUN-88 RSC Cleaned up prototyping (proto.h) and made functions static
|
||||
23-Jun-88 RSC Make const_dbd and const_dbf unique to 7 chars
|
||||
*/
|
||||
|
||||
|
||||
/* ********************** INCLUDE FILES ****************************** */
|
||||
|
||||
#include <stdio.h>
|
||||
#include "vista.h"
|
||||
#include "dbtype.h"
|
||||
|
||||
#ifdef dbdpath
|
||||
#undef dbdpath
|
||||
#endif
|
||||
#ifdef dbfpath
|
||||
#undef dbfpath
|
||||
#endif
|
||||
|
||||
/* ********************** FUNCTION PROTOTYPES ************************ */
|
||||
|
||||
static int isabs(P1(char FAR *));
|
||||
/* TRUE if path is absolute */
|
||||
static char FAR * remdrv(P1(char FAR *));
|
||||
/* Removes drive spec from path */
|
||||
static char FAR * remfile(P1(char FAR *));
|
||||
/* Removes file from path */
|
||||
|
||||
/* ======================================================================
|
||||
Construct the full path to the dictionary.
|
||||
*/
|
||||
int con_dbd(path_str,dbname,dbdpath)
|
||||
char FAR *path_str; /* (output) string to receive the full path to the
|
||||
dictionary */
|
||||
char FAR *dbname; /* contains the filename of the dictionary preceeded
|
||||
optionally by a path preceeded optionally (DOS only)
|
||||
by a drive spec. */
|
||||
char FAR *dbdpath; /* contains one element of the environment variable
|
||||
DBDPATH. NULL means no DBDPATH defined. */
|
||||
{
|
||||
/*
|
||||
RETURNS: db_status, S_OKAY means no errors
|
||||
ASSUMES: That the string dbdpath contains enough room
|
||||
to add a DIRCHAR if it isn't in there.
|
||||
*/
|
||||
|
||||
int i; /* Trusty loop counter / index */
|
||||
|
||||
/* We stop constructing the string when we find an absolute path */
|
||||
if (isabs(dbname)) {
|
||||
strcpy(path_str,dbname);
|
||||
}
|
||||
else {
|
||||
|
||||
/* See if dbdpath was defined. Make sure it ends with a DIRCHAR
|
||||
or ':' */
|
||||
if (dbdpath) {
|
||||
i = strlen(dbdpath);
|
||||
if (dbdpath[i-1] != DIRCHAR && dbdpath[i-1] != ':') {
|
||||
dbdpath[i++] = DIRCHAR;
|
||||
dbdpath[i] = '\0';
|
||||
}
|
||||
if (i >= FILENMLEN - 4) return (db_status = S_NAMELEN);
|
||||
|
||||
/* Now construct the path with dbdpath + dbname */
|
||||
strcpy(path_str,dbdpath);
|
||||
if (strlen(path_str) + strlen(remdrv(dbname)) >= FILENMLEN - 4)
|
||||
return (db_status = S_NAMELEN);
|
||||
strcat(path_str,remdrv(dbname));
|
||||
}
|
||||
else /* dbdpath not defined */
|
||||
strcpy(path_str,dbname);
|
||||
}
|
||||
|
||||
/* Now add the .dbd extension */
|
||||
strcat(path_str,".dbd");
|
||||
return (db_status = S_OKAY);
|
||||
|
||||
}
|
||||
/* ======================================================================
|
||||
Construct full path to data/key files
|
||||
*/
|
||||
int con_dbf(path_str, dbfile, dbname, dbfpath)
|
||||
char FAR *path_str; /* (output) receives full path to dictionary */
|
||||
char FAR *dbfile; /* path to database file (defn in schema) */
|
||||
char FAR *dbname; /* d_open dbname argument - path to dictionary */
|
||||
char FAR *dbfpath; /* one element from DBFPATH, or NULL for no path */
|
||||
{
|
||||
/*
|
||||
RETURNS: db_status, S_OKAY means no error.
|
||||
ASSUMES: None.
|
||||
*/
|
||||
char filespec[FILENMLEN]; /* Scratch work space */
|
||||
int i; /* Trusty loop counter/index */
|
||||
|
||||
/* Stop construction when we get to an absolute path. If we prepend
|
||||
then remove the previous drive specifier */
|
||||
strcpy(path_str,dbfile);
|
||||
if (isabs(dbfile)) return (db_status = S_OKAY);
|
||||
|
||||
/* Add only the drive specification and directory component of the
|
||||
path supplied in dbname */
|
||||
if ((dbname = remfile(dbname)) != NULL) {
|
||||
if (strlen(path_str) + strlen(dbname) >= FILENMLEN)
|
||||
return(db_status = S_NAMELEN);
|
||||
strcpy(filespec,dbname); /* Copy to working space */
|
||||
strcat(filespec,remdrv(path_str));/* Construct dbname + schema */
|
||||
strcpy(path_str,filespec); /* Place in o/p string */
|
||||
if (isabs(dbname)) return (db_status = S_OKAY);
|
||||
}
|
||||
|
||||
/* Now add the path specification from DBFPATH, if defined */
|
||||
if (dbfpath == NULL) return (db_status = S_OKAY);
|
||||
i = strlen(dbfpath); /* Make sure it ends with DIRCHAR */
|
||||
if (dbfpath[i-1] != DIRCHAR && dbfpath[i-1] != ';') {
|
||||
dbfpath[i++] = DIRCHAR;
|
||||
dbfpath[i] = '\0';
|
||||
}
|
||||
if (strlen(path_str) + strlen(dbfpath) >= FILENMLEN)
|
||||
return (db_status = S_NAMELEN);
|
||||
strcpy(filespec,dbfpath);
|
||||
strcat(filespec,remdrv(path_str));
|
||||
strcpy(path_str,filespec);
|
||||
return (db_status = S_OKAY);
|
||||
|
||||
}
|
||||
|
||||
/* ======================================================================
|
||||
extracts a single element from DBxPATH type variables
|
||||
*/
|
||||
char FAR * get_element(dbxpath,num)
|
||||
char FAR *dbxpath; /* DBxPATH, elements separated by semicolons
|
||||
NULL causes get_element to return NULL.
|
||||
A NULL string also causes a NULL return */
|
||||
int num; /* Element to extract (0 = first) */
|
||||
{
|
||||
/*
|
||||
RETURNS: Pointer to string with element. NULL if no such element
|
||||
exists. If there is only one element in the string, then
|
||||
that element is returned regardless of the value of num.
|
||||
ASSUMES: dbxpath cannot exceed FILENMLEN chars.
|
||||
*/
|
||||
|
||||
static char element[FILENMLEN+1]; /* return value */
|
||||
int i;
|
||||
char FAR *save;
|
||||
|
||||
if (dbxpath == NULL) return (NULL);
|
||||
if (dbxpath[0] == '\0') return (NULL); /* NULL string? */
|
||||
strcpy(element,dbxpath);
|
||||
|
||||
/* If there is only one element, always return that */
|
||||
if (strchr(element,';') == NULL) {
|
||||
i = strlen(element);
|
||||
if (element[i-1] != DIRCHAR && element[i-1] != ':') {
|
||||
element[i++] = DIRCHAR;
|
||||
element[i] = '\0';
|
||||
}
|
||||
return (element);
|
||||
}
|
||||
|
||||
/* There are multiple elements - return the one requested */
|
||||
dbxpath = element - 1;
|
||||
for (i=0; i<num; i++)
|
||||
if ((dbxpath = strchr(dbxpath+1,';')) == NULL) return (NULL);
|
||||
dbxpath++;
|
||||
if ((save = strchr(dbxpath+1,';')) != NULL) *save = '\0';
|
||||
i = (dbxpath - (char FAR *)element) + strlen((CONST char FAR *)dbxpath);
|
||||
if (element[i-1] != DIRCHAR && element[i-1] != ':') {
|
||||
element[i++] = DIRCHAR;
|
||||
element[i] = '\0';
|
||||
}
|
||||
return (dbxpath);
|
||||
}
|
||||
|
||||
/* ======================================================================
|
||||
Returns TRUE of path is absolute
|
||||
*/
|
||||
static int isabs(path_str)
|
||||
char FAR *path_str; /* path to test, NULL causes iabs to return FALSE */
|
||||
{
|
||||
/*
|
||||
RETURNS: TRUE if path is absolute
|
||||
ASSUMES: None.
|
||||
*/
|
||||
char FAR *path; /* Points to path w/o drive spec */
|
||||
|
||||
if (path_str == NULL) return (FALSE);
|
||||
path = remdrv(path_str);
|
||||
if (path[0] != DIRCHAR) return (FALSE);
|
||||
return (TRUE);
|
||||
}
|
||||
|
||||
/* ======================================================================
|
||||
Removes drive specifier from path
|
||||
*/
|
||||
static char FAR * remdrv(path_str)
|
||||
char FAR *path_str; /* path to remove drive from */
|
||||
{
|
||||
/*
|
||||
RETURNS: Pointer to string w/o drive specification. Note that
|
||||
this simply points further into path_str.
|
||||
ASSUMES: None.
|
||||
*/
|
||||
char FAR *path; /* Return value */
|
||||
|
||||
if ((path = strrchr(path_str,':')) == NULL) return (path_str);
|
||||
return (path+1);
|
||||
}
|
||||
|
||||
/* ======================================================================
|
||||
Removes file from a path.
|
||||
*/
|
||||
static char FAR * remfile(path_str)
|
||||
char FAR *path_str; /* Path to remove filename from */
|
||||
{
|
||||
/*
|
||||
RETURNS: Pointer to the path with the filename removed (a static
|
||||
string declared within remfile). If there is no filename
|
||||
(only a directory or drive spec), remfile will return
|
||||
NULL. The returned string will end with a DIRCHAR
|
||||
ASSUMES: path_str cannot exceed FILENMLEN characters.
|
||||
*/
|
||||
static char dirpath[FILENMLEN]; /* Return value */
|
||||
|
||||
/* There is only a filename if string does not contain a DIRCHAR or
|
||||
':' which separates drive spec from path. */
|
||||
if (path_str == NULL) return (NULL);
|
||||
strcpy(dirpath,path_str); /* Copy into output string */
|
||||
if ((path_str = strrchr(dirpath,DIRCHAR)) == NULL)
|
||||
if ((path_str = strrchr(dirpath,':')) == NULL) return (NULL);
|
||||
path_str[1] = '\0'; /* Truncate string */
|
||||
return (dirpath);
|
||||
}
|
||||
|
||||
#ifndef NO_COUNTRY
|
||||
/* Set Country Table path
|
||||
*/
|
||||
int d_ctbpath(ctb TASK_PARM)
|
||||
CONST char FAR *ctb;
|
||||
TASK_DECL
|
||||
{
|
||||
int i;
|
||||
|
||||
DB_ENTER(NO_DB_ID TASK_ID LOCK_SET(LOCK_NONE));
|
||||
|
||||
if ( dbopen )
|
||||
dberr(S_DBOPEN);
|
||||
else {
|
||||
strncpy(db_global.ctbpath, ctb, FILENMLEN - 1);
|
||||
db_global.ctbpath[FILENMLEN - 1] = '\0';
|
||||
if ( db_global.ctbpath[0] ) {
|
||||
i = strlen(db_global.ctbpath);
|
||||
if ( db_global.ctbpath[i-1] != DIRCHAR &&
|
||||
db_global.ctbpath[i-1] != ':' ) {
|
||||
db_global.ctbpath[i++] = DIRCHAR;
|
||||
db_global.ctbpath[i] = '\0';
|
||||
}
|
||||
if ( i >= FILENMLEN-1 ) RETURN( dberr(S_NAMELEN) );
|
||||
}
|
||||
|
||||
db_status = S_OKAY;
|
||||
}
|
||||
|
||||
RETURN( db_status );
|
||||
}
|
||||
#endif
|
||||
/* vpp -nOS2 -dUNIX -nBSD -nVANILLA_BSD -nVMS -nMEMLOCK -nWINDOWS -nFAR_ALLOC -f/usr/users/master/config/nonwin pathfcns.c */
|
||||
Reference in New Issue
Block a user