Re: pLaTeXでのBabel （ハンガリー語が組み込めない原因）

名前: トノ
日時: 2004-10-10 13:30:43
IPアドレス: 222.159.241.*

>>32037

#31944 の perl スクリプトを変更して、huhyph.tex も手作業なしで変換できるように
してみました。

    perl SCRIPTNAME huhyph.tex > huhyph-p.tex

のようにすると、#31944 のものと同じハイフネーション・パターン huhyph-p.tex が
得られます。

※  JPerl 4.046、JPerl 5.005_03 で確認しました。

※  perl が日本語化（あるいはマルチバイト対応）されたものでないと
    決めうちできれば、もっと単純なスクリプトになってしまうでしょう。
    perl が日本語化されているかどうかに関わりなく、行単位で
    読込んだデータをバイト毎に切り分ける方法を思いつきませんでした。
    ご存じの方がおられたらご教示下さい。


#!perl
#=======================================================================
#
#   TeX の 8-bit ハイフネーション・パターンを、pTeX で使えるように
#   変換して標準出力に出力する
#
#   2004/10/10
#
#=======================================================================


$source = $ARGV[0];
open(SOURCE, $source) || die("Failed to open source file.\nAborted");
$line = "";
while ( read(SOURCE, $byte, 1) ) {
    $byte = sprintf("^^%x", ord($byte)) if ( $byte gt "~" );
    $line .= $byte;
    if ( $byte eq "\n" ) {
        &process_line($line);
        $line = "";
    }
}
&process_line($line) unless ( $line eq "" );

sub process_line {
    local($line) = ($_[0]);
    $line =~ s/(\S)\\lccode/$1 \\lccode/g;
    print $line;
}


#=======================================================================
__END__
#=======================================================================

この書き込みへの返事：