code/trunk/pcre_byte_order.c

/*************************************************
*      Perl-Compatible Regular Expressions       *
*************************************************/

/* PCRE is a library of functions to support regular expressions whose syntax
and semantics are as close as possible to those of the Perl 5 language.

                       Written by Philip Hazel
           Copyright (c) 1997-2009 University of Cambridge

-----------------------------------------------------------------------------
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:

    * Redistributions of source code must retain the above copyright notice,
      this list of conditions and the following disclaimer.

    * Redistributions in binary form must reproduce the above copyright
      notice, this list of conditions and the following disclaimer in the
      documentation and/or other materials provided with the distribution.

    * Neither the name of the University of Cambridge nor the names of its
      contributors may be used to endorse or promote products derived from
      this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.
-----------------------------------------------------------------------------
*/


/* This module contains an internal function that tests a compiled pattern to
see if it was compiled with the opposite endianness. If so, it uses an
auxiliary local function to flip the appropriate bytes. */


#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "pcre_internal.h"


/*************************************************
*             Swap byte functions                *
*************************************************/

/* The following functions swap the bytes of a pcre_uint16
and pcre_uint32 value.

Arguments:
  value        any number

Returns:       the byte swapped value
*/

static pcre_uint32
swap_uint32(pcre_uint32 value)
{
return ((value & 0x000000ff) << 24) |
       ((value & 0x0000ff00) <<  8) |
       ((value & 0x00ff0000) >>  8) |
       (value >> 24);
}

static pcre_uint16
swap_uint16(pcre_uint16 value)
{
return (value >> 8) | (value << 8);
}


/*************************************************
*       Test for a byte-flipped compiled regex   *
*************************************************/

/* This function swaps the bytes of a compiled pattern usually
loaded form the disk. It also sets the tables pointer, which
is likely an invalid pointer after reload.

Arguments:
  argument_re     points to the compiled expression
  extra_data      points to extra data or is NULL
  tables          points to the character tables or NULL

Returns:          0 if the swap is successful, negative on error
*/

#ifdef COMPILE_PCRE8
PCRE_EXP_DECL int pcre_pattern_to_host_byte_order(pcre *argument_re,
  pcre_extra *extra_data, const unsigned char *tables)
#else
PCRE_EXP_DECL int pcre16_pattern_to_host_byte_order(pcre *argument_re,
  pcre_extra *extra_data, const unsigned char *tables)
