Mercurial > vba-clojure

comparison src/win32/7zip/7z/CPP/Common/MyString.cpp @ 1:f9f4f1b99eed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
importing src directory
author Robert McIntyre <rlm@mit.edu>
date Sat, 03 Mar 2012 10:31:27 -0600
parents
children
comparison
equal deleted inserted replaced
0:8ced16adf2e1 1:f9f4f1b99eed
1 // Common/MyString.cpp
2
3 #include "StdAfx.h"
4
5 #ifdef _WIN32
6 #include "StringConvert.h"
7 #else
8 #include <ctype.h>
9 #endif
10
11 #include "MyString.h"
12
13
14 #ifdef _WIN32
15
16 #ifndef _UNICODE
17
18 wchar_t MyCharUpper(wchar_t c)
19 {
20 if (c == 0)
21 return 0;
22 wchar_t *res = CharUpperW((LPWSTR)(UINT_PTR)(unsigned int)c);
23 if (res != 0 || ::GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
24 return (wchar_t)(unsigned int)(UINT_PTR)res;
25 const int kBufferSize = 4;
26 char s[kBufferSize + 1];
27 int numChars = ::WideCharToMultiByte(CP_ACP, 0, &c, 1, s, kBufferSize, 0, 0);
28 if (numChars == 0 || numChars > kBufferSize)
29 return c;
30 s[numChars] = 0;
31 ::CharUpperA(s);
32 ::MultiByteToWideChar(CP_ACP, 0, s, numChars, &c, 1);
33 return c;
34 }
35
36 wchar_t MyCharLower(wchar_t c)
37 {
38 if (c == 0)
39 return 0;
40 wchar_t *res = CharLowerW((LPWSTR)(UINT_PTR)(unsigned int)c);
41 if (res != 0 || ::GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
42 return (wchar_t)(unsigned int)(UINT_PTR)res;
43 const int kBufferSize = 4;
44 char s[kBufferSize + 1];
45 int numChars = ::WideCharToMultiByte(CP_ACP, 0, &c, 1, s, kBufferSize, 0, 0);
46 if (numChars == 0 || numChars > kBufferSize)
47 return c;
48 s[numChars] = 0;
49 ::CharLowerA(s);
50 ::MultiByteToWideChar(CP_ACP, 0, s, numChars, &c, 1);
51 return c;
52 }
53
54 wchar_t * MyStringUpper(wchar_t *s)
55 {
56 if (s == 0)
57 return 0;
58 wchar_t *res = CharUpperW(s);
59 if (res != 0 || ::GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
60 return res;
61 AString a = UnicodeStringToMultiByte(s);
62 a.MakeUpper();
63 return MyStringCopy(s, (const wchar_t *)MultiByteToUnicodeString(a));
64 }
65
66 wchar_t * MyStringLower(wchar_t *s)
67 {
68 if (s == 0)
69 return 0;
70 wchar_t *res = CharLowerW(s);
71 if (res != 0 || ::GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
72 return res;
73 AString a = UnicodeStringToMultiByte(s);
74 a.MakeLower();
75 return MyStringCopy(s, (const wchar_t *)MultiByteToUnicodeString(a));
76 }
77
78 #endif
79
80 /*
81 inline int ConvertCompareResult(int r) { return r - 2; }
82
83 int MyStringCollate(const wchar_t *s1, const wchar_t *s2)
84 {
85 int res = CompareStringW(
86 LOCALE_USER_DEFAULT, SORT_STRINGSORT, s1, -1, s2, -1);
87 #ifdef _UNICODE
88 return ConvertCompareResult(res);
89 #else
90 if (res != 0 || ::GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
91 return ConvertCompareResult(res);
92 return MyStringCollate(UnicodeStringToMultiByte(s1),
93 UnicodeStringToMultiByte(s2));
94 #endif
95 }
96
97 #ifndef _WIN32_WCE
98 int MyStringCollate(const char *s1, const char *s2)
99 {
100 return ConvertCompareResult(CompareStringA(
101 LOCALE_USER_DEFAULT, SORT_STRINGSORT, s1, -1, s2, -1));
102 }
103
104 int MyStringCollateNoCase(const char *s1, const char *s2)
105 {
106 return ConvertCompareResult(CompareStringA(
107 LOCALE_USER_DEFAULT, NORM_IGNORECASE | SORT_STRINGSORT, s1, -1, s2, -1));
108 }
109 #endif
110
111 int MyStringCollateNoCase(const wchar_t *s1, const wchar_t *s2)
112 {
113 int res = CompareStringW(
114 LOCALE_USER_DEFAULT, NORM_IGNORECASE | SORT_STRINGSORT, s1, -1, s2, -1);
115 #ifdef _UNICODE
116 return ConvertCompareResult(res);
117 #else
118 if (res != 0 || ::GetLastError() != ERROR_CALL_NOT_IMPLEMENTED)
119 return ConvertCompareResult(res);
120 return MyStringCollateNoCase(UnicodeStringToMultiByte(s1),
121 UnicodeStringToMultiByte(s2));
122 #endif
123 }
124 */
125
126 #else
127
128 wchar_t MyCharUpper(wchar_t c)
129 {
130 return toupper(c);
131 }
132
133 /*
134 int MyStringCollateNoCase(const wchar_t *s1, const wchar_t *s2)
135 {
136 for (;;)
137 {
138 wchar_t c1 = *s1++;
139 wchar_t c2 = *s2++;
140 wchar_t u1 = MyCharUpper(c1);
141 wchar_t u2 = MyCharUpper(c2);
142
143 if (u1 < u2) return -1;
144 if (u1 > u2) return 1;
145 if (u1 == 0) return 0;
146 }
147 }
148 */
149
150 #endif
151
152 int MyStringCompare(const char *s1, const char *s2)
153 {
154 for (;;)
155 {
156 unsigned char c1 = (unsigned char)*s1++;
157 unsigned char c2 = (unsigned char)*s2++;
158 if (c1 < c2) return -1;
159 if (c1 > c2) return 1;
160 if (c1 == 0) return 0;
161 }
162 }
163
164 int MyStringCompare(const wchar_t *s1, const wchar_t *s2)
165 {
166 for (;;)
167 {
168 wchar_t c1 = *s1++;
169 wchar_t c2 = *s2++;
170 if (c1 < c2) return -1;
171 if (c1 > c2) return 1;
172 if (c1 == 0) return 0;
173 }
174 }
175
176 int MyStringCompareNoCase(const wchar_t *s1, const wchar_t *s2)
177 {
178 for (;;)
179 {
180 wchar_t c1 = *s1++;
181 wchar_t c2 = *s2++;
182 if (c1 != c2)
183 {
184 wchar_t u1 = MyCharUpper(c1);
185 wchar_t u2 = MyCharUpper(c2);
186 if (u1 < u2) return -1;
187 if (u1 > u2) return 1;
188 }
189 if (c1 == 0) return 0;
190 }
191 }
192
193 #ifdef _WIN32
194 int MyStringCompareNoCase(const char *s1, const char *s2)
195 {
196 return MyStringCompareNoCase(MultiByteToUnicodeString(s1), MultiByteToUnicodeString(s2));
197 }
198 #endif