215 lines
6.9 KiB
C
215 lines
6.9 KiB
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
|
|
Original API code Copyright (c) 1997-2012 University of Cambridge
|
|
New API code Copyright (c) 2016 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 is a freestanding support program to generate a file containing
|
|
character tables for PCRE2. The tables are built according to the current
|
|
locale using the pcre2_maketables() function, which is part of the PCRE2 API.
|
|
*/
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include <ctype.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <locale.h>
|
|
|
|
#define PCRE2_CODE_UNIT_WIDTH 0 /* Must be set, but not relevant here */
|
|
#include "pcre2_internal.h"
|
|
|
|
#define DFTABLES /* pcre2_maketables.c notices this */
|
|
#include "pcre2_maketables.c"
|
|
|
|
int main(int argc, char **argv)
|
|
{
|
|
FILE *f;
|
|
int i = 1;
|
|
const unsigned char *tables;
|
|
const unsigned char *base_of_tables;
|
|
|
|
/* By default, the default C locale is used rather than what the building user
|
|
happens to have set. However, if the -L option is given, set the locale from
|
|
the LC_xxx environment variables. */
|
|
|
|
if (argc > 1 && strcmp(argv[1], "-L") == 0)
|
|
{
|
|
setlocale(LC_ALL, ""); /* Set from environment variables */
|
|
i++;
|
|
}
|
|
|
|
if (argc < i + 1)
|
|
{
|
|
fprintf(stderr, "dftables: one filename argument is required\n");
|
|
return 1;
|
|
}
|
|
|
|
tables = maketables();
|
|
base_of_tables = tables;
|
|
|
|
f = fopen(argv[i], "wb");
|
|
if (f == NULL)
|
|
{
|
|
fprintf(stderr, "dftables: failed to open %s for writing\n", argv[1]);
|
|
return 1;
|
|
}
|
|
|
|
/* There are several fprintf() calls here, because gcc in pedantic mode
|
|
complains about the very long string otherwise. */
|
|
|
|
fprintf(f,
|
|
"/*************************************************\n"
|
|
"* Perl-Compatible Regular Expressions *\n"
|
|
"*************************************************/\n\n"
|
|
"/* This file was automatically written by the dftables auxiliary\n"
|
|
"program. It contains character tables that are used when no external\n"
|
|
"tables are passed to PCRE2 by the application that calls it. The tables\n"
|
|
"are used only for characters whose code values are less than 256. */\n\n");
|
|
|
|
/* Force config.h in z/OS */
|
|
|
|
#if defined NATIVE_ZOS
|
|
fprintf(f,
|
|
"/* For z/OS, config.h is forced */\n"
|
|
"#ifndef HAVE_CONFIG_H\n"
|
|
"#define HAVE_CONFIG_H 1\n"
|
|
"#endif\n\n");
|
|
#endif
|
|
|
|
fprintf(f,
|
|
"/* The following #includes are present because without them gcc 4.x may remove\n"
|
|
"the array definition from the final binary if PCRE2 is built into a static\n"
|
|
"library and dead code stripping is activated. This leads to link errors.\n"
|
|
"Pulling in the header ensures that the array gets flagged as \"someone\n"
|
|
"outside this compilation unit might reference this\" and so it will always\n"
|
|
"be supplied to the linker. */\n\n");
|
|
|
|
fprintf(f,
|
|
"#ifdef HAVE_CONFIG_H\n"
|
|
"#include \"config.h\"\n"
|
|
"#endif\n\n"
|
|
"#include \"pcre2_internal.h\"\n\n");
|
|
|
|
fprintf(f,
|
|
"const uint8_t PRIV(default_tables)[] = {\n\n"
|
|
"/* This table is a lower casing table. */\n\n");
|
|
|
|
fprintf(f, " ");
|
|
for (i = 0; i < 256; i++)
|
|
{
|
|
if ((i & 7) == 0 && i != 0) fprintf(f, "\n ");
|
|
fprintf(f, "%3d", *tables++);
|
|
if (i != 255) fprintf(f, ",");
|
|
}
|
|
fprintf(f, ",\n\n");
|
|
|
|
fprintf(f, "/* This table is a case flipping table. */\n\n");
|
|
|
|
fprintf(f, " ");
|
|
for (i = 0; i < 256; i++)
|
|
{
|
|
if ((i & 7) == 0 && i != 0) fprintf(f, "\n ");
|
|
fprintf(f, "%3d", *tables++);
|
|
if (i != 255) fprintf(f, ",");
|
|
}
|
|
fprintf(f, ",\n\n");
|
|
|
|
fprintf(f,
|
|
"/* This table contains bit maps for various character classes.\n"
|
|
"Each map is 32 bytes long and the bits run from the least\n"
|
|
"significant end of each byte. The classes that have their own\n"
|
|
"maps are: space, xdigit, digit, upper, lower, word, graph\n"
|
|
"print, punct, and cntrl. Other classes are built from combinations. */\n\n");
|
|
|
|
fprintf(f, " ");
|
|
for (i = 0; i < cbit_length; i++)
|
|
{
|
|
if ((i & 7) == 0 && i != 0)
|
|
{
|
|
if ((i & 31) == 0) fprintf(f, "\n");
|
|
fprintf(f, "\n ");
|
|
}
|
|
fprintf(f, "0x%02x", *tables++);
|
|
if (i != cbit_length - 1) fprintf(f, ",");
|
|
}
|
|
fprintf(f, ",\n\n");
|
|
|
|
fprintf(f,
|
|
"/* This table identifies various classes of character by individual bits:\n"
|
|
" 0x%02x white space character\n"
|
|
" 0x%02x letter\n"
|
|
" 0x%02x decimal digit\n"
|
|
" 0x%02x hexadecimal digit\n"
|
|
" 0x%02x alphanumeric or '_'\n"
|
|
" 0x%02x regular expression metacharacter or binary zero\n*/\n\n",
|
|
ctype_space, ctype_letter, ctype_digit, ctype_xdigit, ctype_word,
|
|
ctype_meta);
|
|
|
|
fprintf(f, " ");
|
|
for (i = 0; i < 256; i++)
|
|
{
|
|
if ((i & 7) == 0 && i != 0)
|
|
{
|
|
fprintf(f, " /* ");
|
|
if (isprint(i-8)) fprintf(f, " %c -", i-8);
|
|
else fprintf(f, "%3d-", i-8);
|
|
if (isprint(i-1)) fprintf(f, " %c ", i-1);
|
|
else fprintf(f, "%3d", i-1);
|
|
fprintf(f, " */\n ");
|
|
}
|
|
fprintf(f, "0x%02x", *tables++);
|
|
if (i != 255) fprintf(f, ",");
|
|
}
|
|
|
|
fprintf(f, "};/* ");
|
|
if (isprint(i-8)) fprintf(f, " %c -", i-8);
|
|
else fprintf(f, "%3d-", i-8);
|
|
if (isprint(i-1)) fprintf(f, " %c ", i-1);
|
|
else fprintf(f, "%3d", i-1);
|
|
fprintf(f, " */\n\n/* End of pcre2_chartables.c */\n");
|
|
|
|
fclose(f);
|
|
free((void *)base_of_tables);
|
|
return 0;
|
|
}
|
|
|
|
/* End of dftables.c */
|