mirror of
https://github.com/rvtr/TwlToolsRED.git
synced 2025-10-31 06:41:18 -04:00
7ea1dc2014
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlToolsRED@120 7061adef-622a-194b-ae81-725974e89856
145 lines
3.3 KiB
Perl
145 lines
3.3 KiB
Perl
#=============================================================================#
|
|
# @file fonttbl.pl
|
|
# @brief xlorファイルからNITROインデックステーブルを作成
|
|
# @author Kazumasa Hirata
|
|
# @note usage:
|
|
# perl tonttbl.pl [-o output-file] [-i imput-file]
|
|
#=============================================================================#
|
|
|
|
use strict;
|
|
use Getopt::Std;
|
|
use File::Basename;
|
|
|
|
use vars qw( $opt_o $opt_i );
|
|
|
|
#------------------------------------------------------------#
|
|
# メインプログラム
|
|
#------------------------------------------------------------#
|
|
{
|
|
getopt('oi');
|
|
|
|
#引数チェック
|
|
if( !$opt_o || !$opt_i ){
|
|
die <<EOF;
|
|
usage: perl tonttbl.pl [-o output-file] [-i imput-file]
|
|
EOF
|
|
}
|
|
my $jarfile = $ARGV[0];
|
|
|
|
print "output = $opt_o\n";
|
|
print "imput = $opt_i\n";
|
|
|
|
#入力ファイルを読み込み
|
|
open FH, "$opt_i" or die "can't open file $opt_i: $!";
|
|
my @imput = <FH>;
|
|
close FH;
|
|
|
|
#出力ファイルオープン
|
|
open FH, ">$opt_o" or die "can't open file $opt_o: $!";
|
|
|
|
#必要なデータをコンバートして出力する
|
|
my $startflag = 0;
|
|
my @namelist;
|
|
my @titlelist;
|
|
|
|
foreach my $line ( @imput ){
|
|
|
|
chomp $line;
|
|
$line = "//$line";
|
|
|
|
my $str;
|
|
|
|
#フォントグループ開始かどうか
|
|
if( $line =~ /<!-- ((\w|\s|\/|-)+) -->/ )
|
|
{
|
|
$str = $1;
|
|
|
|
$titlelist[ @titlelist ] = $str;
|
|
|
|
#アルファベットと数字以外の文字はアンダーバーに置換
|
|
$str =~ s/(\s|\/|-)+/_/g;
|
|
|
|
$namelist[ @namelist ] = $str;
|
|
|
|
#配列名前っぽく出力
|
|
$str = "const unsigned short $str\[\] = {";
|
|
|
|
#配列終端の挿入
|
|
if( $startflag == 1 ){ #既に配列宣言済みなら、それを
|
|
$str = "};\n$str"; #まずは終わらせる
|
|
}
|
|
$startflag = 1; #配列宣言が始まったらフラグを立てる
|
|
}
|
|
#スペースとヌル以外で、HTMLタグ開始文字<がある行は対象外
|
|
elsif( ($line =~ /</) && !($line =~ /<sp\/>/) && !($line =~ /<null\/>/) )
|
|
{
|
|
|
|
}
|
|
#対象文字列を詳しく調べる
|
|
else
|
|
{
|
|
$str = $line;
|
|
|
|
#コメントを殺す
|
|
$str =~ s/\/\///;
|
|
|
|
#スペースをスプリットとして文字列を分解する
|
|
my @array = split /\s+/, $str;
|
|
|
|
#分解した文字要素ごとに置換作業
|
|
foreach my $word ( @array ){
|
|
|
|
#spの整形
|
|
$word =~ s/<sp\/>/�/;
|
|
|
|
#nullの整形
|
|
$word =~ s/<null\/>/�/;
|
|
|
|
#特殊な代替文字の整形
|
|
$word =~ s/"/"/;
|
|
$word =~ s/&/&/;
|
|
$word =~ s/'/'/;
|
|
$word =~ s/</</;
|
|
$word =~ s/>/>/;
|
|
|
|
#16進数の整形
|
|
$word =~ s/&#x([0-9A-F]+);/0x$1/;
|
|
|
|
#ASCII文字の16進変換
|
|
if( length($word)==1 && 0x20<=ord($word) && ord($word)<=0x7E ){
|
|
$word = sprintf "0x%04x", ord($word);
|
|
}
|
|
}
|
|
|
|
#デミリタを設定して結合する
|
|
$str = join ',', @array;
|
|
$str =~ s/^,//; #先頭に付着するデリミタ削除（なんか頭いい方法あったはずだが・・・）
|
|
$str =~ s/$/,/;
|
|
$str =~ s/^,$//;
|
|
}
|
|
|
|
#変換前の行を出力
|
|
print FH "$line\n";
|
|
|
|
#変換後文字列があるなら出力
|
|
if( defined($str) ){
|
|
print FH "$str\n";
|
|
}
|
|
}
|
|
#最終の配列の終わりを出力
|
|
print FH "};\n";
|
|
|
|
#テーブルの要素数の計算
|
|
foreach ( @namelist ) {
|
|
print FH "const unsigned short Count_of_$_ = sizeof\($_\)/sizeof\($_\[0\]\);\n";
|
|
}
|
|
|
|
#テーブルの名前の出力
|
|
for( my $i=0; $i<@titlelist; $i++ ) {
|
|
print FH "const char * const Title_of_$namelist[$i] = \"$titlelist[$i]\";\n";
|
|
}
|
|
|
|
close FH;
|
|
}
|
|
|