Return to pcre_maketables.c CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / pcre

Annotation of embedaddon/pcre/pcre_maketables.c, revision 1.1.1.2

1.1       misho       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
1.1.1.2 ! misho       9:            Copyright (c) 1997-2012 University of Cambridge
1.1       misho      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 the external function pcre_maketables(), which builds
                     42: character tables for PCRE in the current locale. The file is compiled on its
                     43: own as part of the PCRE library. However, it is also included in the
                     44: compilation of dftables.c, in which case the macro DFTABLES is defined. */
                     45: 
                     46: 
                     47: #ifndef DFTABLES
                     48: #  ifdef HAVE_CONFIG_H
                     49: #  include "config.h"
                     50: #  endif
                     51: #  include "pcre_internal.h"
                     52: #endif
                     53: 
                     54: 
                     55: /*************************************************
                     56: *           Create PCRE character tables         *
                     57: *************************************************/
                     58: 
                     59: /* This function builds a set of character tables for use by PCRE and returns
                     60: a pointer to them. They are build using the ctype functions, and consequently
                     61: their contents will depend upon the current locale setting. When compiled as
1.1.1.2 ! misho      62: part of the library, the store is obtained via PUBL(malloc)(), but when
        !            63: compiled inside dftables, use malloc().
1.1       misho      64: 
                     65: Arguments:   none
                     66: Returns:     pointer to the contiguous block of data
                     67: */
                     68: 
1.1.1.2 ! misho      69: #ifdef COMPILE_PCRE8
1.1       misho      70: const unsigned char *
                     71: pcre_maketables(void)
1.1.1.2 ! misho      72: #else
        !            73: const unsigned char *
        !            74: pcre16_maketables(void)
        !            75: #endif
1.1       misho      76: {
                     77: unsigned char *yield, *p;
                     78: int i;
                     79: 
                     80: #ifndef DFTABLES
1.1.1.2 ! misho      81: yield = (unsigned char*)(PUBL(malloc))(tables_length);
1.1       misho      82: #else
                     83: yield = (unsigned char*)malloc(tables_length);
                     84: #endif
                     85: 
                     86: if (yield == NULL) return NULL;
                     87: p = yield;
                     88: 
                     89: /* First comes the lower casing table */
                     90: 
                     91: for (i = 0; i < 256; i++) *p++ = tolower(i);
                     92: 
                     93: /* Next the case-flipping table */
                     94: 
                     95: for (i = 0; i < 256; i++) *p++ = islower(i)? toupper(i) : tolower(i);
                     96: 
                     97: /* Then the character class tables. Don't try to be clever and save effort on
                     98: exclusive ones - in some locales things may be different. Note that the table
                     99: for "space" includes everything "isspace" gives, including VT in the default
                    100: locale. This makes it work for the POSIX class [:space:]. Note also that it is
                    101: possible for a character to be alnum or alpha without being lower or upper,
                    102: such as "male and female ordinals" (\xAA and \xBA) in the fr_FR locale (at
                    103: least under Debian Linux's locales as of 12/2005). So we must test for alnum
                    104: specially. */
                    105: 
                    106: memset(p, 0, cbit_length);
                    107: for (i = 0; i < 256; i++)
                    108:   {
                    109:   if (isdigit(i)) p[cbit_digit  + i/8] |= 1 << (i&7);
                    110:   if (isupper(i)) p[cbit_upper  + i/8] |= 1 << (i&7);
                    111:   if (islower(i)) p[cbit_lower  + i/8] |= 1 << (i&7);
                    112:   if (isalnum(i)) p[cbit_word   + i/8] |= 1 << (i&7);
                    113:   if (i == '_')   p[cbit_word   + i/8] |= 1 << (i&7);
                    114:   if (isspace(i)) p[cbit_space  + i/8] |= 1 << (i&7);
                    115:   if (isxdigit(i))p[cbit_xdigit + i/8] |= 1 << (i&7);
                    116:   if (isgraph(i)) p[cbit_graph  + i/8] |= 1 << (i&7);
                    117:   if (isprint(i)) p[cbit_print  + i/8] |= 1 << (i&7);
                    118:   if (ispunct(i)) p[cbit_punct  + i/8] |= 1 << (i&7);
                    119:   if (iscntrl(i)) p[cbit_cntrl  + i/8] |= 1 << (i&7);
                    120:   }
                    121: p += cbit_length;
                    122: 
                    123: /* Finally, the character type table. In this, we exclude VT from the white
                    124: space chars, because Perl doesn't recognize it as such for \s and for comments
                    125: within regexes. */
                    126: 
                    127: for (i = 0; i < 256; i++)
                    128:   {
                    129:   int x = 0;
                    130:   if (i != 0x0b && isspace(i)) x += ctype_space;
                    131:   if (isalpha(i)) x += ctype_letter;
                    132:   if (isdigit(i)) x += ctype_digit;
                    133:   if (isxdigit(i)) x += ctype_xdigit;
                    134:   if (isalnum(i) || i == '_') x += ctype_word;
                    135: 
                    136:   /* Note: strchr includes the terminating zero in the characters it considers.
                    137:   In this instance, that is ok because we want binary zero to be flagged as a
                    138:   meta-character, which in this sense is any character that terminates a run
                    139:   of data characters. */
                    140: 
                    141:   if (strchr("\\*+?{^.$|()[", i) != 0) x += ctype_meta;
                    142:   *p++ = x;
                    143:   }
                    144: 
                    145: return yield;
                    146: }
                    147: 
                    148: /* End of pcre_maketables.c */