rvtr/TwlIPL
1
Fork 0
mirror of https://github.com/rvtr/TwlIPL.git synced 2025-10-31 06:01:12 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

マスタリング用スクリプトの追加。

Browse Source 
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@1405 b08762b0-b915-fc4b-9d8c-17b2551a87ff
This commit is contained in:
yosiokat 2008-05-20 00:49:26 +00:00
parent f2251dc90c
commit 22ac008822
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
tools/bin/makeTitleIdDir.plx Normal file
View File

@ -0,0 +1,42 @@
#!/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