Spaces:
Running
on
A10G
Running
on
A10G
#!/usr/bin/perl -w | |
# uroman Nov. 12, 2015 - Apr. 23, 2021 | |
$version = "v1.2.8"; | |
# Author: Ulf Hermjakob | |
# Usage: uroman.pl {-l [ara|bel|bul|deu|ell|eng|fas|grc|heb|kaz|kir|lav|lit|mkd|mkd2|oss|pnt|rus|srp|srp2|tur|uig|ukr|yid]} {--chart|--offset-mapping} {--no-cache} {--workset} < STDIN | |
# Example: cat workset.txt | uroman.pl --offset-mapping --workset | |
$|=1; | |
use FindBin; | |
use Cwd "abs_path"; | |
use File::Basename qw(dirname); | |
use File::Spec; | |
my $bin_dir = abs_path(dirname($0)); | |
my $root_dir = File::Spec->catfile($bin_dir, File::Spec->updir()); | |
my $data_dir = File::Spec->catfile($root_dir, "data"); | |
my $lib_dir = File::Spec->catfile($root_dir, "lib"); | |
use lib "$FindBin::Bin/../lib"; | |
use NLP::Chinese; | |
use NLP::Romanizer; | |
use NLP::UTF8; | |
use NLP::utilities; | |
use JSON; | |
$chinesePM = NLP::Chinese; | |
$romanizer = NLP::Romanizer; | |
$util = NLP::utilities; | |
%ht = (); | |
%pinyin_ht = (); | |
$lang_code = ""; | |
$return_chart_p = 0; | |
$return_offset_mappings_p = 0; | |
$workset_p = 0; | |
$cache_rom_tokens_p = 1; | |
$script_data_filename = File::Spec->catfile($data_dir, "Scripts.txt"); | |
$unicode_data_overwrite_filename = File::Spec->catfile($data_dir, "UnicodeDataOverwrite.txt"); | |
$unicode_data_filename = File::Spec->catfile($data_dir, "UnicodeData.txt"); | |
$romanization_table_filename = File::Spec->catfile($data_dir, "romanization-table.txt"); | |
$chinese_tonal_pinyin_filename = File::Spec->catfile($data_dir, "Chinese_to_Pinyin.txt"); | |
while (@ARGV) { | |
$arg = shift @ARGV; | |
if ($arg =~ /^-+(l|lc|lang-code)$/) { | |
$lang_code = lc (shift @ARGV || "") | |
} elsif ($arg =~ /^-+chart$/i) { | |
$return_chart_p = 1; | |
} elsif ($arg =~ /^-+workset$/i) { | |
$workset_p = 1; | |
} elsif ($arg =~ /^-+offset[-_]*map/i) { | |
$return_offset_mappings_p = 1; | |
} elsif ($arg =~ /^-+unicode[-_]?data/i) { | |
$filename = shift @ARGV; | |
if (-r $filename) { | |
$unicode_data_filename = $filename; | |
} else { | |
print STDERR "Ignoring invalid UnicodeData filename $filename\n"; | |
} | |
} elsif ($arg =~ /^-+(no-tok-cach|no-cach)/i) { | |
$cache_rom_tokens_p = 0; | |
} else { | |
print STDERR "Ignoring unrecognized arg $arg\n"; | |
} | |
} | |
$romanizer->load_script_data(*ht, $script_data_filename); | |
$romanizer->load_unicode_data(*ht, $unicode_data_filename); | |
$romanizer->load_unicode_overwrite_romanization(*ht, $unicode_data_overwrite_filename); | |
$romanizer->load_romanization_table(*ht, $romanization_table_filename); | |
$chinese_to_pinyin_not_yet_loaded_p = 1; | |
$current_date = $util->datetime("dateTtime"); | |
$lang_code_clause = ($lang_code) ? " \"lang-code\":\"$lang_code\",\n" : ""; | |
print "{\n \"romanizer\":\"uroman $version (Ulf Hermjakob, USC/ISI)\",\n \"date\":\"$current_date\",\n$lang_code_clause \"romanization\": [\n" if $return_chart_p; | |
my $line_number = 0; | |
my $chart_result = ""; | |
while (<>) { | |
$line_number++; | |
my $line = $_; | |
my $snt_id = ""; | |
if ($workset_p) { | |
next if $line =~ /^#/; | |
if (($i_value, $s_value) = ($line =~ /^(\S+\.\d+)\s(.*)$/)) { | |
$snt_id = $i_value; | |
$line = "$s_value\n"; | |
} else { | |
next; | |
} | |
} | |
if ($chinese_to_pinyin_not_yet_loaded_p && $chinesePM->string_contains_utf8_cjk_unified_ideograph_p($line)) { | |
$chinesePM->read_chinese_tonal_pinyin_files(*pinyin_ht, $chinese_tonal_pinyin_filename); | |
$chinese_to_pinyin_not_yet_loaded_p = 0; | |
} | |
if ($return_chart_p) { | |
print $chart_result; | |
*chart_ht = $romanizer->romanize($line, $lang_code, "", *ht, *pinyin_ht, 0, "return chart", $line_number); | |
$chart_result = $romanizer->chart_to_json_romanization_elements(0, $chart_ht{N_CHARS}, *chart_ht, $line_number); | |
} elsif ($return_offset_mappings_p) { | |
($best_romanization, $offset_mappings) = $romanizer->romanize($line, $lang_code, "", *ht, *pinyin_ht, 0, "return offset mappings", $line_number, 0); | |
print "::snt-id $snt_id\n" if $workset_p; | |
print "::orig $line"; | |
print "::rom $best_romanization\n"; | |
print "::align $offset_mappings\n\n"; | |
} elsif ($cache_rom_tokens_p) { | |
print $romanizer->romanize_by_token_with_caching($line, $lang_code, "", *ht, *pinyin_ht, 0, "", $line_number) . "\n"; | |
} else { | |
print $romanizer->romanize($line, $lang_code, "", *ht, *pinyin_ht, 0, "", $line_number) . "\n"; | |
} | |
} | |
$chart_result =~ s/,(\s*)$/$1/; | |
print $chart_result; | |
print " ]\n}\n" if $return_chart_p; | |
$dev_test_p = 0; | |
if ($dev_test_p) { | |
$n_suspicious_code_points = 0; | |
$n_instances = 0; | |
foreach $char_name (sort { hex($ht{UTF_NAME_TO_UNICODE}->{$a}) <=> hex($ht{UTF_NAME_TO_UNICODE}->{$b}) } | |
keys %{$ht{SUSPICIOUS_ROMANIZATION}}) { | |
$unicode_value = $ht{UTF_NAME_TO_UNICODE}->{$char_name}; | |
$utf8_string = $ht{UTF_NAME_TO_CODE}->{$char_name}; | |
foreach $romanization (sort keys %{$ht{SUSPICIOUS_ROMANIZATION}->{$char_name}}) { | |
$count = $ht{SUSPICIOUS_ROMANIZATION}->{$char_name}->{$romanization}; | |
$s = ($count == 1) ? "" : "s"; | |
print STDERR "*** Suspiciously lengthy romanization:\n" unless $n_suspicious_code_points; | |
print STDERR "::s $utf8_string ::t $romanization ::comment $char_name (U+$unicode_value)\n"; | |
$n_suspicious_code_points++; | |
$n_instances += $count; | |
} | |
} | |
print STDERR " *** Total of $n_suspicious_code_points suspicious code points ($n_instances instance$s)\n" if $n_suspicious_code_points; | |
} | |
exit 0; | |