1 /*
2 +----------------------------------------------------------------------+
3 | PHP Version 7 |
4 +----------------------------------------------------------------------+
5 | Copyright (c) 1997-2018 The PHP Group |
6 +----------------------------------------------------------------------+
7 | This source file is subject to version 3.01 of the PHP license, |
8 | that is bundled with this package in the file LICENSE, and is |
9 | available through the world-wide-web at the following url: |
10 | http://www.php.net/license/3_01.txt |
11 | If you did not receive a copy of the PHP license and are unable to |
12 | obtain it through the world-wide-web, please send a note to |
13 | license@php.net so we can mail you a copy immediately. |
14 +----------------------------------------------------------------------+
15 | Author: Hartmut Holzgraefe <hholzgra@php.net> |
16 +----------------------------------------------------------------------+
17 */
18
19 #ifdef HAVE_CONFIG_H
20 #include "config.h"
21 #endif
22
23 #include "php.h"
24 #include "php_ini.h"
25 #include "php_ctype.h"
26 #include "SAPI.h"
27 #include "ext/standard/info.h"
28
29 #include <ctype.h>
30
31 #if HAVE_CTYPE
32
33 static PHP_MINFO_FUNCTION(ctype);
34
35 static PHP_FUNCTION(ctype_alnum);
36 static PHP_FUNCTION(ctype_alpha);
37 static PHP_FUNCTION(ctype_cntrl);
38 static PHP_FUNCTION(ctype_digit);
39 static PHP_FUNCTION(ctype_lower);
40 static PHP_FUNCTION(ctype_graph);
41 static PHP_FUNCTION(ctype_print);
42 static PHP_FUNCTION(ctype_punct);
43 static PHP_FUNCTION(ctype_space);
44 static PHP_FUNCTION(ctype_upper);
45 static PHP_FUNCTION(ctype_xdigit);
46
47 /* {{{ arginfo */
48 ZEND_BEGIN_ARG_INFO(arginfo_ctype_alnum, 0)
49 ZEND_ARG_INFO(0, text)
50 ZEND_END_ARG_INFO()
51
52 ZEND_BEGIN_ARG_INFO(arginfo_ctype_alpha, 0)
53 ZEND_ARG_INFO(0, text)
54 ZEND_END_ARG_INFO()
55
56 ZEND_BEGIN_ARG_INFO(arginfo_ctype_cntrl, 0)
57 ZEND_ARG_INFO(0, text)
58 ZEND_END_ARG_INFO()
59
60 ZEND_BEGIN_ARG_INFO(arginfo_ctype_digit, 0)
61 ZEND_ARG_INFO(0, text)
62 ZEND_END_ARG_INFO()
63
64 ZEND_BEGIN_ARG_INFO(arginfo_ctype_lower, 0)
65 ZEND_ARG_INFO(0, text)
66 ZEND_END_ARG_INFO()
67
68 ZEND_BEGIN_ARG_INFO(arginfo_ctype_graph, 0)
69 ZEND_ARG_INFO(0, text)
70 ZEND_END_ARG_INFO()
71
72 ZEND_BEGIN_ARG_INFO(arginfo_ctype_print, 0)
73 ZEND_ARG_INFO(0, text)
74 ZEND_END_ARG_INFO()
75
76 ZEND_BEGIN_ARG_INFO(arginfo_ctype_punct, 0)
77 ZEND_ARG_INFO(0, text)
78 ZEND_END_ARG_INFO()
79
80 ZEND_BEGIN_ARG_INFO(arginfo_ctype_space, 0)
81 ZEND_ARG_INFO(0, text)
82 ZEND_END_ARG_INFO()
83
84 ZEND_BEGIN_ARG_INFO(arginfo_ctype_upper, 0)
85 ZEND_ARG_INFO(0, text)
86 ZEND_END_ARG_INFO()
87
88 ZEND_BEGIN_ARG_INFO(arginfo_ctype_xdigit, 0)
89 ZEND_ARG_INFO(0, text)
90 ZEND_END_ARG_INFO()
91
92 /* }}} */
93
94 /* {{{ ctype_functions[]
95 * Every user visible function must have an entry in ctype_functions[].
96 */
97 static const zend_function_entry ctype_functions[] = {
98 PHP_FE(ctype_alnum, arginfo_ctype_alnum)
99 PHP_FE(ctype_alpha, arginfo_ctype_alpha)
100 PHP_FE(ctype_cntrl, arginfo_ctype_cntrl)
101 PHP_FE(ctype_digit, arginfo_ctype_digit)
102 PHP_FE(ctype_lower, arginfo_ctype_lower)
103 PHP_FE(ctype_graph, arginfo_ctype_graph)
104 PHP_FE(ctype_print, arginfo_ctype_print)
105 PHP_FE(ctype_punct, arginfo_ctype_punct)
106 PHP_FE(ctype_space, arginfo_ctype_space)
107 PHP_FE(ctype_upper, arginfo_ctype_upper)
108 PHP_FE(ctype_xdigit, arginfo_ctype_xdigit)
109 PHP_FE_END
110 };
111 /* }}} */
112
113 /* {{{ ctype_module_entry
114 */
115 zend_module_entry ctype_module_entry = {
116 STANDARD_MODULE_HEADER,
117 "ctype",
118 ctype_functions,
119 NULL,
120 NULL,
121 NULL,
122 NULL,
123 PHP_MINFO(ctype),
124 PHP_CTYPE_VERSION,
125 STANDARD_MODULE_PROPERTIES
126 };
127 /* }}} */
128
129 #ifdef COMPILE_DL_CTYPE
130 ZEND_GET_MODULE(ctype)
131 #endif
132
133 /* {{{ PHP_MINFO_FUNCTION
134 */
PHP_MINFO_FUNCTION(ctype)135 static PHP_MINFO_FUNCTION(ctype)
136 {
137 php_info_print_table_start();
138 php_info_print_table_row(2, "ctype functions", "enabled");
139 php_info_print_table_end();
140 }
141 /* }}} */
142
143 /* {{{ ctype
144 */
145 #define CTYPE(iswhat) \
146 zval *c, tmp; \
147 ZEND_PARSE_PARAMETERS_START(1, 1); \
148 Z_PARAM_ZVAL(c) \
149 ZEND_PARSE_PARAMETERS_END(); \
150 if (Z_TYPE_P(c) == IS_LONG) { \
151 if (Z_LVAL_P(c) <= 255 && Z_LVAL_P(c) >= 0) { \
152 RETURN_BOOL(iswhat((int)Z_LVAL_P(c))); \
153 } else if (Z_LVAL_P(c) >= -128 && Z_LVAL_P(c) < 0) { \
154 RETURN_BOOL(iswhat((int)Z_LVAL_P(c) + 256)); \
155 } \
156 tmp = *c; \
157 zval_copy_ctor(&tmp); \
158 convert_to_string(&tmp); \
159 } else { \
160 tmp = *c; \
161 } \
162 if (Z_TYPE(tmp) == IS_STRING) { \
163 char *p = Z_STRVAL(tmp), *e = Z_STRVAL(tmp) + Z_STRLEN(tmp); \
164 if (e == p) { \
165 if (Z_TYPE_P(c) == IS_LONG) zval_dtor(&tmp); \
166 RETURN_FALSE; \
167 } \
168 while (p < e) { \
169 if(!iswhat((int)*(unsigned char *)(p++))) { \
170 if (Z_TYPE_P(c) == IS_LONG) zval_dtor(&tmp); \
171 RETURN_FALSE; \
172 } \
173 } \
174 if (Z_TYPE_P(c) == IS_LONG) zval_dtor(&tmp); \
175 RETURN_TRUE; \
176 } else { \
177 RETURN_FALSE; \
178 } \
179
180 /* }}} */
181
182 /* {{{ proto bool ctype_alnum(mixed c)
183 Checks for alphanumeric character(s) */
PHP_FUNCTION(ctype_alnum)184 static PHP_FUNCTION(ctype_alnum)
185 {
186 CTYPE(isalnum);
187 }
188 /* }}} */
189
190 /* {{{ proto bool ctype_alpha(mixed c)
191 Checks for alphabetic character(s) */
PHP_FUNCTION(ctype_alpha)192 static PHP_FUNCTION(ctype_alpha)
193 {
194 CTYPE(isalpha);
195 }
196 /* }}} */
197
198 /* {{{ proto bool ctype_cntrl(mixed c)
199 Checks for control character(s) */
PHP_FUNCTION(ctype_cntrl)200 static PHP_FUNCTION(ctype_cntrl)
201 {
202 CTYPE(iscntrl);
203 }
204 /* }}} */
205
206 /* {{{ proto bool ctype_digit(mixed c)
207 Checks for numeric character(s) */
PHP_FUNCTION(ctype_digit)208 static PHP_FUNCTION(ctype_digit)
209 {
210 CTYPE(isdigit);
211 }
212 /* }}} */
213
214 /* {{{ proto bool ctype_lower(mixed c)
215 Checks for lowercase character(s) */
PHP_FUNCTION(ctype_lower)216 static PHP_FUNCTION(ctype_lower)
217 {
218 CTYPE(islower);
219 }
220 /* }}} */
221
222 /* {{{ proto bool ctype_graph(mixed c)
223 Checks for any printable character(s) except space */
PHP_FUNCTION(ctype_graph)224 static PHP_FUNCTION(ctype_graph)
225 {
226 CTYPE(isgraph);
227 }
228 /* }}} */
229
230 /* {{{ proto bool ctype_print(mixed c)
231 Checks for printable character(s) */
PHP_FUNCTION(ctype_print)232 static PHP_FUNCTION(ctype_print)
233 {
234 CTYPE(isprint);
235 }
236 /* }}} */
237
238 /* {{{ proto bool ctype_punct(mixed c)
239 Checks for any printable character which is not whitespace or an alphanumeric character */
PHP_FUNCTION(ctype_punct)240 static PHP_FUNCTION(ctype_punct)
241 {
242 CTYPE(ispunct);
243 }
244 /* }}} */
245
246 /* {{{ proto bool ctype_space(mixed c)
247 Checks for whitespace character(s)*/
PHP_FUNCTION(ctype_space)248 static PHP_FUNCTION(ctype_space)
249 {
250 CTYPE(isspace);
251 }
252 /* }}} */
253
254 /* {{{ proto bool ctype_upper(mixed c)
255 Checks for uppercase character(s) */
PHP_FUNCTION(ctype_upper)256 static PHP_FUNCTION(ctype_upper)
257 {
258 CTYPE(isupper);
259 }
260 /* }}} */
261
262 /* {{{ proto bool ctype_xdigit(mixed c)
263 Checks for character(s) representing a hexadecimal digit */
PHP_FUNCTION(ctype_xdigit)264 static PHP_FUNCTION(ctype_xdigit)
265 {
266 CTYPE(isxdigit);
267 }
268 /* }}} */
269
270 #endif /* HAVE_CTYPE */
271
272 /*
273 * Local variables:
274 * tab-width: 4
275 * c-basic-offset: 4
276 * End:
277 * vim600: sw=4 ts=4 fdm=marker
278 * vim<600: sw=4 ts=4
279 */
280
