code/trunk/dftables.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 <ph10@cam.ac.uk>

           Copyright (c) 1997-2003 University of Cambridge

-----------------------------------------------------------------------------
Permission is granted to anyone to use this software for any purpose on any
computer system, and to redistribute it freely, subject to the following
restrictions:

1. This software is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

2. The origin of this software must not be misrepresented, either by
   explicit claim or by omission.

3. Altered versions must be plainly marked as such, and must not be
   misrepresented as being the original software.

4. If PCRE is embedded in any software that is released under the GNU
   General Purpose Licence (GPL), then the terms of that licence shall
   supersede any condition above with which it is incompatible.
-----------------------------------------------------------------------------

See the file Tech.Notes for some information on the internals.
*/


/* This is a support program to generate the file chartables.c, containing
character tables of various kinds. They are built according to the default C
locale and used as the default tables by PCRE. Now that pcre_maketables is
a function visible to the outside world, we make use of its code from here in
order to be consistent. */

#include <ctype.h>
#include <stdio.h>
#include <string.h>

#include "internal.h"

#define DFTABLES          /* maketables.c notices this */
#include "maketables.c"


int main(int argc, char **argv)
{
int i;
FILE *f;
const unsigned char *tables = pcre_maketables();

if (argc != 2)
  {
  fprintf(stderr, "dftables: one filename argument is required\n");
  return 1;
  }

f = fopen(argv[1], "w");
if (f == NULL)
  {
  fprintf(stderr, "dftables: failed to open %s for writing\n", argv[1]);
  return 1;
  }

/* There are two 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 is automatically written by the dftables auxiliary \n"
  "program. If you edit it by hand, you might like to edit the Makefile to \n"
  "prevent its ever being regenerated.\n\n");
fprintf(f,
  "This file is #included in the compilation of pcre.c to build the default\n"
  "character tables which are used when no tables are passed to the compile\n"
  "function. */\n\n"
  "static unsigned char pcre_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 chartables.c */\n");

fclose(f);
return 0;
}

