--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/JavaScriptCore/pcre/dftables Fri Sep 17 09:02:29 2010 +0300
@@ -0,0 +1,273 @@
+#!/usr/bin/perl -w
+#
+# This is JavaScriptCore's variant of the PCRE library. While this library
+# started out as a copy of PCRE, many of the features of PCRE have been
+# removed. This library now supports only the regular expression features
+# required by the JavaScript language specification, and has only the functions
+# needed by JavaScriptCore and the rest of WebKit.
+#
+# Originally written by Philip Hazel
+# Copyright (c) 1997-2006 University of Cambridge
+# Copyright (C) 2002, 2004, 2006, 2007, 2008, 2009 Apple Inc. All rights reserved.
+#
+# -----------------------------------------------------------------------------
+# 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. The tables are built according to the default C
+# locale.
+
+use strict;
+
+use File::Basename;
+use File::Spec;
+use File::Temp qw(tempfile);
+use Getopt::Long;
+
+sub readHeaderValues();
+
+my %pcre_internal;
+
+if (scalar(@ARGV) < 1) {
+ print STDERR "Usage: ", basename($0), " [--preprocessor=program] output-file\n";
+ exit 1;
+}
+
+my $outputFile;
+my $preprocessor;
+GetOptions('preprocessor=s' => \$preprocessor);
+if (not $preprocessor) {
+ $preprocessor = "cpp";
+}
+
+$outputFile = $ARGV[0];
+die('Must specify output file.') unless defined($outputFile);
+
+readHeaderValues();
+
+open(OUT, ">", $outputFile) or die "$!";
+binmode(OUT);
+
+printf(OUT
+ "/*************************************************\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");
+printf(OUT
+ "This file contains the default tables for characters with codes less than\n" .
+ "128 (ASCII characters). These tables are used when no external tables are\n" .
+ "passed to PCRE. */\n\n" .
+ "const unsigned char jsc_pcre_default_tables[%d] = {\n\n" .
+ "/* This table is a lower casing table. */\n\n", $pcre_internal{tables_length});
+
+if ($pcre_internal{lcc_offset} != 0) {
+ die "lcc_offset != 0";
+}
+
+printf(OUT " ");
+for (my $i = 0; $i < 128; $i++) {
+ if (($i & 7) == 0 && $i != 0) {
+ printf(OUT "\n ");
+ }
+ printf(OUT "0x%02X", ord(lc(chr($i))));
+ if ($i != 127) {
+ printf(OUT ", ");
+ }
+}
+printf(OUT ",\n\n");
+
+printf(OUT "/* This table is a case flipping table. */\n\n");
+
+if ($pcre_internal{fcc_offset} != 128) {
+ die "fcc_offset != 128";
+}
+
+printf(OUT " ");
+for (my $i = 0; $i < 128; $i++) {
+ if (($i & 7) == 0 && $i != 0) {
+ printf(OUT "\n ");
+ }
+ my $c = chr($i);
+ printf(OUT "0x%02X", $c =~ /[[:lower:]]/ ? ord(uc($c)) : ord(lc($c)));
+ if ($i != 127) {
+ printf(OUT ", ");
+ }
+}
+printf(OUT ",\n\n");
+
+printf(OUT
+ "/* 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 are: space, digit, word. */\n\n");
+
+if ($pcre_internal{cbits_offset} != $pcre_internal{fcc_offset} + 128) {
+ die "cbits_offset != fcc_offset + 128";
+}
+
+my @cbit_table = (0) x $pcre_internal{cbit_length};
+for (my $i = ord('0'); $i <= ord('9'); $i++) {
+ $cbit_table[$pcre_internal{cbit_digit} + $i / 8] |= 1 << ($i & 7);
+}
+$cbit_table[$pcre_internal{cbit_word} + ord('_') / 8] |= 1 << (ord('_') & 7);
+for (my $i = 0; $i < 128; $i++) {
+ my $c = chr($i);
+ if ($c =~ /[[:alnum:]]/) {
+ $cbit_table[$pcre_internal{cbit_word} + $i / 8] |= 1 << ($i & 7);
+ }
+ if ($c =~ /[[:space:]]/) {
+ $cbit_table[$pcre_internal{cbit_space} + $i / 8] |= 1 << ($i & 7);
+ }
+}
+
+printf(OUT " ");
+for (my $i = 0; $i < $pcre_internal{cbit_length}; $i++) {
+ if (($i & 7) == 0 && $i != 0) {
+ if (($i & 31) == 0) {
+ printf(OUT "\n");
+ }
+ printf(OUT "\n ");
+ }
+ printf(OUT "0x%02X", $cbit_table[$i]);
+ if ($i != $pcre_internal{cbit_length} - 1) {
+ printf(OUT ", ");
+ }
+}
+printf(OUT ",\n\n");
+
+printf(OUT
+ "/* This table identifies various classes of character by individual bits:\n" .
+ " 0x%02x white space character\n" .
+ " 0x%02x hexadecimal digit\n" .
+ " 0x%02x alphanumeric or '_'\n*/\n\n",
+ $pcre_internal{ctype_space}, $pcre_internal{ctype_xdigit}, $pcre_internal{ctype_word});
+
+if ($pcre_internal{ctypes_offset} != $pcre_internal{cbits_offset} + $pcre_internal{cbit_length}) {
+ die "ctypes_offset != cbits_offset + cbit_length";
+}
+
+printf(OUT " ");
+for (my $i = 0; $i < 128; $i++) {
+ my $x = 0;
+ my $c = chr($i);
+ if ($c =~ /[[:space:]]/) {
+ $x += $pcre_internal{ctype_space};
+ }
+ if ($c =~ /[[:xdigit:]]/) {
+ $x += $pcre_internal{ctype_xdigit};
+ }
+ if ($c =~ /[[:alnum:]_]/) {
+ $x += $pcre_internal{ctype_word};
+ }
+ printf(OUT "0x%02X", $x);
+ if ($i != 127) {
+ printf(OUT ", ");
+ } else {
+ printf(OUT "};");
+ }
+ if (($i & 7) == 7) {
+ printf(OUT " /* ");
+ my $d = chr($i - 7);
+ if ($d =~ /[[:print:]]/) {
+ printf(OUT " %c -", $i - 7);
+ } else {
+ printf(OUT "%3d-", $i - 7);
+ }
+ if ($c =~ m/[[:print:]]/) {
+ printf(OUT " %c ", $i);
+ } else {
+ printf(OUT "%3d", $i);
+ }
+ printf(OUT " */\n");
+ if ($i != 127) {
+ printf(OUT " ");
+ }
+ }
+}
+
+if ($pcre_internal{tables_length} != $pcre_internal{ctypes_offset} + 128) {
+ die "tables_length != ctypes_offset + 128";
+}
+
+printf(OUT "\n\n/* End of chartables.c */\n");
+
+close(OUT);
+
+exit 0;
+
+sub readHeaderValues()
+{
+ my @variables = qw(
+ cbit_digit
+ cbit_length
+ cbit_space
+ cbit_word
+ cbits_offset
+ ctype_space
+ ctype_word
+ ctype_xdigit
+ ctypes_offset
+ fcc_offset
+ lcc_offset
+ tables_length
+ );
+
+ local $/ = undef;
+
+ my $headerPath = File::Spec->catfile(dirname($0), "pcre_internal.h");
+
+ my ($fh, $tempFile) = tempfile(
+ basename($0) . "-XXXXXXXX",
+ DIR => File::Spec->tmpdir(),
+ SUFFIX => ".in",
+ UNLINK => 0,
+ );
+
+ print $fh "#define DFTABLES\n\n";
+
+ open(HEADER, "<", $headerPath) or die "$!";
+ print $fh <HEADER>;
+ close(HEADER);
+
+ print $fh "\n\n";
+
+ for my $v (@variables) {
+ print $fh "\$pcre_internal{\"$v\"} = $v;\n";
+ }
+
+ close($fh);
+
+ open(CPP, "$preprocessor \"$tempFile\" |") or die "$!";
+ my $content = <CPP>;
+ close(CPP);
+
+ eval $content;
+ die "$@" if $@;
+ unlink $tempFile;
+}