mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-11-05 08:35:26 +00:00
45 lines
914 B
Perl
45 lines
914 B
Perl
#!/usr/local/bin/perl
|
|
use strict;
|
|
require "genverifier.pm";
|
|
use genverifier;
|
|
|
|
|
|
my(@ucs2le_cls);
|
|
my(@ucs2le_st);
|
|
my($ucs2le_ver);
|
|
|
|
|
|
@ucs2le_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;
|
|
@ucs2le_st = (
|
|
# 0 1 2 3 4 5 6 7
|
|
3, 3, 5, 6, 3, 8, 7, 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
|
|
1, 4, 4, 4, 4, 4, 4, 4, # state 3
|
|
3, 3, 5, 6, 3, 3, 3, 3, # state 4
|
|
4, 1, 4, 4, 4, 4, 4, 4, # state 5
|
|
4, 4, 4, 1, 1, 4, 4, 4, # state 6
|
|
1, 4, 4, 4, 4, 2, 4, 4, # state 7
|
|
1, 4, 4, 4, 4, 4, 1, 4, # state 8
|
|
);
|
|
|
|
|
|
$ucs2le_ver = genverifier::GenVerifier("UCSLE", "ISO-10646-UCS-2-LE", \@ucs2le_cls, 8, \@ucs2le_st);
|
|
print $ucs2le_ver;
|
|
|
|
|
|
|