#endif
{
real_pcre *re = (real_pcre *)argument_re;
pcre_study_data *study;
#ifndef COMPILE_PCRE8
pcre_uchar *ptr;
int length;
#ifdef SUPPORT_UTF
BOOL utf;
BOOL utf16_char;
#endif /* SUPPORT_UTF */
#endif /* !COMPILE_PCRE8 */

if (re == NULL) return PCRE_ERROR_NULL;
if (re->magic_number == MAGIC_NUMBER)
  {
  if ((re->flags & PCRE_MODE) == 0) return PCRE_ERROR_BADMODE;
  re->tables = tables;
  return 0;
  }

if (re->magic_number != REVERSED_MAGIC_NUMBER) return PCRE_ERROR_BADMAGIC;
if ((swap_uint16(re->flags) & PCRE_MODE) == 0) return PCRE_ERROR_BADMODE;

re->magic_number = MAGIC_NUMBER;
re->size = swap_uint32(re->size);
re->options = swap_uint32(re->options);
re->flags = swap_uint16(re->flags);
re->top_bracket = swap_uint16(re->top_bracket);
re->top_backref = swap_uint16(re->top_backref);
re->first_char = swap_uint16(re->first_char);
re->req_char = swap_uint16(re->req_char);
re->name_table_offset = swap_uint16(re->name_table_offset);
re->name_entry_size = swap_uint16(re->name_entry_size);
re->name_count = swap_uint16(re->name_count);
re->ref_count = swap_uint16(re->ref_count);
re->tables = tables;

if (extra_data != NULL && (re->flags & PCRE_EXTRA_STUDY_DATA) != 0)
  {
  study = (pcre_study_data *)extra_data->study_data;
  study->size = swap_uint32(study->size);
  study->flags = swap_uint32(study->flags);
  study->minlength = swap_uint32(study->minlength);
  }

#ifndef COMPILE_PCRE8
ptr = (pcre_uchar *)re + re->name_table_offset;
length = re->name_count * re->name_entry_size;
#ifdef SUPPORT_UTF
utf = (re->options & PCRE_UTF16) != 0;
utf16_char = FALSE;
#endif

while(TRUE)
  {
  /* Swap previous characters. */
  while (length-- > 0)
    {
    *ptr = swap_uint16(*ptr);
    ptr++;
    }
#ifdef SUPPORT_UTF
  if (utf16_char)
    {
    if (HAS_EXTRALEN(ptr[-1]))
      {
      /* We know that there is only one extra character in UTF-16. */
      *ptr = swap_uint16(*ptr);
      ptr++;
      }
    }
  utf16_char = FALSE;
#endif /* SUPPORT_UTF */

  /* Get next opcode. */
  length = 0;
  *ptr = swap_uint16(*ptr);
  switch (*ptr)
    {
    case OP_END:
    return 0;

    case OP_CHAR:
    case OP_CHARI:
    case OP_NOT:
    case OP_NOTI:
    case OP_STAR:
    case OP_MINSTAR:
    case OP_PLUS:
    case OP_MINPLUS:
    case OP_QUERY:
    case OP_MINQUERY:
    case OP_UPTO:
    case OP_MINUPTO:
    case OP_EXACT:
    case OP_POSSTAR:
    case OP_POSPLUS:
    case OP_POSQUERY:
    case OP_POSUPTO:
    case OP_STARI:
    case OP_MINSTARI:
    case OP_PLUSI:
    case OP_MINPLUSI:
    case OP_QUERYI:
    case OP_MINQUERYI:
    case OP_UPTOI:
    case OP_MINUPTOI:
    case OP_EXACTI:
    case OP_POSSTARI:
    case OP_POSPLUSI:
    case OP_POSQUERYI:
    case OP_POSUPTOI:
    case OP_NOTSTAR:
    case OP_NOTMINSTAR:
    case OP_NOTPLUS:
    case OP_NOTMINPLUS:
    case OP_NOTQUERY:
    case OP_NOTMINQUERY:
    case OP_NOTUPTO:
    case OP_NOTMINUPTO:
    case OP_NOTEXACT:
    case OP_NOTPOSSTAR:
    case OP_NOTPOSPLUS:
    case OP_NOTPOSQUERY:
    case OP_NOTPOSUPTO:
    case OP_NOTSTARI:
    case OP_NOTMINSTARI:
    case OP_NOTPLUSI:
    case OP_NOTMINPLUSI:
    case OP_NOTQUERYI:
    case OP_NOTMINQUERYI:
    case OP_NOTUPTOI:
    case OP_NOTMINUPTOI:
    case OP_NOTEXACTI:
    case OP_NOTPOSSTARI:
    case OP_NOTPOSPLUSI:
    case OP_NOTPOSQUERYI:
    case OP_NOTPOSUPTOI:
    utf16_char = TRUE;
    length = PRIV(OP_lengths)[*ptr] - 1;
    break;

    case OP_CLASS:
    case OP_NCLASS:
    /* Skip the character bit map. */
    ptr += 32/sizeof(pcre_uchar);
    length = 0;
    break;

    case OP_XCLASS:
    /* Reverse the size of the XCLASS instance. */
    ptr++;
    *ptr = swap_uint16(*ptr);
    if (LINK_SIZE > 1)
      {
      /* LINK_SIZE can be 1 or 2 in 16 bit mode. */
      ptr++;
      *ptr = swap_uint16(*ptr);
      }
    ptr++;
    length = (GET(ptr, -LINK_SIZE)) - (1 + LINK_SIZE + 1);
    *ptr = swap_uint16(*ptr);
    if ((*ptr & XCL_MAP) != 0)
      {
      /* Skip the character bit map. */
      ptr += 32/sizeof(pcre_uchar);
      length -= 32/sizeof(pcre_uchar);
      }
    break;

    default:
    length = PRIV(OP_lengths)[*ptr] - 1;
    break;
    }
  ptr++;
  }
/* Control should never reach here in 16 bit mode. */
#endif /* !COMPILE_PCRE8 */

return 0;
}

