mirror of
https://github.com/rvtr/TwlIPL.git
synced 2025-10-31 06:01:12 -04:00
22ac008822
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@1405 b08762b0-b915-fc4b-9d8c-17b2551a87ff
43 lines
943 B
Perl
43 lines
943 B
Perl
#!/usr/bin/perl
|
|
|
|
######################################################################
|
|
# genFontTable.pl
|
|
#
|
|
# generate Secure Shared Font Data Table
|
|
#
|
|
######################################################################
|
|
|
|
if ($#ARGV < 1) {
|
|
printf STDOUT ("Usage: %s SRL_file tgtDir\n", $0);
|
|
exit(-1);
|
|
}
|
|
|
|
open SRL, "<$ARGV[0]" or die;
|
|
binmode SRL;
|
|
|
|
|
|
# TitleID_Lo取得
|
|
sysseek SRL, 0x230, SEEK_SET;
|
|
my $data;
|
|
sysread( SRL, $data, 4 );
|
|
|
|
my @id = unpack( "cccc", $data);
|
|
my $titleID_Lo = pack( "cccc", $id[3], $id[2], $id[1], $id[0] );
|
|
#printf "%s\n", $titleID_Lo;
|
|
|
|
|
|
# ROMバージョン取得
|
|
sysseek SRL, 0x1e, SEEK_SET;
|
|
sysread( SRL, $data, 1 );
|
|
my $version = sprintf "%d\n", unpack( "c", $data );
|
|
#printf "%s\n", $version;
|
|
|
|
system( "mkdir -p $ARGV[1]/$titleID_Lo" );
|
|
system( "mkdir -p $ARGV[1]/$titleID_Lo/V$version" );
|
|
|
|
#TAD格納ディレクトリprint
|
|
printf "$ARGV[1]/$titleID_Lo/V$version";
|
|
|
|
close SRL
|
|
|