diff options
author | Matt A. Tobin <mattatobin@localhost.localdomain> | 2018-02-02 04:16:08 -0500 |
---|---|---|
committer | Matt A. Tobin <mattatobin@localhost.localdomain> | 2018-02-02 04:16:08 -0500 |
commit | 5f8de423f190bbb79a62f804151bc24824fa32d8 (patch) | |
tree | 10027f336435511475e392454359edea8e25895d /intl/chardet/tools/gencyrillic.pl | |
parent | 49ee0794b5d912db1f95dce6eb52d781dc210db5 (diff) | |
download | UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.gz UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.lz UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.tar.xz UXP-5f8de423f190bbb79a62f804151bc24824fa32d8.zip |
Add m-esr52 at 52.6.0
Diffstat (limited to 'intl/chardet/tools/gencyrillic.pl')
-rw-r--r-- | intl/chardet/tools/gencyrillic.pl | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/intl/chardet/tools/gencyrillic.pl b/intl/chardet/tools/gencyrillic.pl new file mode 100644 index 000000000..51bd6e456 --- /dev/null +++ b/intl/chardet/tools/gencyrillic.pl @@ -0,0 +1,65 @@ +#!/usr/local/bin/perl + +# This Source Code Form is subject to the terms of the Mozilla Public +# License, v. 2.0. If a copy of the MPL was not distributed with this +# file, You can obtain one at http://mozilla.org/MPL/2.0/. + +use StatKoi '.' ; + +open(FILE, "> ../src/nsCyrillicProb.h") or die "cannot open nsCyrillicDetector.h"; + +print FILE <<EOF; +/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */ + +/* This Source Code Form is subject to the terms of the Mozilla Public + * License, v. 2.0. If a copy of the MPL was not distributed with this + * file, You can obtain one at http://mozilla.org/MPL/2.0/. */ + +#ifndef nsCyrillicDetector_h__ +#define nsCyrillicDetector_h__ +/* + DO NOT EDIT THIS FILE !!! + This file is generated by the perl script in + mozilla/intl/chardet/tools/gencyrillic.pl + + To ues that script, you need to grab StatKoi.pm file from + the "Cyrillic Software Suite" written by John Neystdt. + http://www.neystadt.org/cyrillic (You can also find it from CPAN) + */ +EOF +$table = \%Lingua::DetectCharset::StatKoi::StatsTableKoi; +print FILE "const uint16_t gCyrillicProb[33][33] = {"; + print FILE "{ \n"; + print FILE "0,\n"; + for($j = 0xc0; $j < 0xe0; $j++) + { + print FILE "0, \t"; + if( 7 == ( $j % 8) ) + { + print FILE "\n"; + } + } + print FILE "\n}, \n"; +for($i = 0xc0; $i < 0xe0; $i++) +{ + print FILE "{ \n"; + print FILE "0,\n"; + for($j = 0xc0; $j < 0xe0; $j++) + { + $key = chr($i) . chr($j); + if(exists($table->{$key})) + { + $v = $table->{$key}; + } else { + $v = 0; + } + print FILE $v . ", \t"; + if( 7 == ( $j % 8) ) + { + print FILE "\n"; + } + } + print FILE "\n}, \n"; +} +print FILE "};\n"; +print FILE "#endif\n"; |