|
1
|
1
|
|
|
2 // Copyright (c) 1999-2006 by Digital Mars
|
|
|
3 // All Rights Reserved
|
|
|
4 // written by Walter Bright
|
|
|
5 // www.digitalmars.com
|
|
|
6 // License for redistribution is by either the Artistic License
|
|
|
7 // in artistic.txt, or the GNU General Public License in gnu.txt.
|
|
|
8 // See the included readme.txt for details.
|
|
|
9
|
|
|
10
|
|
|
11 #ifndef DCHAR_H
|
|
|
12 #define DCHAR_H
|
|
|
13
|
|
|
14 #if __GNUC__ && !_WIN32
|
|
|
15 #include "gnuc.h"
|
|
|
16 #endif
|
|
|
17
|
|
|
18 #if _MSC_VER
|
|
|
19 // Disable useless warnings about unreferenced functions
|
|
|
20 #pragma warning (disable : 4514)
|
|
|
21 #endif
|
|
|
22
|
|
|
23 //#include "root.h"
|
|
|
24 typedef size_t hash_t;
|
|
|
25
|
|
|
26 #undef TEXT
|
|
|
27
|
|
|
28 // NOTE: All functions accepting pointer arguments must not be NULL
|
|
|
29
|
|
|
30 #if M_UNICODE
|
|
|
31
|
|
|
32 #include <string.h>
|
|
|
33 #include <wchar.h>
|
|
|
34
|
|
|
35 typedef wchar_t dchar;
|
|
|
36 #define TEXT(x) L##x
|
|
|
37
|
|
|
38 #define Dchar_mbmax 1
|
|
|
39
|
|
|
40 struct Dchar
|
|
|
41 {
|
|
|
42 static dchar *inc(dchar *p) { return p + 1; }
|
|
|
43 static dchar *dec(dchar *pstart, dchar *p) { (void)pstart; return p - 1; }
|
|
|
44 static int len(const dchar *p) { return wcslen(p); }
|
|
|
45 static dchar get(dchar *p) { return *p; }
|
|
|
46 static dchar getprev(dchar *pstart, dchar *p) { (void)pstart; return p[-1]; }
|
|
|
47 static dchar *put(dchar *p, dchar c) { *p = c; return p + 1; }
|
|
|
48 static int cmp(dchar *s1, dchar *s2)
|
|
|
49 {
|
|
|
50 #if __DMC__
|
|
|
51 if (!*s1 && !*s2) // wcscmp is broken
|
|
|
52 return 0;
|
|
|
53 #endif
|
|
|
54 return wcscmp(s1, s2);
|
|
|
55 #if 0
|
|
|
56 return (*s1 == *s2)
|
|
|
57 ? wcscmp(s1, s2)
|
|
|
58 : ((int)*s1 - (int)*s2);
|
|
|
59 #endif
|
|
|
60 }
|
|
|
61 static int memcmp(const dchar *s1, const dchar *s2, int nchars) { return ::memcmp(s1, s2, nchars * sizeof(dchar)); }
|
|
|
62 static int isDigit(dchar c) { return '0' <= c && c <= '9'; }
|
|
|
63 static int isAlpha(dchar c) { return iswalpha(c); }
|
|
|
64 static int isUpper(dchar c) { return iswupper(c); }
|
|
|
65 static int isLower(dchar c) { return iswlower(c); }
|
|
|
66 static int isLocaleUpper(dchar c) { return isUpper(c); }
|
|
|
67 static int isLocaleLower(dchar c) { return isLower(c); }
|
|
|
68 static int toLower(dchar c) { return isUpper(c) ? towlower(c) : c; }
|
|
|
69 static int toLower(dchar *p) { return toLower(*p); }
|
|
|
70 static int toUpper(dchar c) { return isLower(c) ? towupper(c) : c; }
|
|
|
71 static dchar *dup(dchar *p) { return ::_wcsdup(p); } // BUG: out of memory?
|
|
|
72 static dchar *dup(char *p);
|
|
|
73 static dchar *chr(dchar *p, unsigned c) { return wcschr(p, (dchar)c); }
|
|
|
74 static dchar *rchr(dchar *p, unsigned c) { return wcsrchr(p, (dchar)c); }
|
|
|
75 static dchar *memchr(dchar *p, int c, int count);
|
|
|
76 static dchar *cpy(dchar *s1, dchar *s2) { return wcscpy(s1, s2); }
|
|
|
77 static dchar *str(dchar *s1, dchar *s2) { return wcsstr(s1, s2); }
|
|
|
78 static hash_t calcHash(const dchar *str, size_t len);
|
|
|
79
|
|
|
80 // Case insensitive versions
|
|
|
81 static int icmp(dchar *s1, dchar *s2) { return wcsicmp(s1, s2); }
|
|
|
82 static int memicmp(const dchar *s1, const dchar *s2, int nchars) { return ::wcsnicmp(s1, s2, nchars); }
|
|
|
83 static hash_t icalcHash(const dchar *str, size_t len);
|
|
|
84 };
|
|
|
85
|
|
|
86 #elif MCBS
|
|
|
87
|
|
|
88 #include <limits.h>
|
|
|
89 #include <mbstring.h>
|
|
|
90
|
|
|
91 typedef char dchar;
|
|
|
92 #define TEXT(x) x
|
|
|
93
|
|
|
94 #define Dchar_mbmax MB_LEN_MAX
|
|
|
95
|
|
|
96 #elif UTF8
|
|
|
97
|
|
|
98 typedef char dchar;
|
|
|
99 #define TEXT(x) x
|
|
|
100
|
|
|
101 #define Dchar_mbmax 6
|
|
|
102
|
|
|
103 struct Dchar
|
|
|
104 {
|
|
|
105 static char mblen[256];
|
|
|
106
|
|
|
107 static dchar *inc(dchar *p) { return p + mblen[*p & 0xFF]; }
|
|
|
108 static dchar *dec(dchar *pstart, dchar *p);
|
|
|
109 static int len(const dchar *p) { return strlen(p); }
|
|
|
110 static int get(dchar *p);
|
|
|
111 static int getprev(dchar *pstart, dchar *p)
|
|
|
112 { return *dec(pstart, p) & 0xFF; }
|
|
|
113 static dchar *put(dchar *p, unsigned c);
|
|
|
114 static int cmp(dchar *s1, dchar *s2) { return strcmp(s1, s2); }
|
|
|
115 static int memcmp(const dchar *s1, const dchar *s2, int nchars) { return ::memcmp(s1, s2, nchars); }
|
|
|
116 static int isDigit(dchar c) { return '0' <= c && c <= '9'; }
|
|
|
117 static int isAlpha(dchar c) { return c <= 0x7F ? isalpha(c) : 0; }
|
|
|
118 static int isUpper(dchar c) { return c <= 0x7F ? isupper(c) : 0; }
|
|
|
119 static int isLower(dchar c) { return c <= 0x7F ? islower(c) : 0; }
|
|
|
120 static int isLocaleUpper(dchar c) { return isUpper(c); }
|
|
|
121 static int isLocaleLower(dchar c) { return isLower(c); }
|
|
|
122 static int toLower(dchar c) { return isUpper(c) ? tolower(c) : c; }
|
|
|
123 static int toLower(dchar *p) { return toLower(*p); }
|
|
|
124 static int toUpper(dchar c) { return isLower(c) ? toupper(c) : c; }
|
|
|
125 static dchar *dup(dchar *p) { return ::strdup(p); } // BUG: out of memory?
|
|
|
126 static dchar *chr(dchar *p, int c) { return strchr(p, c); }
|
|
|
127 static dchar *rchr(dchar *p, int c) { return strrchr(p, c); }
|
|
|
128 static dchar *memchr(dchar *p, int c, int count)
|
|
|
129 { return (dchar *)::memchr(p, c, count); }
|
|
|
130 static dchar *cpy(dchar *s1, dchar *s2) { return strcpy(s1, s2); }
|
|
|
131 static dchar *str(dchar *s1, dchar *s2) { return strstr(s1, s2); }
|
|
|
132 static hash_t calcHash(const dchar *str, size_t len);
|
|
|
133
|
|
|
134 // Case insensitive versions
|
|
|
135 static int icmp(dchar *s1, dchar *s2) { return _mbsicmp(s1, s2); }
|
|
|
136 static int memicmp(const dchar *s1, const dchar *s2, int nchars) { return ::_mbsnicmp(s1, s2, nchars); }
|
|
|
137 };
|
|
|
138
|
|
|
139 #else
|
|
|
140
|
|
|
141 #include <string.h>
|
|
|
142
|
|
|
143 #ifndef GCC_SAFE_DMD
|
|
|
144 #include <ctype.h>
|
|
|
145 #endif
|
|
|
146
|
|
|
147 typedef char dchar;
|
|
|
148 #define TEXT(x) x
|
|
|
149
|
|
|
150 #define Dchar_mbmax 1
|
|
|
151
|
|
|
152 struct Dchar
|
|
|
153 {
|
|
|
154 static dchar *inc(dchar *p) { return p + 1; }
|
|
|
155 static dchar *dec(dchar *pstart, dchar *p) { return p - 1; }
|
|
|
156 static int len(const dchar *p) { return strlen(p); }
|
|
|
157 static int get(dchar *p) { return *p & 0xFF; }
|
|
|
158 static int getprev(dchar *pstart, dchar *p) { return p[-1] & 0xFF; }
|
|
|
159 static dchar *put(dchar *p, unsigned c) { *p = c; return p + 1; }
|
|
|
160 static int cmp(dchar *s1, dchar *s2) { return strcmp(s1, s2); }
|
|
|
161 static int memcmp(const dchar *s1, const dchar *s2, int nchars) { return ::memcmp(s1, s2, nchars); }
|
|
|
162 static int isDigit(dchar c) { return '0' <= c && c <= '9'; }
|
|
|
163 #ifndef GCC_SAFE_DMD
|
|
|
164 static int isAlpha(dchar c) { return isalpha(c); }
|
|
|
165 static int isUpper(dchar c) { return isupper(c); }
|
|
|
166 static int isLower(dchar c) { return islower(c); }
|
|
|
167 static int isLocaleUpper(dchar c) { return isupper(c); }
|
|
|
168 static int isLocaleLower(dchar c) { return islower(c); }
|
|
|
169 static int toLower(dchar c) { return isupper(c) ? tolower(c) : c; }
|
|
|
170 static int toLower(dchar *p) { return toLower(*p); }
|
|
|
171 static int toUpper(dchar c) { return islower(c) ? toupper(c) : c; }
|
|
|
172 static dchar *dup(dchar *p) { return ::strdup(p); } // BUG: out of memory?
|
|
|
173 #endif
|
|
|
174 static dchar *chr(dchar *p, int c) { return strchr(p, c); }
|
|
|
175 static dchar *rchr(dchar *p, int c) { return strrchr(p, c); }
|
|
|
176 static dchar *memchr(dchar *p, int c, int count)
|
|
|
177 { return (dchar *)::memchr(p, c, count); }
|
|
|
178 static dchar *cpy(dchar *s1, dchar *s2) { return strcpy(s1, s2); }
|
|
|
179 static dchar *str(dchar *s1, dchar *s2) { return strstr(s1, s2); }
|
|
|
180 static hash_t calcHash(const dchar *str, size_t len);
|
|
|
181
|
|
|
182 // Case insensitive versions
|
|
|
183 #ifdef __GNUC__
|
|
|
184 static int icmp(dchar *s1, dchar *s2) { return strcasecmp(s1, s2); }
|
|
|
185 #else
|
|
|
186 static int icmp(dchar *s1, dchar *s2) { return stricmp(s1, s2); }
|
|
|
187 #endif
|
|
|
188 static int memicmp(const dchar *s1, const dchar *s2, int nchars) { return ::memicmp(s1, s2, nchars); }
|
|
|
189 static hash_t icalcHash(const dchar *str, size_t len);
|
|
|
190 };
|
|
|
191
|
|
|
192 #endif
|
|
|
193 #endif
|
|
|
194
|
