/* package whatever; // don't place package name! */
use encoding 'utf8';
use integer;
my $filename = shift || 'liu-uni.tab';
open F, '<:raw', $filename or die $!;
{
use bytes;
local $/;
@b = map ord, split //,<F>;
}
close F;
$i1 = getint16(0);
$words = getint16(4);
$i2 = $i1 + getint16(2); # or + ($words*2+7)/8
$i3 = $i2 + getint16(6); # or + ($words*1+7)/8
$i4 = $i3 + getint16(6); # or + ($words*1+7)/8
#printf "words %d 0x%x\n", $words, $words;
#printf "i1=0x%x, i2=0x%x, i3=0x%x, i4=0x%x\n", $i1, $i2, $i3, $i4;
my @rootkey = (split //," abcdefghijklmnopqrstuvwxyz,.'[]");
for my$i(0 .. 1023) {
my @key; $key[0] = $rootkey[$i/32];
$key[1] = $rootkey[$i%32];
next if $key[0] eq ' ';
for $ci(getint16($i*2) .. getint16($i*2+2)-1) {
my $bit24 = getbits($i4, 24, $ci);
my $hi = getbits($i1, 2, $ci);
my $lo = $bit24 & 0x3fff;
#printf "%x %04x\t", $hi, $lo;
$key[2] = $rootkey[$bit24>>19];
$key[3] = $rootkey[$bit24>>14 & 0x1f];
my $flag_unknown = getbits($i2, 1, $ci);
my $flag_sp = getbits($i3, 1, $ci);
print join '', @key;
$char = chr($hi<<14 | $lo);
printf "\t%s", $char;
printf "\t%s", $flag_sp?' ':'*';
printf "%s", $flag_unknown?' ':'+';
print "\n";
}
}
sub getint16 {
my($addr)[email protected]_;
return $b[$addr] | $b[$addr+1]<<8;
}
sub getbits {
my($start, $nbit, $i) = @_;
if($nbit==1 || $nbit==2 || $nbit==4) {
my($byte)=$b[$start+$i*$nbit /8];
my $ovalue = $byte>>(8-$nbit - $i*$nbit %8);
return $ovalue & ((1<<$nbit)-1);
} elsif($nbit>0 && $nbit%8==0) {
my $nbyte = $nbit / 8;
my $value = 0;
my $a = $start + $i * $nbyte;
while($nbyte--) {
$value = $value<<8 | $b[$a++];
}
return $value;
} else {
die;
}
}
LyogcGFja2FnZSB3aGF0ZXZlcjsgLy8gZG9uJ3QgcGxhY2UgcGFja2FnZSBuYW1lISAqLwoKdXNlIGVuY29kaW5nICd1dGY4JzsKdXNlIGludGVnZXI7CgpteSAkZmlsZW5hbWUgPSBzaGlmdCB8fCAnbGl1LXVuaS50YWInOwpvcGVuIEYsICc8OnJhdycsICRmaWxlbmFtZSBvciBkaWUgJCE7CnsKICB1c2UgYnl0ZXM7CiAgbG9jYWwgJC87CiAgQGIgPSBtYXAgb3JkLCBzcGxpdCAvLyw8Rj47Cn0KY2xvc2UgRjsKCiRpMSA9IGdldGludDE2KDApOwokd29yZHMgPSBnZXRpbnQxNig0KTsKJGkyID0gJGkxICsgZ2V0aW50MTYoMik7ICMgb3IgKyAoJHdvcmRzKjIrNykvOAokaTMgPSAkaTIgKyBnZXRpbnQxNig2KTsgIyBvciArICgkd29yZHMqMSs3KS84CiRpNCA9ICRpMyArIGdldGludDE2KDYpOyAjIG9yICsgKCR3b3JkcyoxKzcpLzgKCiNwcmludGYgIndvcmRzICVkIDB4JXhcbiIsICR3b3JkcywgJHdvcmRzOwojcHJpbnRmICJpMT0weCV4LCBpMj0weCV4LCBpMz0weCV4LCBpND0weCV4XG4iLCAkaTEsICRpMiwgJGkzLCAkaTQ7CgpteSBAcm9vdGtleSA9IChzcGxpdCAvLywiIGFiY2RlZmdoaWprbG1ub3BxcnN0dXZ3eHl6LC4nW10iKTsKZm9yIG15JGkoMCAuLiAxMDIzKSB7CiAgbXkgQGtleTsgJGtleVswXSA9ICRyb290a2V5WyRpLzMyXTsKICAka2V5WzFdID0gJHJvb3RrZXlbJGklMzJdOwogIG5leHQgaWYgJGtleVswXSBlcSAnICc7CgogIGZvciAkY2koZ2V0aW50MTYoJGkqMikgLi4gZ2V0aW50MTYoJGkqMisyKS0xKSB7CiAgICBteSAkYml0MjQgPSBnZXRiaXRzKCRpNCwgMjQsICRjaSk7CiAgICBteSAkaGkgPSBnZXRiaXRzKCRpMSwgMiwgJGNpKTsKICAgIG15ICRsbyA9ICRiaXQyNCAmIDB4M2ZmZjsKICAgICNwcmludGYgIiV4ICUwNHhcdCIsICRoaSwgJGxvOwoKICAgICRrZXlbMl0gPSAkcm9vdGtleVskYml0MjQ+PjE5XTsKICAgICRrZXlbM10gPSAkcm9vdGtleVskYml0MjQ+PjE0ICYgMHgxZl07CgogICAgbXkgJGZsYWdfdW5rbm93biA9IGdldGJpdHMoJGkyLCAxLCAkY2kpOwogICAgbXkgJGZsYWdfc3AgPSBnZXRiaXRzKCRpMywgMSwgJGNpKTsKCiAgICBwcmludCBqb2luICcnLCBAa2V5OwogICAgJGNoYXIgPSBjaHIoJGhpPDwxNCB8ICRsbyk7CiAgICBwcmludGYgIlx0JXMiLCAkY2hhcjsKICAgIHByaW50ZiAiXHQlcyIsICRmbGFnX3NwPycgJzonKic7CiAgICBwcmludGYgIiVzIiwgJGZsYWdfdW5rbm93bj8nICc6JysnOwogICAgcHJpbnQgIlxuIjsKICB9Cn0KCnN1YiBnZXRpbnQxNiB7CiAgbXkoJGFkZHIpW2VtYWlsIHByb3RlY3RlZF1fOwogIHJldHVybiAkYlskYWRkcl0gfCAkYlskYWRkcisxXTw8ODsKfQoKc3ViIGdldGJpdHMgewogIG15KCRzdGFydCwgJG5iaXQsICRpKSA9IEBfOwogIGlmKCRuYml0PT0xIHx8ICRuYml0PT0yIHx8ICRuYml0PT00KSB7CiAgICBteSgkYnl0ZSk9JGJbJHN0YXJ0KyRpKiRuYml0IC84XTsKICAgIG15ICRvdmFsdWUgPSAkYnl0ZT4+KDgtJG5iaXQgLSAkaSokbmJpdCAlOCk7CiAgICByZXR1cm4gJG92YWx1ZSAmICgoMTw8JG5iaXQpLTEpOwogIH0gZWxzaWYoJG5iaXQ+MCAmJiAkbmJpdCU4PT0wKSB7CiAgICBteSAkbmJ5dGUgPSAkbmJpdCAvIDg7CiAgICBteSAkdmFsdWUgPSAwOwogICAgbXkgJGEgPSAkc3RhcnQgKyAkaSAqICRuYnl0ZTsKICAgIHdoaWxlKCRuYnl0ZS0tKSB7CiAgICAgICAgJHZhbHVlID0gJHZhbHVlPDw4IHwgJGJbJGErK107CiAgICB9CiAgICByZXR1cm4gJHZhbHVlOwogIH0gZWxzZSB7CiAgICBkaWU7CiAgfQp9
Main.java:3: error: class, interface, or enum expected
use encoding 'utf8';
^
Main.java:3: error: unclosed character literal
use encoding 'utf8';
^
Main.java:3: error: unclosed character literal
use encoding 'utf8';
^
Main.java:6: error: class, interface, or enum expected
my $filename = shift || 'liu-uni.tab';
^
Main.java:6: error: unclosed character literal
my $filename = shift || 'liu-uni.tab';
^
Main.java:6: error: unclosed character literal
my $filename = shift || 'liu-uni.tab';
^
Main.java:7: error: unclosed character literal
open F, '<:raw', $filename or die $!;
^
Main.java:7: error: unclosed character literal
open F, '<:raw', $filename or die $!;
^
Main.java:8: error: class, interface, or enum expected
{
^
Main.java:10: error: class, interface, or enum expected
local $/;
^
Main.java:11: error: class, interface, or enum expected
@b = map ord, split //,<F>;
^
Main.java:15: error: class, interface, or enum expected
$i1 = getint16(0);
^
Main.java:16: error: class, interface, or enum expected
$words = getint16(4);
^
Main.java:17: error: class, interface, or enum expected
$i2 = $i1 + getint16(2); # or + ($words*2+7)/8
^
Main.java:17: error: illegal character: '#'
$i2 = $i1 + getint16(2); # or + ($words*2+7)/8
^
Main.java:17: error: class, interface, or enum expected
$i2 = $i1 + getint16(2); # or + ($words*2+7)/8
^
Main.java:18: error: illegal character: '#'
$i3 = $i2 + getint16(6); # or + ($words*1+7)/8
^
Main.java:18: error: class, interface, or enum expected
$i3 = $i2 + getint16(6); # or + ($words*1+7)/8
^
Main.java:19: error: illegal character: '#'
$i4 = $i3 + getint16(6); # or + ($words*1+7)/8
^
Main.java:19: error: class, interface, or enum expected
$i4 = $i3 + getint16(6); # or + ($words*1+7)/8
^
Main.java:21: error: illegal character: '#'
#printf "words %d 0x%x\n", $words, $words;
^
Main.java:22: error: illegal character: '#'
#printf "i1=0x%x, i2=0x%x, i3=0x%x, i4=0x%x\n", $i1, $i2, $i3, $i4;
^
Main.java:22: error: class, interface, or enum expected
#printf "i1=0x%x, i2=0x%x, i3=0x%x, i4=0x%x\n", $i1, $i2, $i3, $i4;
^
Main.java:24: error: class, interface, or enum expected
my @rootkey = (split //," abcdefghijklmnopqrstuvwxyz,.'[]");
^
Main.java:24: error: class, interface, or enum expected
my @rootkey = (split //," abcdefghijklmnopqrstuvwxyz,.'[]");
^
Main.java:25: error: illegal '.'
for my$i(0 .. 1023) {
^
Main.java:26: error: class, interface, or enum expected
my @key; $key[0] = $rootkey[$i/32];
^
Main.java:26: error: class, interface, or enum expected
my @key; $key[0] = $rootkey[$i/32];
^
Main.java:27: error: class, interface, or enum expected
$key[1] = $rootkey[$i%32];
^
Main.java:28: error: class, interface, or enum expected
next if $key[0] eq ' ';
^
Main.java:30: error: class, interface, or enum expected
for $ci(getint16($i*2) .. getint16($i*2+2)-1) {
^
Main.java:30: error: illegal '.'
for $ci(getint16($i*2) .. getint16($i*2+2)-1) {
^
Main.java:32: error: class, interface, or enum expected
my $hi = getbits($i1, 2, $ci);
^
Main.java:33: error: class, interface, or enum expected
my $lo = $bit24 & 0x3fff;
^
Main.java:34: error: illegal character: '#'
#printf "%x %04x\t", $hi, $lo;
^
Main.java:34: error: class, interface, or enum expected
#printf "%x %04x\t", $hi, $lo;
^
Main.java:36: error: class, interface, or enum expected
$key[2] = $rootkey[$bit24>>19];
^
Main.java:37: error: class, interface, or enum expected
$key[3] = $rootkey[$bit24>>14 & 0x1f];
^
Main.java:39: error: class, interface, or enum expected
my $flag_unknown = getbits($i2, 1, $ci);
^
Main.java:40: error: class, interface, or enum expected
my $flag_sp = getbits($i3, 1, $ci);
^
Main.java:42: error: class, interface, or enum expected
print join '', @key;
^
Main.java:42: error: empty character literal
print join '', @key;
^
Main.java:42: error: unclosed character literal
print join '', @key;
^
Main.java:42: error: class, interface, or enum expected
print join '', @key;
^
Main.java:43: error: class, interface, or enum expected
$char = chr($hi<<14 | $lo);
^
Main.java:44: error: class, interface, or enum expected
printf "\t%s", $char;
^
Main.java:45: error: class, interface, or enum expected
printf "\t%s", $flag_sp?' ':'*';
^
Main.java:46: error: class, interface, or enum expected
printf "%s", $flag_unknown?' ':'+';
^
Main.java:47: error: class, interface, or enum expected
print "\n";
^
Main.java:48: error: class, interface, or enum expected
}
^
Main.java:53: error: class, interface, or enum expected
return $b[$addr] | $b[$addr+1]<<8;
^
Main.java:54: error: class, interface, or enum expected
}
^
Main.java:57: warning: '_' used as an identifier
my($start, $nbit, $i) = @_;
^
(use of '_' as an identifier might not be supported in releases after Java SE 8)
Main.java:57: error: class, interface, or enum expected
my($start, $nbit, $i) = @_;
^
Main.java:58: error: class, interface, or enum expected
if($nbit==1 || $nbit==2 || $nbit==4) {
^
Main.java:60: error: class, interface, or enum expected
my $ovalue = $byte>>(8-$nbit - $i*$nbit %8);
^
Main.java:61: error: class, interface, or enum expected
return $ovalue & ((1<<$nbit)-1);
^
Main.java:62: error: class, interface, or enum expected
} elsif($nbit>0 && $nbit%8==0) {
^
Main.java:64: error: class, interface, or enum expected
my $value = 0;
^
Main.java:65: error: class, interface, or enum expected
my $a = $start + $i * $nbyte;
^
Main.java:66: error: class, interface, or enum expected
while($nbyte--) {
^
Main.java:68: error: class, interface, or enum expected
}
^
Main.java:70: error: class, interface, or enum expected
} else {
^
Main.java:72: error: class, interface, or enum expected
}
^
63 errors
1 warning