From 22ac008822b07f46559c07f924be5c25402f211b Mon Sep 17 00:00:00 2001
From: yosiokat <yosiokat@b08762b0-b915-fc4b-9d8c-17b2551a87ff>
Date: Tue, 20 May 2008 00:49:26 +0000
Subject: [PATCH] =?UTF-8?q?=E3=83=9E=E3=82=B9=E3=82=BF=E3=83=AA=E3=83=B3?=
 =?UTF-8?q?=E3=82=B0=E7=94=A8=E3=82=B9=E3=82=AF=E3=83=AA=E3=83=97=E3=83=88?=
 =?UTF-8?q?=E3=81=AE=E8=BF=BD=E5=8A=A0=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@1405 b08762b0-b915-fc4b-9d8c-17b2551a87ff
---
 tools/bin/makeTitleIdDir.plx | 42 ++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 tools/bin/makeTitleIdDir.plx

diff --git a/tools/bin/makeTitleIdDir.plx b/tools/bin/makeTitleIdDir.plx
new file mode 100644
index 00000000..acd35971
--- /dev/null
+++ b/tools/bin/makeTitleIdDir.plx
@@ -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
+