1 /*******************************************************************************
2 Copyright (c) 2016, Michael Wallner <mike@php.net>.
5 Redistribution and use in source and binary forms, with or without
6 modification, are permitted provided that the following conditions are met:
8 * Redistributions of source code must retain the above copyright notice,
9 this list of conditions and the following disclaimer.
10 * Redistributions in binary form must reproduce the above copyright
11 notice, this list of conditions and the following disclaimer in the
12 documentation and/or other materials provided with the distribution.
14 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
15 AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
17 DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
18 FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
20 SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
21 CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
22 OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
23 OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
24 *******************************************************************************/
33 #include <sys/param.h>
35 static inline size_t psi_align(size_t s
, size_t a
) {
36 return ((s
- 1) | (a
- 1)) + 1;
39 static inline size_t psi_offset_padding(size_t diff
, size_t alignment
) {
40 if (diff
&& diff
<= psi_align(diff
, alignment
)) {
47 #include "parser_proc.h"
50 #define PSI_T_CAST PSI_T_EQUALS
51 #define PSI_T_POINTER PSI_T_ASTERISK
53 #define PSI_T_WHITESPACE -PSI_T_NO_WHITESPACE
54 #define PSI_T_BSLASH -PSI_T_SLASH
55 #define PSI_T_LONG_DOUBLE -PSI_T_DOUBLE
57 #if SIZEOF_CHAR == SIZEOF_INT8_T
58 # define PSI_T_INT8 PSI_T_CHAR
59 # define PSI_T_UINT8 -PSI_T_CHAR
60 # define ALIGNOF_INT8_T ALIGNOF_CHAR
61 # define ALIGNOF_UINT8_T ALIGNOF_CHAR
63 # error SIZEOF_CHAR != 8
65 #if SIZEOF_SHORT == SIZEOF_INT16_T
66 # define PSI_T_INT16 PSI_T_SHORT
67 # define PSI_T_UINT16 -PSI_T_SHORT
68 # define ALIGNOF_INT16_T ALIGNOF_SHORT
69 # define ALIGNOF_UINT16_T ALIGNOF_SHORT
71 # error SIZEOF_SHORT != 16
73 #if SIZEOF_INT == SIZEOF_INT32_T
74 # define PSI_T_INT32 PSI_T_INT
75 # define PSI_T_UINT32 -PSI_T_INT
76 # define ALIGNOF_INT32_T ALIGNOF_INT
77 # define ALIGNOF_UINT32_T ALIGNOF_INT
78 #elif SIZEOF_LONG == SIZEOF_INT32_T
79 # define PSI_T_INT32 PSI_T_LONG
80 # define PSI_T_UINT32 -PSI_T_LONG
81 # define ALIGNOF_INT32_T ALIGNOF_LONG
82 # define ALIGNOF_UINT32_T ALIGNOF_LONG
84 # error SIZEOF_INT != 32 and SIZEOF_LONG != 32
86 #if SIZEOF_LONG == SIZEOF_INT64_T
87 # define PSI_T_INT64 PSI_T_LONG
88 # define PSI_T_UINT64 -PSI_T_LONG
89 # define ALIGNOF_INT64_T ALIGNOF_LONG
90 # define ALIGNOF_UINT64_T ALIGNOF_LONG
91 # elif HAVE_LONG_LONG_INT && SIZEOF_LONG_LONG_INT == SIZEOF_INT64_T
92 # define PSI_T_INT64 (PSI_T_LONG << 0xa)
93 # define PSI_T_UINT64 -(PSI_T_LONG << 0xa)
94 # define ALIGNOF_INT64_T ALIGNOF_LONG_LONG
95 # define ALIGNOF_UINT64_T ALIGNOF_LONG_LONG
97 # error SIZEOF_LONG != 64 and SIZEOF_LONG_LONG != 64
101 # define PSI_T_INT128 (PSI_T_LONG << 0xb)
102 # define PSI_T_UINT128 -(PSI_T_LONG << 0xb)
103 # define SIZEOF_INT128_T SIZEOF___INT128
104 # define SIZEOF_UINT128_T SIZEOF_UNSIGNED___INT128
105 # define ALIGNOF_INT128_T ALIGNOF___INT128
106 # define ALIGNOF_UINT128_T ALIGNOF___INT128
107 # define INT128_MAX ((__int128) (UINT128_MAX >> 1))
108 # define INT128_MIN (-INT128_MAX-1)
109 # define UINT128_MAX ((unsigned __int128) ~ 0)
110 typedef __int128 int128_t
;
111 typedef unsigned __int128 uint128_t
;
114 typedef int64_t token_t
;
116 static inline size_t psi_t_alignment(token_t t
)
118 #define PSI_ALIGNOF(T) case PSI_T_## T: return ALIGNOF_## T ##_T;
130 PSI_ALIGNOF(UINT128
);
133 return ALIGNOF_FLOAT
;
135 return ALIGNOF_DOUBLE
;
138 return ALIGNOF_VOID_P
;
141 #ifdef HAVE_LONG_DOUBLE
142 case PSI_T_LONG_DOUBLE
:
143 return ALIGNOF_LONG_DOUBLE
;
151 static inline size_t psi_t_size(token_t t
)
153 #define PSI_SIZEOF(T) case PSI_T_## T : return SIZEOF_## T ##_T;
170 return SIZEOF_DOUBLE
;
174 return SIZEOF_VOID_P
;
177 #ifdef HAVE_LONG_DOUBLE
178 case PSI_T_LONG_DOUBLE
:
179 return SIZEOF_LONG_DOUBLE
;
187 static inline const char *psi_t_indent(unsigned level
) {
188 static const char indent
[] =
189 "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t";
190 return &indent
[32 - MIN(32, level
)];
193 static inline const char *psi_t_indirection(unsigned pointer_level
) {
194 static const char indir
[] = "********************************";
195 return &indir
[32 - MIN(32, pointer_level
)];
200 unsigned size
, line
, col
, flags
;
207 struct psi_token
*psi_token_init(token_t token_typ
, const char *token_txt
,
208 size_t token_len
, unsigned col
, unsigned line
, const char *file
);
209 size_t psi_token_alloc_size(size_t token_len
, size_t fname_len
);
210 struct psi_token
*psi_token_copy(struct psi_token
*src
);
211 void psi_token_copy_ctor(struct psi_token
**src
);
212 struct psi_token
*psi_token_cat(const char *sep
, unsigned argc
, ...);
213 struct psi_token
*psi_token_prepend(const char *sep
, struct psi_token
*T
, unsigned argc
, ...);
214 struct psi_token
*psi_token_append(const char *sep
, struct psi_token
*T
, unsigned argc
, ...);
215 struct psi_token
*psi_token_translit(struct psi_token
*T
, char *from
, char *to
);
216 uint64_t psi_token_hash(struct psi_token
*t
, char *digest_buf
);
217 void psi_token_dump(int fd
, struct psi_token
*t
);
218 void psi_token_free(struct psi_token
**token
);