source: trunk/Include/Classes/System/String.ab@ 370

Last change on this file since 370 was 370, checked in by dai, 16 years ago

System.GCクラスを追加。
64ビットコンパイラで生じる警告を改修した。
File size: 16.6 KB
Line 
1' Classes/System/String.ab
2
3#require <basic/function.sbp>
4#require <Classes/System/Text/StringBuilder.ab>
5#require <Classes/ActiveBasic/Strings/Strings.ab>
6
7#ifdef __STRING_IS_NOT_ALWAYS_UNICODE
8TypeDef StrChar = Char
9#ifndef UNICODE
10#define __STRING_IS_NOT_UNICODE
11#endif
12#else
13TypeDef StrChar = WCHAR
14#ifndef UNICODE
15#define __STRING_UNICODE_WINDOWS_ANSI
16#endif
17#endif
18
19Namespace System
20
21 Class String
22 ' Inherits IComparable, ICloneable, IConvertible, IEnumerable
23
24 m_Length As Long
25 Chars As *StrChar
26
27 Sub validPointerCheck(p As VoidPtr, size = 1 As Long)
28 If p As ULONG_PTR < &h10000 Then
29 'Throw ArgumentException
30 Debug
31 ElseIf IsBadReadPtr(p, size As ULONG_PTR) Then
32 'Throw ArgumentException
33 Debug
34 End If
35 End Sub
36 Public
37 Static Const Empty = New String
38
39 Sub String()
40' Chars = 0
41' m_Length = 0
42 End Sub
43
44 Sub String(initStr As PCWSTR)
45 validPointerCheck(initStr)
46 Assign(initStr, lstrlenW(initStr))
47 End Sub
48
49 Sub String(initStr As PCWSTR, length As Long)
50 validPointerCheck(initStr, length)
51 Assign(initStr, length)
52 End Sub
53
54 Sub String(initStr As PCWSTR, start As Long, length As Long)
55 If start < 0 Or length Or start + length < 0 Then
56 'Throw New ArgumentOutOfRangeException
57 End If
58 validPointerCheck(initStr + start, length)
59 Assign(initStr + start, length)
60 End Sub
61
62 Sub String(initStr As PCSTR)
63 validPointerCheck(initStr)
64 Assign(initStr, lstrlenA(initStr))
65 End Sub
66
67 Sub String(initStr As PCSTR, length As Long)
68 validPointerCheck(initStr, length)
69 Assign(initStr, length)
70 End Sub
71
72 Sub String(initStr As PCSTR, start As Long, length As Long)
73 If start < 0 Or length Or start + length < 0 Then
74 'Throw New ArgumentOutOfRangeException
75 End If
76 validPointerCheck(initStr + start, length)
77 Assign(initStr + start, length)
78 End Sub
79
80 Sub String(initStr As String)
81 If Not String.IsNullOrEmpty(initStr) Then
82 Assign(initStr.Chars, initStr.m_Length)
83 End If
84 End Sub
85
86 Sub String(initChar As StrChar, length As Long)
87 AllocStringBuffer(length)
88 ActiveBasic.Strings.ChrFill(Chars, length, initChar)
89 Chars[length] = 0
90 End Sub
91
92 Sub String(sb As System.Text.StringBuilder)
93 Chars = StrPtr(sb)
94 m_Length = sb.Length
95 sb.__Stringized()
96 End Sub
97
98 Const Function Length() As Long
99 Return m_Length
100 End Function
101
102 Function Operator() As *StrChar
103 Return Chars
104 End Function
105
106 Const Function Operator [] (n As Long) As StrChar
107 rangeCheck(n)
108 Return Chars[n]
109 End Function
110
111 Const Function Operator + (y As PCSTR) As String
112 Return Concat(y, lstrlenA(y))
113 End Function
114
115 Const Function Operator + (y As PCWSTR) As String
116 Return Concat(y, lstrlenW(y))
117 End Function
118
119 Const Function Operator + (y As String) As String
120 Return Concat(y.Chars, y.m_Length)
121 End Function
122
123 Const Function Operator & (y As PCSTR) As String
124 Return This + y
125 End Function
126
127 Const Function Operator & (y As PCWSTR) As String
128 Dim tempString = This + y
129 Return tempString
130 End Function
131
132 Const Function Operator & (y As String) As String
133 Dim tempString = This + y
134 Return tempString
135 End Function
136
137 Const Function Operator == (y As String) As Boolean
138 Return String.Compare(This, y) = 0
139 End Function
140
141 Const Function Operator == (y As *StrChar) As Boolean
142 Return String.Compare(This, y) = 0
143 End Function
144
145 Const Function Operator <> (y As String) As Boolean
146 Return String.Compare(This, y) <> 0
147 End Function
148
149 Const Function Operator <> (y As *StrChar) As Boolean
150 Return String.Compare(This, y) <> 0
151 End Function
152
153 Const Function Operator < (y As String) As Boolean
154 Return String.Compare(This, y) < 0
155 End Function
156
157 Const Function Operator < (y As *StrChar) As Boolean
158 Return String.Compare(This, y) < 0
159 End Function
160
161 Const Function Operator > (y As String) As Boolean
162 Return String.Compare(This, y) > 0
163 End Function
164
165 Const Function Operator > (y As *StrChar) As Boolean
166 Return String.Compare(This, y) > 0
167 End Function
168
169 Const Function Operator <= (y As String) As Boolean
170 Return String.Compare(This, y) <= 0
171 End Function
172
173 Const Function Operator <= (y As *StrChar) As Boolean
174 Return String.Compare(This, y) <= 0
175 End Function
176
177 Const Function Operator >= (y As String) As Boolean
178 Return String.Compare(This, y) >= 0
179 End Function
180
181 Const Function Operator >= (y As *StrChar) As Boolean
182 Return String.Compare(This, y) >= 0
183 End Function
184
185 Static Function Compare(x As String, y As String) As Long
186 Return CompareOrdinal(x, y)
187 End Function
188
189 Public
190 Static Function Compare(x As String, indexX As Long, y As String, indexY As Long, length As Long) As Long
191 Return String.CompareOrdinal(x, indexX, y, indexY, length)
192 End Function
193
194 Static Function CompareOrdinal(x As String, y As String) As Long
195 Return String.CompareOrdinal(x.Chars, y.Chars)
196 End Function
197
198 Static Function CompareOrdinal(x As String, indexX As Long, y As String, indexY As Long, length As Long) As Long
199 Return String.CompareOrdinal(x.Chars, indexX, y.Chars, indexY, length)
200 End Function
201 Private
202 Static Function Compare(x As String, y As *StrChar) As Long
203 Return String.CompareOrdinal(x, y)
204 End Function
205
206 Static Function CompareOrdinal(x As String, y As *StrChar) As Long
207 Return String.CompareOrdinal(x.Chars, y)
208 End Function
209
210 Static Function CompareOrdinal(x As *StrChar, y As *StrChar) As Long
211 If x = 0 Then
212 If y = 0 Then
213 Return 0
214 Else
215 Return -1
216 End If
217 ElseIf y = 0 Then
218 Return 1
219 End If
220 Return ActiveBasic.Strings.StrCmp(x, y)
221 End Function
222
223 Static Function CompareOrdinal(x As *StrChar, indexX As Long, y As *StrChar, indexY As Long, length As Long) As Long
224 If x = 0 Then
225 If y = 0 Then
226 Return 0
227 Else
228 Return -1
229 End If
230 ElseIf y = 0 Then
231 Return 1
232 End If
233 Return ActiveBasic.Strings.ChrCmp(VarPtr(x[indexX]), VarPtr(y[indexY]), length As SIZE_T)
234 End Function
235 Public
236 Function CompareTo(y As String) As Long
237 Return String.Compare(This, y)
238 End Function
239
240 Function CompareTo(y As Object) As Long
241 Dim s = y As String
242 ' If y is not String Then
243 ' Throw New ArgumentException
244 ' End If
245 Return CompareTo(y As String)
246 End Function
247
248 Function Equals(s As String) As Boolean
249 Return This = s
250 End Function
251
252 Override Function Equals(s As Object) As Boolean
253 If Object.Equals( This.GetType(), s.GetType() ) Then
254 Return This.Equals(s As String)
255 End If
256 Return False
257 End Function
258
259 Const Function StrPtr() As *StrChar
260 Return Chars
261 End Function
262Private
263
264 Sub Assign(text As PCSTR, textLengthA As Long)
265#ifdef __STRING_IS_NOT_UNICODE
266 AssignFromStrChar(text, textLengthA)
267#else
268 Dim textLengthW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, 0, 0)
269 If AllocStringBuffer(textLengthW) <> 0 Then
270 MultiByteToWideChar(CP_THREAD_ACP, 0, text, textLengthA, Chars, textLengthW)
271 Chars[textLengthW] = 0
272 End If
273#endif
274 End Sub
275
276 Sub Assign(text As PCWSTR, textLengthW As Long)
277#ifdef __STRING_IS_NOT_UNICODE
278 Dim textLengthA = WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, 0, 0, 0, 0)
279 If AllocStringBuffer(textLengthA) <> 0 Then
280 WideCharToMultiByte(CP_THREAD_ACP, 0, text, textLengthW, Chars, textLengthA, 0, 0)
281 Chars[textLengthA] = 0
282 End If
283#else
284 AssignFromStrChar(text, textLengthW)
285#endif
286 End Sub
287
288 Private
289 Static Function ConcatStrChar(text1 As *StrChar, text1Length As Long, text2 As *StrChar, text2Length As Long) As String
290 ConcatStrChar = New String()
291 With ConcatStrChar
292 .AllocStringBuffer(text1Length + text2Length)
293 ActiveBasic.Strings.ChrCopy(.Chars, text1, text1Length As SIZE_T)
294 ActiveBasic.Strings.ChrCopy(VarPtr(.Chars[text1Length]), text2, text2Length As SIZE_T)
295 .Chars[text1Length + text2Length] = 0
296 End With
297 End Function
298 Public
299 Const Function Concat(text As PCSTR, len As Long) As String
300#ifdef __STRING_IS_NOT_UNICODE
301 Return ConcatStrChar(This.Chars, m_Length, text, len)
302#else
303 With Concat
304 Dim lenW = MultiByteToWideChar(CP_THREAD_ACP, 0, text, len, 0, 0)
305 Concat = New String
306 .AllocStringBuffer(m_Length + lenW)
307 ActiveBasic.Strings.ChrCopy(.Chars, This.Chars, m_Length)
308 MultiByteToWideChar(CP_THREAD_ACP, 0, text, len, VarPtr(.Chars[m_Length]), lenW)
309 .Chars[m_Length + lenW] = 0
310 End With
311#endif
312 End Function
313
314 Const Function Concat(text As PCWSTR, len As Long) As String
315#ifdef __STRING_IS_NOT_UNICODE
316 With Concat
317 Concat = New String
318 Dim lenA = WideCharToMultiByte(CP_THREAD_ACP, 0, text, len, 0, 0, 0, 0)
319 .AllocStringBuffer(m_Length + lenA)
320 ActiveBasic.Strings.ChrCopy(.Chars, This.Chars, m_Length As SIZE_T)
321 WideCharToMultiByte(CP_THREAD_ACP, 0, text, len, VarPtr(.Chars[m_Length]), lenA, 0, 0)
322 .Chars[m_Length + lenA] = 0
323 End With
324#else
325 Return ConcatStrChar(This.Chars, m_Length, text, len)
326#endif
327 End Function
328
329 Static Function Concat(x As String, y As String) As String
330 If String.IsNullOrEmpty(x) Then
331 Return y
332 Else
333 Return x.Concat(y.Chars, y.m_Length)
334 End If
335 End Function
336
337 Static Function Concat(x As Object, y As Object) As String
338 Return String.Concat(x.ToString, y.ToString)
339 End Function
340
341 Const Function Contains(s As String) As Boolean
342 If Object.ReferenceEquals(s, Nothing) Then
343 'Throw New ArgumentNullException
344 End If
345 Return IndexOf(s, 0, m_Length) >= 0
346 End Function
347
348 Const Function IndexOf(c As StrChar) As Long
349 Return indexOfCore(c, 0, m_Length)
350 End Function
351
352 Const Function IndexOf(c As StrChar, start As Long) As Long
353 rangeCheck(start)
354 Return indexOfCore(c, start, m_Length - start)
355 End Function
356
357 Const Function IndexOf(c As StrChar, start As Long, count As Long) As Long
358 rangeCheck(start, count)
359 Return indexOfCore(c, start, count)
360 End Function
361 Private
362 Const Function indexOfCore(c As StrChar, start As Long, count As Long) As Long
363 indexOfCore = ActiveBasic.Strings.ChrFind(VarPtr(Chars[start]), count, c) As Long
364 If indexOfCore <> -1 Then
365 indexOfCore += start
366 End If
367 End Function
368 Public
369 Const Function IndexOf(s As String) As Long
370 Return IndexOf(s, 0, m_Length)
371 End Function
372
373 Const Function IndexOf(s As String, startIndex As Long) As Long
374 Return IndexOf(s, startIndex, m_Length - startIndex)
375 End Function
376
377 Const Function IndexOf(s As String, startIndex As Long, count As Long) As Long
378 rangeCheck(startIndex, count)
379 If Object.ReferenceEquals(s, Nothing) Then
380 'Throw New ArgumentNullException
381 Debug
382 End If
383
384 Dim length = s.Length
385 If length = 0 Then Return startIndex
386
387 Dim i As Long, j As Long
388 For i = startIndex To startIndex + count - 1
389 For j = 0 To length - 1
390 If Chars[i + j] = s[j] Then
391 If j = length - 1 Then Return i
392 Else
393 Exit For
394 End If
395 Next
396 Next
397 Return -1
398 End Function
399
400 Const Function LastIndexOf(s As String) As Long
401 Return LastIndexOf(s, m_Length - 1, m_Length)
402 End Function
403
404 Const Function LastIndexOf(s As String, startIndex As Long) As Long
405 Return LastIndexOf(s, startIndex, startIndex + 1)
406 End Function
407
408 Const Function LastIndexOf(s As String, startIndex As Long, count As Long) As Long
409 If Object.ReferenceEquals(s, Nothing) Then
410 'Throw New ArgumentNullException
411 Debug
412 End If
413
414 If startIndex < 0 Or startIndex > m_Length - 1 Or _
415 count < 0 Or count > startIndex + 2 Then
416 'Throw New ArgumentOutOfRangeException
417 Debug
418 End If
419 Dim length = s.Length
420 If length > m_Length Then Return -1
421 If length = 0 Then Return startIndex
422
423 Dim i As Long, j As Long
424 For i = startIndex To startIndex - count + 1 Step -1
425 For j = length - 1 To 0 Step -1
426 If Chars[i + j] = s[j] Then
427 If j = 0 Then Return i
428 Else
429 Exit For
430 End If
431 Next
432 Next
433 Return -1
434 End Function
435
436 Const Function StartsWith(s As String) As Boolean
437 Return IndexOf(s) = 0
438 End Function
439
440 Const Function EndsWith(s As String) As Boolean
441 Return LastIndexOf(s) = m_Length - s.Length
442 End Function
443
444 Const Function Insert(startIndex As Long, text As String) As String
445 Dim sb = New System.Text.StringBuilder(This)
446 sb.Insert(startIndex, text)
447 Return sb.ToString
448 End Function
449
450 Const Function Substring(startIndex As Long) As String
451 rangeCheck(startIndex)
452 Return Substring(startIndex, m_Length - startIndex)
453 End Function
454
455 Const Function Substring(startIndex As Long, length As Long) As String
456 rangeCheck(startIndex, length)
457 Return New String(Chars, startIndex, length)
458 End Function
459
460 Const Function Remove(startIndex As Long) As String
461 rangeCheck(startIndex)
462 Remove = Substring(0, startIndex)
463 End Function
464
465 Const Function Remove(startIndex As Long, count As Long) As String
466 Dim sb = New System.Text.StringBuilder(This)
467 sb.Remove(startIndex, count)
468 Remove = sb.ToString
469 End Function
470
471 Static Function IsNullOrEmpty(s As String) As Boolean
472 If Not Object.ReferenceEquals(s, Nothing) Then
473 If s.m_Length > 0 Then
474 Return False
475 End If
476 End If
477 Return True
478 End Function
479
480 Const Function Replace(oldChar As StrChar, newChar As StrChar) As String
481 Dim sb = New System.Text.StringBuilder(This)
482 sb.Replace(oldChar, newChar)
483 Replace = sb.ToString
484 End Function
485
486 Const Function Replace(oldStr As String, newStr As String) As String
487 Dim sb = New System.Text.StringBuilder(This)
488 sb.Replace(oldStr, newStr)
489 Return sb.ToString
490 End Function
491
492 Const Function ToLower() As String
493 Dim sb = New System.Text.StringBuilder(m_Length)
494 sb.Length = m_Length
495 Dim i As Long
496 For i = 0 To ELM(m_Length)
497 sb[i] = _System_ASCII_ToLower(Chars[i])
498 Next
499 Return sb.ToString
500 End Function
501
502 Const Function ToUpper() As String
503 Dim sb = New System.Text.StringBuilder(m_Length)
504 sb.Length = m_Length
505 Dim i As Long
506 For i = 0 To ELM(m_Length)
507 sb[i] = _System_ASCII_ToUpper(Chars[i])
508 Next
509 Return sb.ToString
510 End Function
511
512 Override Function ToString() As String
513 ToString = This
514 End Function
515
516 Const Function Clone() As String
517 Clone = This
518 End Function
519
520 Static Function Copy(s As String) As String
521 Copy = New String(s.Chars, s.m_Length)
522 End Function
523
524 Sub CopyTo(sourceIndex As Long, destination As *StrChar, destinationIndex As Long, count As Long)
525 ActiveBasic.Strings.ChrCopy(VarPtr(destination[destinationIndex]), VarPtr(Chars[sourceIndex]), count As SIZE_T)
526 End Sub
527
528 Override Function GetHashCode() As Long
529#ifdef __STRING_IS_NOT_UNICODE
530 Dim size = (m_Length + 1) >> 1
531#else
532 Dim size = m_Length
533#endif
534 Return _System_GetHashFromWordArray(Chars As *Word, size) Xor size
535 End Function
536
537 Function PadLeft(total As Long) As String
538 PadLeft(total, &h30 As StrChar)
539 End Function
540
541 Function PadLeft(total As Long, c As StrChar) As String
542 If total < 0 Then
543 'Throw New ArgumentException
544 End If
545 If total >= m_Length Then
546 Return This
547 End If
548 Dim sb = New System.Text.StringBuilder(total)
549 sb.Append(c, total - m_Length)
550 sb.Append(This)
551 Return sb.ToString
552 End Function
553
554 Function PadRight(total As Long) As String
555 PadRight(total, &h30 As StrChar)
556 End Function
557
558 Function PadRight(total As Long, c As StrChar) As String
559 If total < 0 Then
560 'Throw New ArgumentException
561 End If
562 If total >= m_Length Then
563 Return This
564 End If
565 Dim sb = New System.Text.StringBuilder(total)
566 sb.Append(This)
567 sb.Append(c, total - m_Length)
568 Return sb.ToString
569 End Function
570 Private
571 Function AllocStringBuffer(textLength As Long) As *StrChar
572 If textLength < 0 Then
573 Return 0
574 End If
575 AllocStringBuffer = GC_malloc_atomic(SizeOf(StrChar) * (textLength + 1))
576 If AllocStringBuffer = 0 Then
577 'Throw New OutOfMemoryException
578 End If
579 m_Length = textLength
580 Chars = AllocStringBuffer
581 End Function
582
583 Sub AssignFromStrChar(text As *StrChar, textLength As Long)
584 AllocStringBuffer(textLength)
585 ActiveBasic.Strings.ChrCopy(Chars, text, textLength As SIZE_T)
586 Chars[m_Length] = 0
587 End Sub
588
589 Const Sub rangeCheck(index As Long)
590 If index < 0 Or index > m_Length Then
591 Debug 'ArgumentOutOfRangeException
592 End If
593 End Sub
594
595 Const Sub rangeCheck(start As Long, length As Long)
596 If start < 0 Or start > This.m_Length Or length < 0 Then
597 Debug 'ArgumentOutOfRangeException
598 End If
599 End Sub
600 End Class
601
602End Namespace
Note: See TracBrowser for help on using the repository browser.