xref: /PHP-8.4/main/reentrancy.c (revision 2b30f187)
1 /*
2    +----------------------------------------------------------------------+
3    | Copyright (c) The PHP Group                                          |
4    +----------------------------------------------------------------------+
5    | This source file is subject to version 3.01 of the PHP license,      |
6    | that is bundled with this package in the file LICENSE, and is        |
7    | available through the world-wide-web at the following url:           |
8    | https://www.php.net/license/3_01.txt                                 |
9    | If you did not receive a copy of the PHP license and are unable to   |
10    | obtain it through the world-wide-web, please send a note to          |
11    | license@php.net so we can mail you a copy immediately.               |
12    +----------------------------------------------------------------------+
13    | Author: Sascha Schumann <sascha@schumann.cx>                         |
14    +----------------------------------------------------------------------+
15  */
16 
17 #include <sys/types.h>
18 #include <string.h>
19 #include <errno.h>
20 #ifdef HAVE_DIRENT_H
21 #include <dirent.h>
22 #endif
23 
24 #include "php_reentrancy.h"
25 
26 enum {
27 	LOCALTIME_R,
28 	CTIME_R,
29 	ASCTIME_R,
30 	GMTIME_R,
31 	NUMBER_OF_LOCKS
32 };
33 
34 #if defined(PHP_NEED_REENTRANCY)
35 
36 #include <TSRM.h>
37 
38 static MUTEX_T reentrant_locks[NUMBER_OF_LOCKS];
39 
40 #define local_lock(x) tsrm_mutex_lock(reentrant_locks[x])
41 #define local_unlock(x) tsrm_mutex_unlock(reentrant_locks[x])
42 
43 #else
44 
45 #define local_lock(x)
46 #define local_unlock(x)
47 
48 #endif
49 
50 #if defined(PHP_IRIX_TIME_R)
51 
52 #define HAVE_CTIME_R 1
53 #define HAVE_ASCTIME_R 1
54 
php_ctime_r(const time_t * clock,char * buf)55 PHPAPI char *php_ctime_r(const time_t *clock, char *buf)
56 {
57 	if (ctime_r(clock, buf) == buf)
58 		return (buf);
59 	return (NULL);
60 }
61 
php_asctime_r(const struct tm * tm,char * buf)62 PHPAPI char *php_asctime_r(const struct tm *tm, char *buf)
63 {
64 	if (asctime_r(tm, buf) == buf)
65 		return (buf);
66 	return (NULL);
67 }
68 
69 #endif
70 
71 #if defined(PHP_HPUX_TIME_R)
72 
73 #define HAVE_LOCALTIME_R 1
74 #define HAVE_CTIME_R 1
75 #define HAVE_ASCTIME_R 1
76 #define HAVE_GMTIME_R 1
77 
php_localtime_r(const time_t * const timep,struct tm * p_tm)78 PHPAPI struct tm *php_localtime_r(const time_t *const timep, struct tm *p_tm)
79 {
80 	if (localtime_r(timep, p_tm) == 0)
81 		return (p_tm);
82 	return (NULL);
83 }
84 
php_ctime_r(const time_t * clock,char * buf)85 PHPAPI char *php_ctime_r(const time_t *clock, char *buf)
86 {
87 	if (ctime_r(clock, buf, 26) != -1)
88 		return (buf);
89 	return (NULL);
90 }
91 
php_asctime_r(const struct tm * tm,char * buf)92 PHPAPI char *php_asctime_r(const struct tm *tm, char *buf)
93 {
94 	if (asctime_r(tm, buf, 26) != -1)
95 		return (buf);
96 	return (NULL);
97 }
98 
php_gmtime_r(const time_t * const timep,struct tm * p_tm)99 PHPAPI struct tm *php_gmtime_r(const time_t *const timep, struct tm *p_tm)
100 {
101 	if (gmtime_r(timep, p_tm) == 0)
102 		return (p_tm);
103 	return (NULL);
104 }
105 
106 #endif
107 
108 #if !defined(HAVE_LOCALTIME_R) && defined(HAVE_LOCALTIME)
109 
php_localtime_r(const time_t * const timep,struct tm * p_tm)110 PHPAPI struct tm *php_localtime_r(const time_t *const timep, struct tm *p_tm)
111 {
112 	struct tm *tmp;
113 
114 	local_lock(LOCALTIME_R);
115 
116 	tmp = localtime(timep);
117 	if (tmp) {
118 		memcpy(p_tm, tmp, sizeof(struct tm));
119 		tmp = p_tm;
120 	}
121 
122 	local_unlock(LOCALTIME_R);
123 
124 	return tmp;
125 }
126 
127 #endif
128 
129 #if !defined(HAVE_CTIME_R) && defined(HAVE_CTIME)
130 
php_ctime_r(const time_t * clock,char * buf)131 PHPAPI char *php_ctime_r(const time_t *clock, char *buf)
132 {
133 	char *tmp;
134 
135 	local_lock(CTIME_R);
136 
137 	tmp = ctime(clock);
138 	if (tmp) {
139 		strcpy(buf, tmp);
140 		tmp = buf;
141 	}
142 
143 	local_unlock(CTIME_R);
144 
145 	return tmp;
146 }
147 
148 #endif
149 
150 #if !defined(HAVE_ASCTIME_R) && defined(HAVE_ASCTIME)
151 
php_asctime_r(const struct tm * tm,char * buf)152 PHPAPI char *php_asctime_r(const struct tm *tm, char *buf)
153 {
154 	char *tmp;
155 
156 	local_lock(ASCTIME_R);
157 
158 	tmp = asctime(tm);
159 	if (tmp) {
160 		strcpy(buf, tmp);
161 		tmp = buf;
162 	}
163 
164 	local_unlock(ASCTIME_R);
165 
166 	return tmp;
167 }
168 
169 #endif
170 
171 #if !defined(HAVE_GMTIME_R) && defined(HAVE_GMTIME)
172 
php_gmtime_r(const time_t * const timep,struct tm * p_tm)173 PHPAPI struct tm *php_gmtime_r(const time_t *const timep, struct tm *p_tm)
174 {
175 	struct tm *tmp;
176 
177 	local_lock(GMTIME_R);
178 
179 	tmp = gmtime(timep);
180 	if (tmp) {
181 		memcpy(p_tm, tmp, sizeof(struct tm));
182 		tmp = p_tm;
183 	}
184 
185 	local_unlock(GMTIME_R);
186 
187 	return tmp;
188 }
189 
190 #endif
191 
192 #if defined(PHP_NEED_REENTRANCY)
193 
reentrancy_startup(void)194 void reentrancy_startup(void)
195 {
196 	int i;
197 
198 	for (i = 0; i < NUMBER_OF_LOCKS; i++) {
199 		reentrant_locks[i] = tsrm_mutex_alloc();
200 	}
201 }
202 
reentrancy_shutdown(void)203 void reentrancy_shutdown(void)
204 {
205 	int i;
206 
207 	for (i = 0; i < NUMBER_OF_LOCKS; i++) {
208 		tsrm_mutex_free(reentrant_locks[i]);
209 	}
210 }
211 
212 #endif
213 
214 
215 #ifndef HAVE_STRTOK_R
216 
217 /*
218  * Copyright (c) 1998 Softweyr LLC.  All rights reserved.
219  *
220  * strtok_r, from Berkeley strtok
221  * Oct 13, 1998 by Wes Peters <wes@softweyr.com>
222  *
223  * Copyright (c) 1988, 1993
224  *	The Regents of the University of California.  All rights reserved.
225  *
226  * Redistribution and use in source and binary forms, with or without
227  * modification, are permitted provided that the following conditions
228  * are met:
229  *
230  * 1. Redistributions of source code must retain the above copyright
231  *    notices, this list of conditions and the following disclaimer.
232  *
233  * 2. Redistributions in binary form must reproduce the above copyright
234  *    notices, this list of conditions and the following disclaimer in the
235  *    documentation and/or other materials provided with the distribution.
236  *
237  * 3. All advertising materials mentioning features or use of this software
238  *    must display the following acknowledgement:
239  *
240  *	This product includes software developed by Softweyr LLC, the
241  *      University of California, Berkeley, and its contributors.
242  *
243  * 4. Neither the name of the University nor the names of its contributors
244  *    may be used to endorse or promote products derived from this software
245  *    without specific prior written permission.
246  *
247  * THIS SOFTWARE IS PROVIDED BY SOFTWEYR LLC, THE REGENTS AND CONTRIBUTORS
248  * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
249  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
250  * PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL SOFTWEYR LLC, THE
251  * REGENTS, OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
252  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
253  * TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
254  * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
255  * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
256  * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
257  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
258  */
259 
260 #include <stddef.h>
261 
262 PHPAPI char *
php_strtok_r(char * s,const char * delim,char ** last)263 php_strtok_r(char *s, const char *delim, char **last)
264 {
265     char *spanp;
266     int c, sc;
267     char *tok;
268 
269     if (s == NULL && (s = *last) == NULL)
270     {
271 	return NULL;
272     }
273 
274     /*
275      * Skip (span) leading delimiters (s += strspn(s, delim), sort of).
276      */
277 cont:
278     c = *s++;
279     for (spanp = (char *)delim; (sc = *spanp++) != 0; )
280     {
281 	if (c == sc)
282 	{
283 	    goto cont;
284 	}
285     }
286 
287     if (c == 0)		/* no non-delimiter characters */
288     {
289 	*last = NULL;
290 	return NULL;
291     }
292     tok = s - 1;
293 
294     /*
295      * Scan token (scan for delimiters: s += strcspn(s, delim), sort of).
296      * Note that delim must have one NUL; we stop if we see that, too.
297      */
298     for (;;)
299     {
300 	c = *s++;
301 	spanp = (char *)delim;
302 	do
303 	{
304 	    if ((sc = *spanp++) == c)
305 	    {
306 		if (c == 0)
307 		{
308 		    s = NULL;
309 		}
310 		else
311 		{
312 		    char *w = s - 1;
313 		    *w = '\0';
314 		}
315 		*last = s;
316 		return tok;
317 	    }
318 	}
319 	while (sc != 0);
320     }
321     /* NOTREACHED */
322 }
323 
324 #endif
325