unidecode/perl2python.pl at master · NorthIsUp/unidecode · GitHub

Repository navigation

# usage:

# perl perl2python.pl --input=Text-Unidecode-1.00_01/lib/Text/Unidecode --output unidecode

use Getopt::Long;

my $input = ".";

my $output = ".";

$result = GetOptions("input=s" => \$input,

"output=s" => \$output);

sub python_escape {

my $x = shift;

return '' unless defined($x);

$x =~ s/\\/\\\\/gs;

$x =~ s/'/\\'/gs;

$x =~ s/([\x00-\x1f])/sprintf("\\x%02x", ord($1))/ges;

return $x;

}

# print "$input\n";

push(@INC, $input);

mkdir $output;

my $n;

for($n = 0; $n < 256; $n++) {

eval( sprintf("require x%02x;\n", $n) );

next unless( $#{$Text::Unidecode::Char[$n]} >= 0 );

# print "$n\n";

open(PYTHON, sprintf(">%s/x%03x.py", $output, $n));

print PYTHON "data = (\n";

my $m = 0;

for my $t (@{$Text::Unidecode::Char[$n]}) {

print PYTHON "'", &python_escape($t), "', # ";

printf PYTHON "0x%02x\n", $m;

$m++;

}

print PYTHON ")\n";

close(PYTHON)

}