mirror of
https://github.com/rvtr/TwlIPL.git
synced 2025-10-31 06:01:12 -04:00
306762957d
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@2014 b08762b0-b915-fc4b-9d8c-17b2551a87ff
93 lines
2.5 KiB
Perl
Executable File
93 lines
2.5 KiB
Perl
Executable File
#!/bin/perl
|
|
#----------------------------------------------------------------------------
|
|
# Project: TwlIPL - tests -
|
|
# File: sdlog_main_c.pl
|
|
#
|
|
# Copyright 2007 Nintendo. All rights reserved.
|
|
#
|
|
# These coded insructions, statements, and computer programs contain
|
|
# proprietary information of Nintendo of America Inc. and/or Nintendo
|
|
# Company Ltd., and are protected by Federal copyright law. They may
|
|
# not be disclosed to third parties or copied or duplicated in any form,
|
|
# in whole or in part, without the prior written consent of Nintendo.
|
|
#
|
|
# $Date:: $
|
|
# $Rev$
|
|
# $Author$
|
|
#----------------------------------------------------------------------------
|
|
|
|
use strict;
|
|
|
|
my $IPLROOT;
|
|
|
|
# search TWL_IPL_RED_ROOT
|
|
foreach ( sort keys ( %ENV ) ){
|
|
if ($_ =~ m/TWL_IPL_RED_ROOT/s) {
|
|
$IPLROOT = $ENV{$_};
|
|
}
|
|
}
|
|
|
|
my $src = "$IPLROOT/build/systemMenu_RED/Launcher/ARM9/src/main.c";
|
|
my $dst = "$IPLROOT/build/systemMenu_RED/Launcher/ARM9/src/main_sdlog.c";
|
|
|
|
|
|
my $rn = "\x0D\x0A";
|
|
|
|
open(F, $src) or die "cant open $src\n";
|
|
my @lines = <F>;
|
|
close(F);
|
|
|
|
|
|
open(OUT, ">$dst") or die "cant open $dst\n";
|
|
foreach my $line ( @lines )
|
|
{
|
|
print OUT $line;
|
|
|
|
if( $line =~ m/^\#include \"scanWDS\.h\"/ )
|
|
{
|
|
print OUT "//\t[AUTO COMMENT] SDLOGのヘッダをインクルードし、ログ用バッファを定義します。", $rn;
|
|
print OUT <<__SDLOG_DEFINE__;
|
|
\#ifdef USE_SDLOG
|
|
\#include "sd_log_wrapper.h"
|
|
\#define BUFFER_SIZE 0x800
|
|
char logBuffer[ (BUFFER_SIZE + 1) ];
|
|
\#endif
|
|
__SDLOG_DEFINE__
|
|
}
|
|
if( $line =~ m/^[\t ]*RTC_Init\(\);/ )
|
|
{
|
|
print OUT "//\t[AUTO COMMENT] SDカードにOS_Printfのログを記録するために、SDLOGを初期化します。", $rn;
|
|
print OUT <<__SDLOG_INITEX__;
|
|
\#ifdef USE_SDLOG
|
|
{
|
|
RTCDate rDate;
|
|
RTCTime rTime;
|
|
char filename[FS_ENTRY_LONGNAME_MAX];
|
|
|
|
(void)RTC_GetDateTime(&rDate, &rTime);
|
|
OS_SPrintf(filename, "Launcher_%02d%02d%02d_%02d%02d.txt",
|
|
rDate.year, rDate.month, rDate.day,
|
|
rTime.hour, rTime.minute);
|
|
|
|
SDLOG_InitEx("sdmc:/log", filename, logBuffer,
|
|
BUFFER_SIZE, 0x80, SDLOG_WRITE_TYPE_CONTINUANCE);
|
|
}
|
|
\#endif
|
|
__SDLOG_INITEX__
|
|
}
|
|
|
|
if( $line =~ m/^[\t ]*OS_SetIrqCheckFlag\(OS_IE_V_BLANK\);/ )
|
|
{
|
|
print OUT <<__SDLOG_PRINTARM7__;
|
|
\#ifdef USE_SDLOG
|
|
\#ifdef USE_SDLOG_SUBP
|
|
SDLOG_PrintServer();
|
|
\#endif
|
|
\#endif
|
|
__SDLOG_PRINTARM7__
|
|
}
|
|
|
|
}
|
|
close(OUT);
|
|
|