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/gengb2312.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/gengb2312.pl')
| -rw-r--r-- | intl/chardet/tools/gengb2312.pl | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/intl/chardet/tools/gengb2312.pl b/intl/chardet/tools/gengb2312.pl new file mode 100644 index 000000000..57d86926b --- /dev/null +++ b/intl/chardet/tools/gengb2312.pl @@ -0,0 +1,41 @@ +#!/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 strict; +require "genverifier.pm"; +use genverifier; + + +my(@gb2312_cls); +my(@gb2312_st); +my($gb2312_ver); + + +@gb2312_cls = ( + [ 0x00 , 0x00 , 1 ], + [ 0x0e , 0x0f , 0 ], + [ 0x1b , 0x1b , 0 ], + [ 0x01 , 0x7f , 1 ], + [ 0x80 , 0xa0 , 0 ], + [ 0xff , 0xff , 0 ], + [ 0xaa , 0xaf , 3 ], + [ 0xa1 , 0xfe , 2 ], +); + +package genverifier; +@gb2312_st = ( +# 0 1 2 3 + 1, 0, 3, 1, # state 0 + 1, 1, 1, 1, # Error State - 1 + 2, 2, 2, 2, # ItsMe State - 2 + 1, 1, 0, 0, # state 3 +); + + +$gb2312_ver = genverifier::GenVerifier("GB2312", "GB2312", \@gb2312_cls, 4, \@gb2312_st); +print $gb2312_ver; + + + |