/* End of dftables.c */
1	nigel	27	/*************************************************
2			* Perl-Compatible Regular Expressions *
3			*************************************************/
4
5			/*
6			PCRE is a library of functions to support regular expressions whose syntax
7			and semantics are as close as possible to those of the Perl 5 language.
8
9			Written by: Philip Hazel <ph10@cam.ac.uk>
10
11	nigel	73	Copyright (c) 1997-2003 University of Cambridge
12	nigel	27
13			-----------------------------------------------------------------------------
14			Permission is granted to anyone to use this software for any purpose on any
15			computer system, and to redistribute it freely, subject to the following
16			restrictions:
17
18			1. This software is distributed in the hope that it will be useful,
19			but WITHOUT ANY WARRANTY; without even the implied warranty of
20			MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
21
22			2. The origin of this software must not be misrepresented, either by
23			explicit claim or by omission.
24
25			3. Altered versions must be plainly marked as such, and must not be
26			misrepresented as being the original software.
27	nigel	29
28			4. If PCRE is embedded in any software that is released under the GNU
29			General Purpose Licence (GPL), then the terms of that licence shall
30			supersede any condition above with which it is incompatible.
31	nigel	27	-----------------------------------------------------------------------------
32
33			See the file Tech.Notes for some information on the internals.
34			*/
35
36
37			/* This is a support program to generate the file chartables.c, containing
38			character tables of various kinds. They are built according to the default C
39			locale and used as the default tables by PCRE. Now that pcre_maketables is
40			a function visible to the outside world, we make use of its code from here in
41			order to be consistent. */
42
43			#include <ctype.h>
44			#include <stdio.h>
45			#include <string.h>
46
47			#include "internal.h"
48
49			#define DFTABLES /* maketables.c notices this */
50			#include "maketables.c"
51
52
53	nigel	73	int main(int argc, char **argv)
54	nigel	27	{
55			int i;
56	nigel	73	FILE *f;
57	nigel	53	const unsigned char *tables = pcre_maketables();
58	nigel	27
59	nigel	73	if (argc != 2)
60			{
61			fprintf(stderr, "dftables: one filename argument is required\n");
62			return 1;
63			}
64
65			f = fopen(argv[1], "w");
66			if (f == NULL)
67			{
68			fprintf(stderr, "dftables: failed to open %s for writing\n", argv[1]);
69			return 1;
70			}
71
72			/* There are two fprintf() calls here, because gcc in pedantic mode complains
73	nigel	65	about the very long string otherwise. */
74
75	nigel	73	fprintf(f,
76	nigel	27	"/*************************************************\n"
77			"* Perl-Compatible Regular Expressions *\n"
78			"*************************************************/\n\n"
79	nigel	35	"/* This file is automatically written by the dftables auxiliary \n"
80	nigel	27	"program. If you edit it by hand, you might like to edit the Makefile to \n"
81	nigel	65	"prevent its ever being regenerated.\n\n");
82	nigel	73	fprintf(f,
83	nigel	27	"This file is #included in the compilation of pcre.c to build the default\n"
84			"character tables which are used when no tables are passed to the compile\n"
85			"function. */\n\n"
86			"static unsigned char pcre_default_tables[] = {\n\n"
87			"/* This table is a lower casing table. */\n\n");
88
89	nigel	73	fprintf(f, " ");
90	nigel	27	for (i = 0; i < 256; i++)
91			{
92	nigel	73	if ((i & 7) == 0 && i != 0) fprintf(f, "\n ");
93			fprintf(f, "%3d", *tables++);
94			if (i != 255) fprintf(f, ",");
95	nigel	27	}
96	nigel	73	fprintf(f, ",\n\n");
97	nigel	27
98	nigel	73	fprintf(f, "/* This table is a case flipping table. */\n\n");
99	nigel	27
100	nigel	73	fprintf(f, " ");
101	nigel	27	for (i = 0; i < 256; i++)
102			{
103	nigel	73	if ((i & 7) == 0 && i != 0) fprintf(f, "\n ");
104			fprintf(f, "%3d", *tables++);
105			if (i != 255) fprintf(f, ",");
106	nigel	27	}
107	nigel	73	fprintf(f, ",\n\n");
108	nigel	27
109	nigel	73	fprintf(f,
110	nigel	43	"/* This table contains bit maps for various character classes.\n"
111			"Each map is 32 bytes long and the bits run from the least\n"
112			"significant end of each byte. The classes that have their own\n"
113			"maps are: space, xdigit, digit, upper, lower, word, graph\n"
114			"print, punct, and cntrl. Other classes are built from combinations. */\n\n");
115	nigel	27
116	nigel	73	fprintf(f, " ");
117	nigel	27	for (i = 0; i < cbit_length; i++)
118			{
119			if ((i & 7) == 0 && i != 0)
120			{
121	nigel	73	if ((i & 31) == 0) fprintf(f, "\n");
122			fprintf(f, "\n ");
123	nigel	27	}
124	nigel	73	fprintf(f, "0x%02x", *tables++);
125			if (i != cbit_length - 1) fprintf(f, ",");
126	nigel	27	}
127	nigel	73	fprintf(f, ",\n\n");
128	nigel	27
129	nigel	73	fprintf(f,
130	nigel	27	"/* This table identifies various classes of character by individual bits:\n"
131			" 0x%02x white space character\n"
132			" 0x%02x letter\n"
133			" 0x%02x decimal digit\n"
134			" 0x%02x hexadecimal digit\n"
135			" 0x%02x alphanumeric or '_'\n"
136			" 0x%02x regular expression metacharacter or binary zero\n*/\n\n",
137			ctype_space, ctype_letter, ctype_digit, ctype_xdigit, ctype_word,
138			ctype_meta);
139
140	nigel	73	fprintf(f, " ");
141	nigel	27	for (i = 0; i < 256; i++)
142			{
143			if ((i & 7) == 0 && i != 0)
144			{
145	nigel	73	fprintf(f, " /* ");
146			if (isprint(i-8)) fprintf(f, " %c -", i-8);
147			else fprintf(f, "%3d-", i-8);
148			if (isprint(i-1)) fprintf(f, " %c ", i-1);
149			else fprintf(f, "%3d", i-1);
150			fprintf(f, " */\n ");
151	nigel	27	}
152	nigel	73	fprintf(f, "0x%02x", *tables++);
153			if (i != 255) fprintf(f, ",");
154	nigel	27	}
155
156	nigel	73	fprintf(f, "};/* ");
157			if (isprint(i-8)) fprintf(f, " %c -", i-8);
158			else fprintf(f, "%3d-", i-8);
159			if (isprint(i-1)) fprintf(f, " %c ", i-1);
160			else fprintf(f, "%3d", i-1);
161			fprintf(f, " /\n\n/ End of chartables.c */\n");
162	nigel	27
163	nigel	73	fclose(f);
164	nigel	27	return 0;
165			}
166
167			/* End of dftables.c */