michael@0: #!/usr/local/bin/perl
michael@0: 
michael@0: # This Source Code Form is subject to the terms of the Mozilla Public
michael@0: # License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0: # file, You can obtain one at http://mozilla.org/MPL/2.0/.
michael@0: 
michael@0: use StatKoi '.' ;
michael@0: 
michael@0: open(FILE, "> ../src/nsCyrillicProb.h") or die "cannot open nsCyrillicDetector.h";
michael@0: 
michael@0: print FILE <<EOF;
michael@0: /* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
michael@0: 
michael@0: /* This Source Code Form is subject to the terms of the Mozilla Public
michael@0:  * License, v. 2.0. If a copy of the MPL was not distributed with this
michael@0:  * file, You can obtain one at http://mozilla.org/MPL/2.0/. */
michael@0: 
michael@0: #ifndef nsCyrillicDetector_h__
michael@0: #define nsCyrillicDetector_h__
michael@0: /*
michael@0:     DO NOT EDIT THIS FILE !!!
michael@0:     This file is generated by the perl script in 
michael@0:     mozilla/intl/chardet/tools/gencyrillic.pl
michael@0: 
michael@0:     To ues that script, you need to grab StatKoi.pm file from
michael@0:     the "Cyrillic Software Suite" written by John Neystdt.
michael@0:     http://www.neystadt.org/cyrillic (You can also find it from CPAN)
michael@0:  */
michael@0: EOF
michael@0: $table = \%Lingua::DetectCharset::StatKoi::StatsTableKoi;
michael@0: print FILE "const uint16_t gCyrillicProb[33][33] = {";
michael@0:   print FILE "{ \n";
michael@0:   print FILE "0,\n";
michael@0:   for($j = 0xc0; $j < 0xe0; $j++)
michael@0:   {
michael@0:      print FILE "0, \t";
michael@0:      if( 7 == ( $j % 8) )
michael@0:      {
michael@0:            print FILE "\n";
michael@0:      }
michael@0:   }
michael@0:   print FILE "\n}, \n";
michael@0: for($i = 0xc0; $i < 0xe0; $i++)
michael@0: {
michael@0:   print FILE "{ \n";
michael@0:   print FILE "0,\n";
michael@0:   for($j = 0xc0; $j < 0xe0; $j++)
michael@0:   {
michael@0:      $key = chr($i) . chr($j);
michael@0:      if(exists($table->{$key}))
michael@0:      {
michael@0:           $v = $table->{$key};
michael@0:      } else {
michael@0:           $v = 0;
michael@0:      }
michael@0:      print FILE $v . ", \t";
michael@0:      if( 7 == ( $j % 8) )
michael@0:      {
michael@0:            print FILE "\n";
michael@0:      }
michael@0:   }
michael@0:   print FILE "\n}, \n";
michael@0: }
michael@0: print FILE "};\n";
michael@0: print FILE "#endif\n";