michael@0: #!/usr/local/bin/perl
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 strict;
michael@0: require "genverifier.pm";
michael@0: use genverifier;
michael@0: 
michael@0: 
michael@0: my(@hz_cls);
michael@0: my(@hz_st);
michael@0: my($hz_ver);
michael@0: 
michael@0: 
michael@0: #
michael@0: #
michael@0: # > 0x80  - 1
michael@0: # ~       - 2
michael@0: # LF      - 3
michael@0: # {       - 4
michael@0: # }       - 5
michael@0: #
michael@0: @hz_cls = (
michael@0:  [ 0x01 , 0x1a , 0 ],
michael@0:  [ 0x7e , 0x7e , 2 ],
michael@0:  [ 0x0a , 0x0a , 3 ],
michael@0:  [ 0x7b , 0x7b , 4 ],
michael@0:  [ 0x7d , 0x7d , 5 ],
michael@0:  [ 0x1c , 0x7f , 0 ],
michael@0:  [ 0x0e , 0x0f , 1 ],
michael@0:  [ 0x1b , 0x1b , 1 ],
michael@0:  [ 0x00 , 0x00 , 1 ],
michael@0:  [ 0x80 , 0xff , 1 ]
michael@0: );
michael@0: 
michael@0: 
michael@0: #
michael@0: #
michael@0: package genverifier;
michael@0: @hz_st = (
michael@0: # 0  1  2  3  4  5 
michael@0:   0, 1, 3, 0, 0, 0, # Start State - 0
michael@0:   1, 1, 1, 1, 1, 1, # Error State - 1
michael@0:   2, 2, 2, 2, 2, 2, # ItsMe State - 2
michael@0:   1, 1, 0, 0, 4, 1, # state 3 - got ~
michael@0:   5, 1, 6, 1, 5, 5, # state 4 - got ~ {
michael@0:   4, 1, 4, 1, 4, 4, # state 5 - got ~ { X
michael@0:   4, 1, 4, 1, 4, 2, # state 6 - got ~ { [X X]* ~
michael@0: );
michael@0: 
michael@0: $hz_ver = genverifier::GenVerifier("HZ", "HZ-GB-2312", 
michael@0:       \@hz_cls, 6, \@hz_st);
michael@0: print $hz_ver;
michael@0: 
michael@0: 
michael@0: