falso
/
cdesktopenv
mirror of https://git.code.sf.net/p/cdesktopenv/code
1
0
Fork 0
Code Issues Releases Wiki Activity
cdesktopenv/cde/lib/DtSearch/raima/pathfcns.c

331 lines
10 KiB
C
Raw Blame History

/*
* CDE - Common Desktop Environment
*
* Copyright (c) 1993-2012, The Open Group. All rights reserved.
*
* These libraries and programs are free software; you can
* redistribute them and/or modify them under the terms of the GNU
* Lesser General Public License as published by the Free Software
* Foundation; either version 2 of the License, or (at your option)
* any later version.
*
* These libraries and programs are distributed in the hope that
* they will be useful, but WITHOUT ANY WARRANTY; without even the
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
* PURPOSE. See the GNU Lesser General Public License for more
* details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with these librararies and programs; if not, write
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
* Floor, Boston, MA 02110-1301 USA
*/
/* $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 View Git Blame Copy Permalink