зеркало из https://github.com/mozilla/gecko-dev.git
45 строки
914 B
Perl
45 строки
914 B
Perl
#!/usr/local/bin/perl
|
|
use strict;
|
|
require "genverifier.pm";
|
|
use genverifier;
|
|
|
|
|
|
my(@ucs2be_cls);
|
|
my(@ucs2be_st);
|
|
my($ucs2be_ver);
|
|
|
|
|
|
@ucs2be_cls = (
|
|
[ 0x00 , 0x00 , 1 ],
|
|
[ 0x0a , 0x0a , 4 ],
|
|
[ 0x0d , 0x0d , 3 ],
|
|
[ 0x28 , 0x2f , 0 ],
|
|
[ 0x34 , 0x39 , 0 ],
|
|
[ 0x41 , 0x4d , 0 ],
|
|
[ 0x80 , 0x9f , 2 ],
|
|
[ 0xfe , 0xfe , 5 ],
|
|
[ 0xff , 0xff , 6 ],
|
|
[ 0x00 , 0xfd , 7 ],
|
|
);
|
|
|
|
package genverifier;
|
|
@ucs2be_st = (
|
|
# 0 1 2 3 4 5 6 7
|
|
1, 5, 3, 6, 6, 7, 8, 3, # state 0
|
|
1, 1, 1, 1, 1, 1, 1, 1, # Error State - 1
|
|
2, 2, 2, 2, 2, 2, 2, 2, # ItsMe State - 2
|
|
4, 4, 4, 4, 4, 4, 4, 4, # state 3
|
|
1, 5, 3, 6, 6, 3, 3, 3, # state 4
|
|
4, 4, 1, 4, 4, 4, 4, 4, # state 5
|
|
4, 4, 4, 1, 4, 4, 4, 4, # state 6
|
|
4, 4, 4, 4, 4, 4, 2, 4, # state 7
|
|
4, 4, 4, 4, 4, 1, 4, 4, # state 8
|
|
);
|
|
|
|
|
|
$ucs2be_ver = genverifier::GenVerifier("UCSBE", "ISO-10646-UCS-2-BE", \@ucs2be_cls, 8, \@ucs2be_st);
|
|
print $ucs2be_ver;
|
|
|
|
|
|
|