root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/cb/source/u4name.c
alex 3d6c8b3e2d Patch level : 2.0 464 
Files correlati     : cb6.dll
Ricompilazione Demo : [ ]
Commento            :
Modifiche per la compilazione Linux


git-svn-id: svn://10.65.10.50/trunk@11080 c028cbd2-c16b-5b4b-a496-9718f37d4682
2003-05-01 15:14:58 +00:00

599 lines
15 KiB
C
Executable File
Raw Blame History

/* u4name.c (c)Copyright Sequiter Software Inc., 1988-1996. All rights reserved. */
#include "d4all.h"
#ifdef __TURBOC__
#pragma hdrstop
#endif
#ifdef S4WINTEL
#include <direct.h>
#endif
#include <ctype.h>
#ifdef P4ARGS_USED
#pragma argsused
#endif
int S4FUNCTION u4nameExt( char *name, int lenResult, const char *newExt, const int doReplace )
{
int fileNameLen, extPos, onPos ;
char *ptr ;
#ifdef E4MISC
int extLen ;
#endif
ptr = name + (int)strlen( name ) - 1 ;
while ( *ptr == ' ' )
{
*ptr = '\0' ;
ptr-- ;
}
extPos = fileNameLen = strlen( name ) ;
if ( extPos != 0 )
for( onPos = extPos-1 ;; onPos-- )
{
if ( name[onPos] == '.' )
{
extPos = onPos ;
break ;
}
if (name[onPos] == S4DIR || name[onPos] == S4DIR1)
break ;
if ( onPos == 0 )
break ;
}
if ( fileNameLen != extPos && !doReplace )
{
#ifndef S4CASE_SEN
c4upper( name ) ;
#endif
return 0 ;
}
if ( *newExt == '.' )
newExt++ ;
#ifdef E4MISC
extLen = strlen( newExt ) ;
if ( extLen > 3 )
extLen = 3 ;
if ( lenResult <= extPos + extLen + 1 )
return error4( 0, e4result, E94507 ) ;
#endif
name[extPos++] = '.' ;
strcpy( name + extPos, newExt ) ;
#ifndef S4CASE_SEN
c4upper(name) ;
#endif
return 0 ;
}
/* takes the input buffer and removes any "..\" or ".\"pieces */
static int u4nameFix( char *buf )
{
int i, j, len, l2 ;
len = strlen( buf ) ;
for( i = 0 ; i < len - 2 ; i++ )
{
/*
#ifdef S4UNIX
if ( c4memcmp(buf+i, "../", 3 ) == 0 )
#else
if ( c4memcmp( buf + i, "..\\", 3 ) == 0 )
#endif
*/
if ( c4memcmp(buf+i, "../", 3 ) == 0 || c4memcmp( buf + i, "..\\", 3 ) == 0 )
{
len -= 3 ;
c4memmove( buf+i, buf+i+3, (unsigned int)(len - i) ) ;
if ( i >= 2 ) /* need to remove previous path part too */
{
if ( buf[i-1] != S4DIR || buf[i-1] != S4DIR1 )
return error4( 0, e4name, E94510 ) ;
for( j = i-2 ; j > 0 ; j-- )
{
if ( buf[j] == S4DIR || buf[j] == S4DIR1 )
{
c4memmove( buf+j+1, buf+i, (unsigned int)(len - i) ) ;
l2 = i - j - 1 ;
len -= l2 ;
i -= l2 ;
break ;
}
}
}
i-- ; /* compensate for position */
}
}
for( i = 0 ; i < len - 1 ; i++ )
{
/*
#ifdef S4UNIX
if ( c4memcmp( buf + i, "./", 2 ) == 0 )
#else
if ( c4memcmp( buf + i, ".\\", 2 ) == 0 )
#endif
*/
if ( c4memcmp( buf + i, "./", 2 ) == 0 || c4memcmp( buf + i, ".\\", 2 ) == 0 )
{
len -= 2 ;
c4memmove( buf+i, buf+i+2, (unsigned int)(len - i) ) ;
i-- ; /* compensate for position */
}
}
buf[len] = 0 ;
#ifndef S4CASE_SEN
c4upper(buf) ;
#endif
return 0 ;
}
#ifndef S4WINTEL
/* take the input file name and add the current drive and path if required */
int S4FUNCTION u4nameCurrent( char *buf, const int bufLen, const char *name )
{
int namePos, len, len2;
#ifdef E4PARM_LOW
if ( buf == 0 || name == 0 )
return error4( 0, e4parm_null, E94509 ) ;
#endif
if ( name[0] == S4DIR || name[0] == S4DIR1 ) /* full path */
{
len = strlen( name ) ;
if ( len+1 > bufLen )
return error4( 0, e4parm, E94509 ) ;
memcpy( buf, name, (unsigned int)len ) ;
buf[len] = 0 ;
return u4nameFix( buf ) ;
}
namePos = 0 ;
/* */
if ( getcwd( buf, bufLen ) == 0 )
/* */
/* */
/* */
return error4( 0, e4parm, E94509 ) ;
len2 = strlen( buf ) ;
for ( ;; )
{
/* */
if ( c4memcmp( name + namePos, "../", 3 ) != 0 )
/* */
/* */
/* */
break;
/* must remove part of the current path */
if ( len2 > 2 )
len2-- ;
for ( ;; )
{
if ( len2 == 2 )
break ;
len2-- ;
if ( buf[len2] == S4DIR || buf[len2] == S4DIR1 )
break ;
}
namePos += 3 ;
}
if ( buf[len2-1] != S4DIR || buf[len2-1] != S4DIR1 ) /* need to add the backslash */
{
if ( len2 + 1 >= bufLen )
return error4( 0, e4parm, E94509 ) ;
buf[len2] = S4DIR ; /* ???? */
len2++ ;
}
len = strlen( name + namePos ) ;
if ( len + 1 > bufLen - len2 )
return error4( 0, e4parm, E94509 ) ;
memcpy( buf + len2, name + namePos, (unsigned int)len ) ;
buf[len2 + len] = 0 ;
return u4nameFix( buf ) ;
}
#else
/* take the input file name and add the current drive and path if required */
int S4FUNCTION u4nameCurrent( char *buf, const int bufLen, const char *name )
{
int namePos, len, len2, i, isMachineName ;
unsigned int driveNo ;
#ifdef __WATCOMC__
unsigned origDrive, curDrive, dummy;
#endif
#ifdef E4PARM_LOW
if ( buf == 0 || name == 0 )
return error4( 0, e4parm_null, E94509 ) ;
#endif
/* also must consider machine name accesses (eg. "\\BARNEY\TEST...") */
if ( name[0] == '\\' && name[1] == '\\' )
isMachineName = 1 ;
else
{
isMachineName = 0 ;
if ( name[1] != ':' ) /* must get the default drive */
{
#ifdef S4WIN32
#ifdef __BORLANDC__
driveNo = getdisk() + 1 ; /* get disk returns one less than get drive */
#else
driveNo = _getdrive() ;
#endif
#else
#ifdef S4OS2
driveNo = _getdrive() ;
#else
_dos_getdrive( &driveNo ) ;
#endif
#endif
buf[0] = 'A' + (char)(driveNo - 1) ;
buf[1] = ':' ;
if ( name[0] == S4DIR || name[0] == S4DIR1 ) /* just append the path */
{
len = strlen( name ) ;
if ( len + 3 > bufLen )
return error4( 0, e4parm, E94509 ) ;
memcpy( buf + 2, name, (unsigned int)len ) ;
buf[len + 2] = 0 ;
return u4nameFix( buf ) ;
}
namePos = 0 ;
}
else
{
if ( name[2] == S4DIR || name[2] == S4DIR1 ) /* have the full path, so done */
{
len = strlen( name ) ;
if ( len + 1 > bufLen )
return error4( 0, e4parm, E94509 ) ;
memcpy( buf, name, (unsigned int)len ) ;
buf[len] = 0 ;
return u4nameFix( buf ) ;
}
memcpy( buf, name, 2 ) ; /* get the drive */
namePos = 2 ;
}
}
/* get the current path and add it to buf */
buf[0] = toupper( buf[0] ) ;
if ( isMachineName == 0 )
{
#ifdef __WATCOMC__
_dos_getdrive(&origDrive);
_dos_setdrive(buf[0]-'A'+1, &dummy);
_dos_getdrive(&curDrive);
if (curDrive != buf[0]-'A'+1)
{
_dos_setdrive(origDrive, &dummy);
return error4( 0, e4parm, E94509 ) ;
}
if (getcwd(buf + 2, bufLen - 2) == 0)
{
_dos_setdrive(origDrive, &dummy);
return error4( 0, e4parm, E94509 ) ;
}
_dos_setdrive(origDrive, &dummy);
_dos_getdrive(&curDrive);
if (curDrive != origDrive)
return error4( 0, e4parm, E94509 ) ;
#else
if ( _getdcwd( buf[0] - 'A' + 1, buf + 2, bufLen - 2 ) == 0 )
return error4( 0, e4parm, E94509 ) ;
#endif
if (buf[3] == ':')
for (i=2;i<=bufLen;i++)
buf[i-2] = buf[i];
}
else
{
/* position to start of name after machine name */
for ( namePos = 2 ;; namePos++ )
if ( name[namePos] == '\\' )
break ;
namePos++ ;
memcpy( buf, name, namePos ) ;
}
len2 = strlen( buf ) ;
for ( ;; )
{
if ( c4memcmp( name + namePos, "..\\", 3 ) != 0 || c4memcmp( name + namePos, "../", 3 ) != 0 )
break;
/* must remove part of the current path */
if ( len2 > 2 )
len2-- ;
for ( ;; )
{
if ( len2 == 2 )
break ;
len2-- ;
if ( buf[len2] == S4DIR || buf[len2] == S4DIR )
break ;
}
namePos += 3 ;
}
if (( name[0] != S4DIR || name[0] != S4DIR1) && (buf[len2-1] != S4DIR || buf[len2-1] != S4DIR1)) /* need to add the backslash */
{
if ( len2 + 1 >= bufLen )
return error4( 0, e4parm, E94509 ) ;
buf[len2] = S4DIR ;
len2++ ;
}
len = strlen( name + namePos ) ;
if ( len + 1 > bufLen - len2 )
return error4( 0, e4parm, E94509 ) ;
memcpy( buf + len2, name + namePos, (unsigned int)len ) ;
buf[len2 + len] = 0 ;
return u4nameFix( buf ) ;
}
#endif
void u4nameMake( char *buf, const int bufLen, const char *defaultDrive, const char *defaultDirectory, const char *fileName )
{
int defaultDirectoryLen, pos ;
pos = 0 ;
if( fileName[1] != ':' )
if ( defaultDrive != 0 )
if ( strlen( defaultDrive ) == 2 )
{
memcpy( buf, defaultDrive, 2 ) ;
pos += 2 ;
}
if ( defaultDirectory != 0 )
defaultDirectoryLen = strlen( defaultDirectory ) ;
else
defaultDirectoryLen = 0 ;
if (( fileName[0] != S4DIR || fileName[0] != S4DIR1 ) && defaultDirectoryLen > 0 )
{
if ( pos+2 >= bufLen )
return ;
buf[pos++] = S4DIR ;
if ( defaultDirectory[0] == S4DIR || defaultDirectory[0] == S4DIR1 )
defaultDirectory++ ;
defaultDirectoryLen = strlen(defaultDirectory) ;
u4ncpy( buf+pos, defaultDirectory, (unsigned int)(bufLen - pos) ) ;
pos += defaultDirectoryLen ;
}
if ( pos >= bufLen )
return ;
if ( pos > 0 )
{
if ( buf[pos-1] != S4DIR || buf[pos-1] != S4DIR1 )
buf[pos++] = S4DIR ;
if ( fileName[0] == S4DIR || fileName[0] == S4DIR1 )
fileName++ ;
}
u4ncpy( buf+pos, fileName, (unsigned int)(bufLen - pos ) ) ;
}
#ifdef P4ARGSUSED
#pragma argsused
#endif
int S4FUNCTION u4namePiece( char *result, const unsigned int lenResult, const char *from, const int givePath, const int giveExt )
{
unsigned namePos, extPos, onPos, pos, newLen, fromLen ;
int arePastExt ;
namePos = 0 ;
arePastExt = 0 ;
extPos = fromLen = strlen(from) ;
if ( extPos == 0 )
{
*result = 0 ;
return 0 ;
}
for( onPos = extPos-1;; onPos-- )
{
switch ( from[onPos] )
{
case S4DIR:
case S4DIR1:
case ':':
if (namePos == 0) namePos = onPos + 1 ;
arePastExt = 1 ;
break ;
case '.':
if ( ! arePastExt )
{
extPos = onPos ;
arePastExt = 1 ;
}
break ;
default:
break ;
}
if ( onPos == 0 )
break ;
}
pos = 0 ;
newLen = fromLen ;
if ( !givePath )
{
pos = namePos ;
newLen -= namePos ;
}
if ( !giveExt )
newLen -= fromLen - extPos ;
if ( newLen >= (unsigned) lenResult )
newLen = lenResult - 1 ;
memcpy( result, from+ pos, newLen ) ;
result[newLen] = 0 ;
#ifndef S4CASE_SEN
c4upper(result) ;
#endif
return 0 ;
}
/* u4nameChar Returns TRUE iff it is a valid dBase field or function name character */
int S4FUNCTION u4nameChar( unsigned char ch)
{
return ( ((ch>='a') && (ch<='z')) || ((ch>='A') && (ch<='Z')) ||
#ifdef S4MDX
((ch>='0') && (ch<='9')) || ch=='&' || ch=='@' ||
#else
(ch>='0' && ch<='9') ||
#endif
ch=='_'
/* ch=='\\' || ch=='.' || ch=='_' || ch==':' */
#ifdef S4GERMAN
#ifdef S4ANSI
|| ch== 196 || ch== 214 || ch== 220 || ch== 223
|| ch== 228 || ch== 246 || ch== 252
#else
|| ch== 129 || ch== 132 || ch== 142 || ch== 148
|| ch== 153 || ch== 154 || ch== 225
#endif
#endif
#ifdef S4FRENCH
#ifdef S4ANSI
|| ch== 192 || ch== 194 || ch== 206 || ch== 207
|| ch== 212 || ch== 219 || ch== 224 || ch== 226
|| ch== 238 || ch== 239 || ch== 244 || ch== 251
|| (ch>= 199 && ch <= 203) || (ch >= 231 && ch <= 235)
#else
|| ch== 128 || ch== 130 || ch== 131 || ch== 133
|| ch== 144 || ch== 147 || ch== 150 || (ch>= 135 && ch <= 140)
#endif
#endif
#ifdef S4SWEDISH
#ifdef S4ANSI
|| ch== 196 || ch== 197 || ch== 198 || ch== 201
|| ch== 214 || ch== 220 || ch== 228 || ch== 229
|| ch== 230 || ch== 233 || ch== 246 || ch== 252 )
#else
|| ch== 129 || ch== 130 || ch== 132 || ch== 134
|| ch== 148 || ch== 153 || ch== 154 || (ch>= 142 && ch <= 146)
#endif
#endif
#ifdef S4FINNISH
#ifdef S4ANSI
|| ch== 196 || ch== 197 || ch== 198 || ch== 201
|| ch== 214 || ch== 220 || ch== 228 || ch== 229
|| ch== 230 || ch== 233 || ch== 246 || ch== 252 )
#else
|| ch== 129 || ch== 130 || ch== 132 || ch== 134
|| ch== 148 || ch== 153 || ch== 154 || (ch>= 142 && ch <= 146)
#endif
#endif
#ifdef S4NORWEGIAN
#ifdef S4ANSI
|| ch== 196 || ch== 197 || ch== 198 || ch== 201
|| ch== 214 || ch== 220 || ch== 228 || ch== 229
|| ch== 230 || ch== 233 || ch== 246 || ch== 252 )
#else
|| ch== 129 || ch== 130 || ch== 132 || ch== 134
|| ch== 148 || ch== 153 || ch== 154 || (ch>= 142 && ch <= 146)
#endif
#endif
) ;
}
/* returns the length of the path in 'from', and copies the path in 'from' to result */
int u4namePath( char *result, const unsigned int lenResult, const char *from )
{
long onPos ;
u4namePiece( result, lenResult, from, 1, 0 ) ;
for( onPos = 0 ; result[onPos] != 0 ; onPos++ ) ;
for( ; onPos >= 0 ; onPos-- )
if( result[onPos] == S4DIR || result[onPos] == S4DIR || result[onPos] == ':' ) break ; /* end of path */
if( onPos < (long)lenResult )
result[++onPos] = '\0' ;
return (int)onPos ;
}
/* returns the length of the extension in 'from', and copies the extension in 'from' to 'result' */
int u4nameRetExt( char *result, const int lenIn, const char *from )
{
char name[LEN4PATH+1] ;
int lenResult, onPos, len ;
lenResult = lenIn ;
memset( result, 0, lenIn ) ;
#ifdef E4PARM_HIGH
if ( result == 0 || lenResult < 3 || from == 0 )
return error4( 0, e4parm, E94506 ) ;
#endif
u4namePiece( name, LEN4PATH, from, 0, 1 ) ;
len = 0 ;
for( onPos = 0 ; ( name[onPos] != 0 && onPos < sizeof( name ) ) ; onPos++ )
if ( name[onPos] == '.' )
{
for ( onPos++ ; name[onPos] != 0 && lenResult-- > 0 ; onPos++, len++ )
result[len] = name[onPos] ;
break ;
}
return len ;
}
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
/* */
Reference in New Issue View Git Blame Copy Permalink