132
|
1 /*******************************************************************************
|
|
2
|
|
3 copyright: Copyright (c) 2006 Kris Bell. All rights reserved
|
|
4
|
|
5 license: BSD style: $(LICENSE)
|
|
6
|
|
7 version: Dec 2006: Initial release
|
|
8
|
|
9 author: Kris
|
|
10
|
|
11
|
|
12 Placeholder for a selection of ASCII utilities. These generally will
|
|
13 not work with utf8, and cannot be easily extended to utf16 or utf32
|
|
14
|
|
15 *******************************************************************************/
|
|
16
|
|
17 module tango.text.Ascii;
|
|
18
|
|
19 version (Win32)
|
|
20 {
|
|
21 private extern (C) int memicmp (char *, char *, uint);
|
|
22 private extern (C) int memcmp (char *, char *, uint);
|
|
23 }
|
|
24
|
|
25 version (Posix)
|
|
26 {
|
|
27 private extern (C) int memcmp (char *, char *, uint);
|
|
28 private extern (C) int strncasecmp (char *, char*, uint);
|
|
29 private alias strncasecmp memicmp;
|
|
30 }
|
|
31
|
|
32 /******************************************************************************
|
|
33
|
|
34 Convert to lowercase. Returns the converted content in dst,
|
|
35 performing an in-place conversion if dst is null
|
|
36
|
|
37 ******************************************************************************/
|
|
38
|
|
39 char[] toLower (char[] src, char[] dst = null)
|
|
40 {
|
|
41 if (dst.ptr)
|
|
42 {
|
|
43 assert (dst.length >= src.length);
|
|
44 dst[0 .. src.length] = src [0 .. $];
|
|
45 }
|
|
46 else
|
|
47 dst = src;
|
|
48
|
|
49 foreach (inout c; dst)
|
|
50 if (c>= 'A' && c <= 'Z')
|
|
51 c = c + 32;
|
|
52 return dst [0 .. src.length];
|
|
53 }
|
|
54
|
|
55 /******************************************************************************
|
|
56
|
|
57 Convert to uppercase. Returns the converted content in dst,
|
|
58 performing an in-place conversion if dst is null
|
|
59
|
|
60 ******************************************************************************/
|
|
61
|
|
62 char[] toUpper (char[] src, char[] dst = null)
|
|
63 {
|
|
64 if (dst.ptr)
|
|
65 {
|
|
66 assert (dst.length >= src.length);
|
|
67 dst[0 .. src.length] = src [0 .. $];
|
|
68 }
|
|
69 else
|
|
70 dst = src;
|
|
71
|
|
72 foreach (inout c; dst)
|
|
73 if (c>= 'a' && c <= 'z')
|
|
74 c = c - 32;
|
|
75 return dst[0 .. src.length];
|
|
76 }
|
|
77
|
|
78 /******************************************************************************
|
|
79
|
|
80 Compare two char[] ignoring case. Returns 0 if equal
|
|
81
|
|
82 ******************************************************************************/
|
|
83
|
|
84 int icompare (char[] s1, char[] s2)
|
|
85 {
|
|
86 auto len = s1.length;
|
|
87 if (s2.length < len)
|
|
88 len = s2.length;
|
|
89
|
|
90 auto result = memicmp (s1.ptr, s2.ptr, len);
|
|
91
|
|
92 if (result is 0)
|
|
93 result = s1.length - s2.length;
|
|
94 return result;
|
|
95 }
|
|
96
|
|
97
|
|
98 /******************************************************************************
|
|
99
|
|
100 Compare two char[] with case. Returns 0 if equal
|
|
101
|
|
102 ******************************************************************************/
|
|
103
|
|
104 int compare (char[] s1, char[] s2)
|
|
105 {
|
|
106 auto len = s1.length;
|
|
107 if (s2.length < len)
|
|
108 len = s2.length;
|
|
109
|
|
110 auto result = memcmp (s1.ptr, s2.ptr, len);
|
|
111
|
|
112 if (result is 0)
|
|
113 result = s1.length - s2.length;
|
|
114 return result;
|
|
115 }
|
|
116
|
|
117
|
|
118
|
|
119 /******************************************************************************
|
|
120
|
|
121 ******************************************************************************/
|
|
122
|
|
123 debug (UnitTest)
|
|
124 {
|
|
125 // void main(){}
|
|
126
|
|
127 unittest
|
|
128 {
|
|
129 char[20] tmp;
|
|
130
|
|
131 assert (toLower("1bac", tmp) == "1bac");
|
|
132 assert (toLower("1BAC", tmp) == "1bac");
|
|
133 assert (toUpper("1bac", tmp) == "1BAC");
|
|
134 assert (toUpper("1BAC", tmp) == "1BAC");
|
|
135 assert (icompare ("ABC", "abc") is 0);
|
|
136 assert (icompare ("abc", "abc") is 0);
|
|
137 assert (icompare ("abcd", "abc") > 0);
|
|
138 assert (icompare ("abc", "abcd") < 0);
|
|
139 assert (icompare ("ACC", "abc") > 0);
|
|
140 }
|
|
141 }
|