/* End of pcre_byte_order.c */
1	/*************************************************
2	* Perl-Compatible Regular Expressions *
3	*************************************************/
4
5	/* PCRE is a library of functions to support regular expressions whose syntax
6	and semantics are as close as possible to those of the Perl 5 language.
7
8	Written by Philip Hazel
9	Copyright (c) 1997-2009 University of Cambridge
10
11	-----------------------------------------------------------------------------
12	Redistribution and use in source and binary forms, with or without
13	modification, are permitted provided that the following conditions are met:
14
15	* Redistributions of source code must retain the above copyright notice,
16	this list of conditions and the following disclaimer.
17
18	* Redistributions in binary form must reproduce the above copyright
19	notice, this list of conditions and the following disclaimer in the
20	documentation and/or other materials provided with the distribution.
21
22	* Neither the name of the University of Cambridge nor the names of its
23	contributors may be used to endorse or promote products derived from
24	this software without specific prior written permission.
25
26	THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
27	AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
28	IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
29	ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
30	LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
31	CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
32	SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
33	INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
34	CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
35	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36	POSSIBILITY OF SUCH DAMAGE.
37	-----------------------------------------------------------------------------
38	*/
39
40
41	/* This module contains an internal function that tests a compiled pattern to
42	see if it was compiled with the opposite endianness. If so, it uses an
43	auxiliary local function to flip the appropriate bytes. */
44
45
46	#ifdef HAVE_CONFIG_H
47	#include "config.h"
48	#endif
49
50	#include "pcre_internal.h"
51
52
53	/*************************************************
54	* Swap byte functions *
55	*************************************************/
56
57	/* The following functions swap the bytes of a pcre_uint16
58	and pcre_uint32 value.
59
60	Arguments:
61	value any number
62
63	Returns: the byte swapped value
64	*/
65
66	static pcre_uint32
67	swap_uint32(pcre_uint32 value)
68	{
69	return ((value & 0x000000ff) << 24) \|
70	((value & 0x0000ff00) << 8) \|
71	((value & 0x00ff0000) >> 8) \|
72	(value >> 24);
73	}
74
75	static pcre_uint16
76	swap_uint16(pcre_uint16 value)
77	{
78	return (value >> 8) \| (value << 8);
79	}
80
81
82	/*************************************************
83	* Test for a byte-flipped compiled regex *
84	*************************************************/
85
86	/* This function swaps the bytes of a compiled pattern usually
87	loaded form the disk. It also sets the tables pointer, which
88	is likely an invalid pointer after reload.
89
90	Arguments:
91	argument_re points to the compiled expression
92	extra_data points to extra data or is NULL
93	tables points to the character tables or NULL
94
95	Returns: 0 if the swap is successful, negative on error
96	*/
97
98	#ifdef COMPILE_PCRE8
99	PCRE_EXP_DECL int pcre_pattern_to_host_byte_order(pcre *argument_re,
100	pcre_extra extra_data, const unsigned char tables)
101	#else
102	PCRE_EXP_DECL int pcre16_pattern_to_host_byte_order(pcre *argument_re,
103	pcre_extra extra_data, const unsigned char tables)
104	#endif
105	{
106	real_pcre re = (real_pcre )argument_re;
107	pcre_study_data *study;
108	#ifndef COMPILE_PCRE8
109	pcre_uchar *ptr;
110	int length;
111	#ifdef SUPPORT_UTF
112	BOOL utf;
113	BOOL utf16_char;
114	#endif /* SUPPORT_UTF */
115	#endif /* !COMPILE_PCRE8 */
116
117	if (re == NULL) return PCRE_ERROR_NULL;
118	if (re->magic_number == MAGIC_NUMBER)
119	{
120	if ((re->flags & PCRE_MODE) == 0) return PCRE_ERROR_BADMODE;
121	re->tables = tables;
122	return 0;
123	}
124
125	if (re->magic_number != REVERSED_MAGIC_NUMBER) return PCRE_ERROR_BADMAGIC;
126	if ((swap_uint16(re->flags) & PCRE_MODE) == 0) return PCRE_ERROR_BADMODE;
127
128	re->magic_number = MAGIC_NUMBER;
129	re->size = swap_uint32(re->size);
130	re->options = swap_uint32(re->options);
131	re->flags = swap_uint16(re->flags);
132	re->top_bracket = swap_uint16(re->top_bracket);
133	re->top_backref = swap_uint16(re->top_backref);
134	re->first_char = swap_uint16(re->first_char);
135	re->req_char = swap_uint16(re->req_char);
136	re->name_table_offset = swap_uint16(re->name_table_offset);
137	re->name_entry_size = swap_uint16(re->name_entry_size);
138	re->name_count = swap_uint16(re->name_count);
139	re->ref_count = swap_uint16(re->ref_count);
140	re->tables = tables;
141
142	if (extra_data != NULL && (re->flags & PCRE_EXTRA_STUDY_DATA) != 0)
143	{
144	study = (pcre_study_data *)extra_data->study_data;
145	study->size = swap_uint32(study->size);
146	study->flags = swap_uint32(study->flags);
147	study->minlength = swap_uint32(study->minlength);
148	}
149
150	#ifndef COMPILE_PCRE8
151	ptr = (pcre_uchar *)re + re->name_table_offset;
152	length = re->name_count * re->name_entry_size;
153	#ifdef SUPPORT_UTF
154	utf = (re->options & PCRE_UTF16) != 0;
155	utf16_char = FALSE;
156	#endif
157
158	while(TRUE)
159	{
160	/* Swap previous characters. */
161	while (length-- > 0)
162	{
163	ptr = swap_uint16(ptr);
164	ptr++;
165	}
166	#ifdef SUPPORT_UTF
167	if (utf16_char)
168	{
169	if (HAS_EXTRALEN(ptr[-1]))
170	{
171	/* We know that there is only one extra character in UTF-16. */
172	ptr = swap_uint16(ptr);
173	ptr++;
174	}
175	}
176	utf16_char = FALSE;
177	#endif /* SUPPORT_UTF */
178
179	/* Get next opcode. */
180	length = 0;
181	ptr = swap_uint16(ptr);
182	switch (*ptr)
183	{
184	case OP_END:
185	return 0;
186
187	case OP_CHAR:
188	case OP_CHARI:
189	case OP_NOT:
190	case OP_NOTI:
191	case OP_STAR:
192	case OP_MINSTAR:
193	case OP_PLUS:
194	case OP_MINPLUS:
195	case OP_QUERY:
196	case OP_MINQUERY:
197	case OP_UPTO:
198	case OP_MINUPTO:
199	case OP_EXACT:
200	case OP_POSSTAR:
201	case OP_POSPLUS:
202	case OP_POSQUERY:
203	case OP_POSUPTO:
204	case OP_STARI:
205	case OP_MINSTARI:
206	case OP_PLUSI:
207	case OP_MINPLUSI:
208	case OP_QUERYI:
209	case OP_MINQUERYI:
210	case OP_UPTOI:
211	case OP_MINUPTOI:
212	case OP_EXACTI:
213	case OP_POSSTARI:
214	case OP_POSPLUSI:
215	case OP_POSQUERYI:
216	case OP_POSUPTOI:
217	case OP_NOTSTAR:
218	case OP_NOTMINSTAR:
219	case OP_NOTPLUS:
220	case OP_NOTMINPLUS:
221	case OP_NOTQUERY:
222	case OP_NOTMINQUERY:
223	case OP_NOTUPTO:
224	case OP_NOTMINUPTO:
225	case OP_NOTEXACT:
226	case OP_NOTPOSSTAR:
227	case OP_NOTPOSPLUS:
228	case OP_NOTPOSQUERY:
229	case OP_NOTPOSUPTO:
230	case OP_NOTSTARI:
231	case OP_NOTMINSTARI:
232	case OP_NOTPLUSI:
233	case OP_NOTMINPLUSI:
234	case OP_NOTQUERYI:
235	case OP_NOTMINQUERYI:
236	case OP_NOTUPTOI:
237	case OP_NOTMINUPTOI:
238	case OP_NOTEXACTI:
239	case OP_NOTPOSSTARI:
240	case OP_NOTPOSPLUSI:
241	case OP_NOTPOSQUERYI:
242	case OP_NOTPOSUPTOI:
243	utf16_char = TRUE;
244	length = PRIV(OP_lengths)[*ptr] - 1;
245	break;
246
247	case OP_CLASS:
248	case OP_NCLASS:
249	/* Skip the character bit map. */
250	ptr += 32/sizeof(pcre_uchar);
251	length = 0;
252	break;
253
254	case OP_XCLASS:
255	/* Reverse the size of the XCLASS instance. */
256	ptr++;
257	ptr = swap_uint16(ptr);
258	if (LINK_SIZE > 1)
259	{
260	/* LINK_SIZE can be 1 or 2 in 16 bit mode. */
261	ptr++;
262	ptr = swap_uint16(ptr);
263	}
264	ptr++;
265	length = (GET(ptr, -LINK_SIZE)) - (1 + LINK_SIZE + 1);
266	ptr = swap_uint16(ptr);
267	if ((*ptr & XCL_MAP) != 0)
268	{
269	/* Skip the character bit map. */
270	ptr += 32/sizeof(pcre_uchar);
271	length -= 32/sizeof(pcre_uchar);
272	}
273	break;
274
275	default:
276	length = PRIV(OP_lengths)[*ptr] - 1;
277	break;
278	}
279	ptr++;
280	}
281	/* Control should never reach here in 16 bit mode. */
282	#endif /* !COMPILE_PCRE8 */
283
284	return 0;
285	}
286
287	/* End of pcre_byte_order.c */
Name	Value
svn:eol-style	native
svn:keywords	"Author Date Id Revision Url"