462 lines
11 KiB
C
462 lines
11 KiB
C
/*
|
|
* String functions
|
|
*
|
|
* Copyright 1993 Yngvi Sigurjonsson (yngvi@hafro.is)
|
|
* Copyright 1996 Marcus Meissner
|
|
*/
|
|
|
|
#include "config.h"
|
|
|
|
#include <stdarg.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <ctype.h>
|
|
|
|
#ifdef HAVE_WCTYPE_H
|
|
# include <wctype.h>
|
|
#else
|
|
# define iswalnum(c) isalnum(c)
|
|
# define iswalpha(c) isalpha(c)
|
|
# define iswupper(c) isupper(c)
|
|
# define iswlower(c) islower(c)
|
|
#endif /* HAVE_WCTYPE_H */
|
|
|
|
#include "windef.h"
|
|
#include "winbase.h"
|
|
#include "wingdi.h"
|
|
#include "winuser.h"
|
|
#include "wine/winbase16.h"
|
|
#include "wine/winuser16.h"
|
|
#include "wine/unicode.h"
|
|
#include "winnls.h"
|
|
#include "heap.h"
|
|
#include "ldt.h"
|
|
#include "debugtools.h"
|
|
|
|
DEFAULT_DEBUG_CHANNEL(resource);
|
|
|
|
extern const WORD OLE2NLS_CT_CType3_LUT[]; /* FIXME: does not belong here */
|
|
|
|
/* Funny to divide them between user and kernel. */
|
|
|
|
/***********************************************************************
|
|
* IsCharAlpha (USER.433)
|
|
*/
|
|
BOOL16 WINAPI IsCharAlpha16(CHAR ch)
|
|
{
|
|
return isalpha(ch); /* This is probably not right for NLS */
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaNumeric (USER.434)
|
|
*/
|
|
BOOL16 WINAPI IsCharAlphaNumeric16(CHAR ch)
|
|
{
|
|
return isalnum(ch);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharUpper (USER.435)
|
|
*/
|
|
BOOL16 WINAPI IsCharUpper16(CHAR ch)
|
|
{
|
|
return isupper(ch);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharLower (USER.436)
|
|
*/
|
|
BOOL16 WINAPI IsCharLower16(CHAR ch)
|
|
{
|
|
return islower(ch);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* AnsiUpper16 (USER.431)
|
|
*/
|
|
SEGPTR WINAPI AnsiUpper16( SEGPTR strOrChar )
|
|
{
|
|
/* I am not sure if the locale stuff works with toupper, but then again
|
|
I am not sure if the Linux libc locale stuffs works at all */
|
|
|
|
/* uppercase only one char if strOrChar < 0x10000 */
|
|
if (HIWORD(strOrChar))
|
|
{
|
|
char *s;
|
|
for (s = PTR_SEG_TO_LIN(strOrChar); *s; s++) *s = toupper(*s);
|
|
return strOrChar;
|
|
}
|
|
else return toupper((char)strOrChar);
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiUpperBuff16 (USER.437)
|
|
*/
|
|
UINT16 WINAPI AnsiUpperBuff16( LPSTR str, UINT16 len )
|
|
{
|
|
UINT count = len ? len : 65536;
|
|
for (; count; count--, str++) *str = toupper(*str);
|
|
return len;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* AnsiLower16 (USER.432)
|
|
*/
|
|
SEGPTR WINAPI AnsiLower16( SEGPTR strOrChar )
|
|
{
|
|
/* I am not sure if the locale stuff works with toupper, but then again
|
|
I am not sure if the Linux libc locale stuffs works at all */
|
|
|
|
/* lowercase only one char if strOrChar < 0x10000 */
|
|
if (HIWORD(strOrChar))
|
|
{
|
|
char *s;
|
|
for (s = PTR_SEG_TO_LIN( strOrChar ); *s; s++) *s = tolower( *s );
|
|
return strOrChar;
|
|
}
|
|
else return tolower((char)strOrChar);
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiLowerBuff16 (USER.438)
|
|
*/
|
|
UINT16 WINAPI AnsiLowerBuff16( LPSTR str, UINT16 len )
|
|
{
|
|
UINT count = len ? len : 65536;
|
|
for (; count; count--, str++) *str = tolower(*str);
|
|
return len;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiNext16 (USER.472)
|
|
*/
|
|
SEGPTR WINAPI AnsiNext16(SEGPTR current)
|
|
{
|
|
return (*(char *)PTR_SEG_TO_LIN(current)) ? current + 1 : current;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* AnsiPrev16 (USER.473)
|
|
*/
|
|
SEGPTR WINAPI AnsiPrev16( SEGPTR start, SEGPTR current )
|
|
{
|
|
return (current == start) ? start : current - 1;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharNextA (USER32.29)
|
|
*/
|
|
LPSTR WINAPI CharNextA( LPCSTR ptr )
|
|
{
|
|
if (!*ptr) return (LPSTR)ptr;
|
|
if (IsDBCSLeadByte( *ptr ) && (*(ptr+1) != 0) ) return (LPSTR)(ptr + 2);
|
|
return (LPSTR)(ptr + 1);
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharNextExA (USER32.30)
|
|
*/
|
|
LPSTR WINAPI CharNextExA( WORD codepage, LPCSTR ptr, DWORD flags )
|
|
{
|
|
if (!*ptr) return (LPSTR)ptr;
|
|
if (IsDBCSLeadByteEx( codepage, *ptr ) && (*(ptr+1) != 0) ) return (LPSTR)(ptr + 2);
|
|
return (LPSTR)(ptr + 1);
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharNextExW (USER32.31)
|
|
*/
|
|
LPWSTR WINAPI CharNextExW(WORD codepage,LPCWSTR x,DWORD flags)
|
|
{
|
|
/* FIXME: add DBCS / codepage stuff */
|
|
if (*x) return (LPWSTR)(x+1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharNextW (USER32.32)
|
|
*/
|
|
LPWSTR WINAPI CharNextW(LPCWSTR x)
|
|
{
|
|
if (*x) return (LPWSTR)(x+1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharPrevA (USER32.33)
|
|
*/
|
|
LPSTR WINAPI CharPrevA( LPCSTR start, LPCSTR ptr )
|
|
{
|
|
while (*start && (start < ptr))
|
|
{
|
|
LPCSTR next = CharNextA( start );
|
|
if (next >= ptr) break;
|
|
start = next;
|
|
}
|
|
return (LPSTR)start;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharPrevExA (USER32.34)
|
|
*/
|
|
LPSTR WINAPI CharPrevExA( WORD codepage, LPCSTR start, LPCSTR ptr, DWORD flags )
|
|
{
|
|
while (*start && (start < ptr))
|
|
{
|
|
LPCSTR next = CharNextExA( codepage, start, flags );
|
|
if (next > ptr) break;
|
|
start = next;
|
|
}
|
|
return (LPSTR)start;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* CharPrevExW (USER32.35)
|
|
*/
|
|
LPWSTR WINAPI CharPrevExW(WORD codepage,LPCWSTR start,LPCWSTR x,DWORD flags)
|
|
{
|
|
/* FIXME: add DBCS / codepage stuff */
|
|
if (x>start) return (LPWSTR)(x-1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharPrevW (USER32.36)
|
|
*/
|
|
LPWSTR WINAPI CharPrevW(LPCWSTR start,LPCWSTR x)
|
|
{
|
|
if (x>start) return (LPWSTR)(x-1);
|
|
else return (LPWSTR)x;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerA (USER32.25)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPSTR WINAPI CharLowerA(LPSTR x)
|
|
{
|
|
LPSTR s;
|
|
|
|
if (HIWORD(x))
|
|
{
|
|
s=x;
|
|
while (*s)
|
|
{
|
|
*s=tolower(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
else return (LPSTR)tolower((char)(int)x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerBuffA (USER32.26)
|
|
* FIXME: handle current locale
|
|
*/
|
|
DWORD WINAPI CharLowerBuffA(LPSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
if (!x) return 0; /* YES */
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=tolower(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerBuffW (USER32.27)
|
|
*/
|
|
DWORD WINAPI CharLowerBuffW(LPWSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
if (!x) return 0; /* YES */
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=tolowerW(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharLowerW (USER32.28)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPWSTR WINAPI CharLowerW(LPWSTR x)
|
|
{
|
|
if (HIWORD(x))
|
|
{
|
|
LPWSTR s = x;
|
|
while (*s)
|
|
{
|
|
*s = tolowerW(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
else return (LPWSTR)((UINT)tolowerW(LOWORD(x)));
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpperA (USER32.41)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPSTR WINAPI CharUpperA(LPSTR x)
|
|
{
|
|
if (HIWORD(x))
|
|
{
|
|
LPSTR s = x;
|
|
while (*s)
|
|
{
|
|
*s=toupper(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
return (LPSTR)toupper((char)(int)x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpperBuffA (USER32.42)
|
|
* FIXME: handle current locale
|
|
*/
|
|
DWORD WINAPI CharUpperBuffA(LPSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
if (!x) return 0; /* YES */
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=toupper(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpperBuffW (USER32.43)
|
|
* FIXME: handle current locale
|
|
*/
|
|
DWORD WINAPI CharUpperBuffW(LPWSTR x,DWORD buflen)
|
|
{
|
|
DWORD done=0;
|
|
|
|
if (!x) return 0; /* YES */
|
|
while (*x && (buflen--))
|
|
{
|
|
*x=toupperW(*x);
|
|
x++;
|
|
done++;
|
|
}
|
|
return done;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* CharUpperW (USER32.44)
|
|
* FIXME: handle current locale
|
|
*/
|
|
LPWSTR WINAPI CharUpperW(LPWSTR x)
|
|
{
|
|
if (HIWORD(x))
|
|
{
|
|
LPWSTR s = x;
|
|
while (*s)
|
|
{
|
|
*s = toupperW(*s);
|
|
s++;
|
|
}
|
|
return x;
|
|
}
|
|
else return (LPWSTR)((UINT)toupperW(LOWORD(x)));
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaA (USER32.331)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharAlphaA(CHAR x)
|
|
{
|
|
return (OLE2NLS_CT_CType3_LUT[(unsigned char)x] & C3_ALPHA);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaNumericA (USER32.332)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharAlphaNumericA(CHAR x)
|
|
{
|
|
return IsCharAlphaA(x) || isdigit(x) ;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaNumericW (USER32.333)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharAlphaNumericW(WCHAR x)
|
|
{
|
|
return iswalnum(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharAlphaW (USER32.334)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharAlphaW(WCHAR x)
|
|
{
|
|
return iswalpha(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharLowerA (USER32.335)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharLowerA(CHAR x)
|
|
{
|
|
return islower(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharLowerW (USER32.336)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharLowerW(WCHAR x)
|
|
{
|
|
return iswlower(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharUpperA (USER32.337)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharUpperA(CHAR x)
|
|
{
|
|
return isupper(x);
|
|
}
|
|
|
|
/***********************************************************************
|
|
* IsCharUpperW (USER32.338)
|
|
* FIXME: handle current locale
|
|
*/
|
|
BOOL WINAPI IsCharUpperW(WCHAR x)
|
|
{
|
|
return iswupper(x);
|
|
}
|