223 lines
3.9 KiB
C
223 lines
3.9 KiB
C
|
/* $Id: strutil.c,v 1.1.1.1 2006/03/17 19:58:51 zicodxx Exp $ */
|
||
|
/*
|
||
|
THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
|
||
|
SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
|
||
|
END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
|
||
|
ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
|
||
|
IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
|
||
|
SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
|
||
|
FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
|
||
|
CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
|
||
|
AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
|
||
|
COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
|
||
|
*/
|
||
|
|
||
|
#ifdef HAVE_CONFIG_H
|
||
|
#include <conf.h>
|
||
|
#endif
|
||
|
|
||
|
#include <stdio.h>
|
||
|
#include <stdlib.h>
|
||
|
#include <ctype.h>
|
||
|
#include <string.h>
|
||
|
|
||
|
#include "u_mem.h"
|
||
|
#include "error.h"
|
||
|
//#include "inferno.h"
|
||
|
|
||
|
#define FILENAME_LEN 13
|
||
|
|
||
|
#ifdef macintosh
|
||
|
# if defined(NDEBUG)
|
||
|
char *strdup(const char *str)
|
||
|
{
|
||
|
char *newstr;
|
||
|
|
||
|
newstr = malloc(strlen(str) + 1);
|
||
|
strcpy(newstr, str);
|
||
|
|
||
|
return newstr;
|
||
|
}
|
||
|
# endif // NDEBUG
|
||
|
|
||
|
// string compare without regard to case
|
||
|
|
||
|
int stricmp( const char *s1, const char *s2 )
|
||
|
{
|
||
|
int u1;
|
||
|
int u2;
|
||
|
|
||
|
do {
|
||
|
u1 = toupper((int) *s1);
|
||
|
u2 = toupper((int) *s2);
|
||
|
if (u1 != u2)
|
||
|
return (u1 > u2) ? 1 : -1;
|
||
|
|
||
|
s1++;
|
||
|
s2++;
|
||
|
} while (u1 && u2);
|
||
|
|
||
|
return 0;
|
||
|
}
|
||
|
|
||
|
int strnicmp( const char *s1, const char *s2, int n )
|
||
|
{
|
||
|
int u1;
|
||
|
int u2;
|
||
|
|
||
|
do {
|
||
|
u1 = toupper((int) *s1);
|
||
|
u2 = toupper((int) *s2);
|
||
|
if (u1 != u2)
|
||
|
return (u1 > u2) ? 1 : -1;
|
||
|
|
||
|
s1++;
|
||
|
s2++;
|
||
|
n--;
|
||
|
} while (u1 && u2 && n);
|
||
|
|
||
|
return 0;
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
#ifndef _WIN32
|
||
|
#ifndef __DJGPP__
|
||
|
void strlwr( char *s1 )
|
||
|
{
|
||
|
while( *s1 ) {
|
||
|
*s1 = tolower(*s1);
|
||
|
s1++;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
void strupr( char *s1 )
|
||
|
{
|
||
|
while( *s1 ) {
|
||
|
*s1 = toupper(*s1);
|
||
|
s1++;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
#endif
|
||
|
|
||
|
void strrev( char *s1 )
|
||
|
{
|
||
|
char *h, *t;
|
||
|
h = s1;
|
||
|
t = s1 + strlen(s1) - 1;
|
||
|
while (h < t) {
|
||
|
char c;
|
||
|
c = *h;
|
||
|
*h++ = *t;
|
||
|
*t-- = c;
|
||
|
}
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
|
||
|
// remove extension from filename, doesn't work with paths.
|
||
|
void removeext(const char *filename, char *out)
|
||
|
{
|
||
|
char *p;
|
||
|
|
||
|
if ((p = strrchr(filename, '.')))
|
||
|
{
|
||
|
strncpy(out, filename, p - filename);
|
||
|
out[p - filename] = 0;
|
||
|
}
|
||
|
else
|
||
|
strcpy(out, filename);
|
||
|
}
|
||
|
|
||
|
|
||
|
//give a filename a new extension, doesn't work with paths.
|
||
|
void change_filename_extension( char *dest, char *src, char *ext )
|
||
|
{
|
||
|
char *p;
|
||
|
|
||
|
strcpy (dest, src);
|
||
|
|
||
|
if (ext[0] == '.')
|
||
|
ext++;
|
||
|
|
||
|
p = strrchr(dest, '.');
|
||
|
if (!p) {
|
||
|
p = dest + strlen(dest);
|
||
|
*p = '.';
|
||
|
}
|
||
|
|
||
|
Assert((p + strlen(ext)) - dest < FILENAME_LEN);
|
||
|
strcpy(p+1,ext);
|
||
|
}
|
||
|
|
||
|
#if !defined(__MSDOS__) && !(defined(_WIN32) && !defined(_WIN32_WCE))
|
||
|
void _splitpath(char *name, char *drive, char *path, char *base, char *ext)
|
||
|
{
|
||
|
char *s, *p;
|
||
|
|
||
|
p = name;
|
||
|
s = strchr(p, ':');
|
||
|
if ( s != NULL ) {
|
||
|
if (drive) {
|
||
|
*s = '\0';
|
||
|
strcpy(drive, p);
|
||
|
*s = ':';
|
||
|
}
|
||
|
p = s+1;
|
||
|
if (!p)
|
||
|
return;
|
||
|
} else if (drive)
|
||
|
*drive = '\0';
|
||
|
|
||
|
s = strrchr(p, '\\');
|
||
|
if ( s != NULL) {
|
||
|
if (path) {
|
||
|
char c;
|
||
|
|
||
|
c = *(s+1);
|
||
|
*(s+1) = '\0';
|
||
|
strcpy(path, p);
|
||
|
*(s+1) = c;
|
||
|
}
|
||
|
p = s+1;
|
||
|
if (!p)
|
||
|
return;
|
||
|
} else if (path)
|
||
|
*path = '\0';
|
||
|
|
||
|
s = strchr(p, '.');
|
||
|
if ( s != NULL) {
|
||
|
if (base) {
|
||
|
*s = '\0';
|
||
|
strcpy(base, p);
|
||
|
*s = '.';
|
||
|
}
|
||
|
p = s+1;
|
||
|
if (!p)
|
||
|
return;
|
||
|
} else if (base)
|
||
|
*base = '\0';
|
||
|
|
||
|
if (ext)
|
||
|
strcpy(ext, p);
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
#if 0
|
||
|
void main()
|
||
|
{
|
||
|
char drive[10], path[50], name[16], ext[5];
|
||
|
|
||
|
drive[0] = path[0] = name[0] = ext[0] = '\0';
|
||
|
_splitpath("f:\\tmp\\x.out", drive, path, name, ext);
|
||
|
drive[0] = path[0] = name[0] = ext[0] = '\0';
|
||
|
_splitpath("tmp\\x.out", drive, path, name, ext);
|
||
|
drive[0] = path[0] = name[0] = ext[0] = '\0';
|
||
|
_splitpath("f:\\tmp\\a.out", NULL, NULL, name, NULL);
|
||
|
drive[0] = path[0] = name[0] = ext[0] = '\0';
|
||
|
_splitpath("tmp\\*.dem", drive, path, NULL, NULL);
|
||
|
drive[0] = path[0] = name[0] = ext[0] = '\0';
|
||
|
_splitpath(".\\tmp\\*.dem", drive, path, NULL, NULL);
|
||
|
}
|
||
|
#endif
|