fork download

copy

#!/usr/bin/perl
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;
  }
}

Main.java:1: error: illegal character: '#'
#!/usr/bin/perl
^
Main.java:1: error: class, interface, or enum expected
#!/usr/bin/perl
  ^
Main.java:2: error: unclosed character literal
use encoding 'utf8';
             ^
Main.java:2: error: unclosed character literal
use encoding 'utf8';
                  ^
Main.java:5: error: class, interface, or enum expected
my $filename = shift || 'liu-uni.tab';
^
Main.java:5: error: unclosed character literal
my $filename = shift || 'liu-uni.tab';
                        ^
Main.java:5: error: unclosed character literal
my $filename = shift || 'liu-uni.tab';
                                    ^
Main.java:6: error: unclosed character literal
open F, '<:raw', $filename or die $!;
        ^
Main.java:6: error: unclosed character literal
open F, '<:raw', $filename or die $!;
              ^
Main.java:7: error: class, interface, or enum expected
{
^
Main.java:9: error: class, interface, or enum expected
  local $/;
  ^
Main.java:10: error: class, interface, or enum expected
  @b = map ord, split //,<F>;
     ^
Main.java:14: error: class, interface, or enum expected
$i1 = getint16(0);
^
Main.java:15: error: class, interface, or enum expected
$words = getint16(4);
^
Main.java:16: error: class, interface, or enum expected
$i2 = $i1 + getint16(2); # or + ($words*2+7)/8
^
Main.java:16: error: illegal character: '#'
$i2 = $i1 + getint16(2); # or + ($words*2+7)/8
                         ^
Main.java:16: error: class, interface, or enum expected
$i2 = $i1 + getint16(2); # or + ($words*2+7)/8
                              ^
Main.java:17: error: illegal character: '#'
$i3 = $i2 + getint16(6); # or + ($words*1+7)/8
                         ^
Main.java:17: error: class, interface, or enum expected
$i3 = $i2 + getint16(6); # or + ($words*1+7)/8
                              ^
Main.java:18: error: illegal character: '#'
$i4 = $i3 + getint16(6); # or + ($words*1+7)/8
                         ^
Main.java:18: error: class, interface, or enum expected
$i4 = $i3 + getint16(6); # or + ($words*1+7)/8
                              ^
Main.java:20: error: illegal character: '#'
#printf "words %d 0x%x\n", $words, $words;
^
Main.java:21: error: illegal character: '#'
#printf "i1=0x%x, i2=0x%x, i3=0x%x, i4=0x%x\n", $i1, $i2, $i3, $i4;
^
Main.java:21: 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:23: error: class, interface, or enum expected
my @rootkey = (split //," abcdefghijklmnopqrstuvwxyz,.'[]");
^
Main.java:23: error: class, interface, or enum expected
my @rootkey = (split //," abcdefghijklmnopqrstuvwxyz,.'[]");
            ^
Main.java:24: error: illegal '.'
for my$i(0 .. 1023) {
            ^
Main.java:25: error: class, interface, or enum expected
  my @key; $key[0] = $rootkey[$i/32];
         ^
Main.java:25: error: class, interface, or enum expected
  my @key; $key[0] = $rootkey[$i/32];
           ^
Main.java:26: error: class, interface, or enum expected
  $key[1] = $rootkey[$i%32];
  ^
Main.java:27: error: class, interface, or enum expected
  next if $key[0] eq ' ';
  ^
Main.java:29: error: class, interface, or enum expected
  for $ci(getint16($i*2) .. getint16($i*2+2)-1) {
  ^
Main.java:29: error: illegal '.'
  for $ci(getint16($i*2) .. getint16($i*2+2)-1) {
                          ^
Main.java:31: error: class, interface, or enum expected
    my $hi = getbits($i1, 2, $ci);
    ^
Main.java:32: error: class, interface, or enum expected
    my $lo = $bit24 & 0x3fff;
    ^
Main.java:33: error: illegal character: '#'
    #printf "%x %04x\t", $hi, $lo;
    ^
Main.java:33: error: class, interface, or enum expected
    #printf "%x %04x\t", $hi, $lo;
            ^
Main.java:35: error: class, interface, or enum expected
    $key[2] = $rootkey[$bit24>>19];
    ^
Main.java:36: error: class, interface, or enum expected
    $key[3] = $rootkey[$bit24>>14 & 0x1f];
    ^
Main.java:38: error: class, interface, or enum expected
    my $flag_unknown = getbits($i2, 1, $ci);
    ^
Main.java:39: error: class, interface, or enum expected
    my $flag_sp = getbits($i3, 1, $ci);
    ^
Main.java:41: error: class, interface, or enum expected
    print join '', @key;
    ^
Main.java:41: error: empty character literal
    print join '', @key;
               ^
Main.java:41: error: unclosed character literal
    print join '', @key;
                ^
Main.java:41: error: class, interface, or enum expected
    print join '', @key;
                       ^
Main.java:42: error: class, interface, or enum expected
    $char = chr($hi<<14 | $lo);
    ^
Main.java:43: error: class, interface, or enum expected
    printf "\t%s", $char;
    ^
Main.java:44: error: class, interface, or enum expected
    printf "\t%s", $flag_sp?' ':'*';
    ^
Main.java:45: error: class, interface, or enum expected
    printf "%s", $flag_unknown?' ':'+';
    ^
Main.java:46: error: class, interface, or enum expected
    print "\n";
    ^
Main.java:47: error: class, interface, or enum expected
  }
  ^
Main.java:52: error: class, interface, or enum expected
  return $b[$addr] | $b[$addr+1]<<8;
  ^
Main.java:53: error: class, interface, or enum expected
}
^
Main.java:56: 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:56: error: class, interface, or enum expected
  my($start, $nbit, $i) = @_;
                            ^
Main.java:57: error: class, interface, or enum expected
  if($nbit==1 || $nbit==2 || $nbit==4) {
  ^
Main.java:59: error: class, interface, or enum expected
    my $ovalue = $byte>>(8-$nbit - $i*$nbit %8);
    ^
Main.java:60: error: class, interface, or enum expected
    return $ovalue & ((1<<$nbit)-1);
    ^
Main.java:61: error: class, interface, or enum expected
  } elsif($nbit>0 && $nbit%8==0) {
  ^
Main.java:63: error: class, interface, or enum expected
    my $value = 0;
    ^
Main.java:64: error: class, interface, or enum expected
    my $a = $start + $i * $nbyte;
    ^
Main.java:65: error: class, interface, or enum expected
    while($nbyte--) {
    ^
Main.java:67: error: class, interface, or enum expected
    }
    ^
Main.java:69: error: class, interface, or enum expected
  } else {
  ^
Main.java:71: error: class, interface, or enum expected
  }
  ^
64 errors
1 warning

Standard output is empty