mirror of
https://github.com/rvtr/TwlIPL.git
synced 2025-10-31 06:01:12 -04:00
7b37fdfd6e
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@2614 b08762b0-b915-fc4b-9d8c-17b2551a87ff
126 lines
3.6 KiB
Perl
Executable File
126 lines
3.6 KiB
Perl
Executable File
#!/bin/perl
|
|
#----------------------------------------------------------------------------
|
|
# Project: TwlIPL - tests -
|
|
# File: systemupdater_source.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 $rn = "\x0D\x0A";
|
|
|
|
my $src1 = "$IPLROOT/build/systemMenu_tools/SystemUpdaterRegionSelect/ARM9.TWL/src/process_check_console.c";
|
|
my $dst1 = "$IPLROOT/build/systemMenu_tools/SystemUpdaterRegionSelect/ARM9.TWL/src/process_check_console_autogen.c";
|
|
|
|
my $in_check_console = 0;
|
|
|
|
open(F, $src1) or die "cant open $src1\n";
|
|
my @lines = <F>;
|
|
close(F);
|
|
|
|
|
|
open(OUT, ">$dst1") or die "cant open $dst1\n";
|
|
foreach my $line ( @lines )
|
|
{
|
|
if( $line =~ m/^void ProcessCheckConsole\(void\)/ )
|
|
{
|
|
$in_check_console = 1;
|
|
}
|
|
|
|
if ($in_check_console == 1)
|
|
{
|
|
if( $line =~ m/^\/\*/ )
|
|
{
|
|
print OUT "\tkamiFontPrintfConsole( FONT_COLOR_GREEN, \"This updater is for Wireless development.\\n\");", $rn;
|
|
print OUT "//\t[AUTO COMMENTOUT] 無線開発用SystemUpdaterの場合、コメントアウトをはずします。", $rn;
|
|
# add comment out at the top of line
|
|
$line =~ s/^/\/\//;
|
|
}
|
|
if( $line =~ m/^\*\// )
|
|
{
|
|
print OUT "//\t[AUTO COMMENTOUT] 無線開発用SystemUpdaterの場合、コメントアウトをはずします。", $rn;
|
|
# add comment out at the top of line
|
|
$line =~ s/^/\/\//;
|
|
}
|
|
if( $line =~ m/^}/ )
|
|
{
|
|
$in_check_console = 0;
|
|
}
|
|
}
|
|
|
|
print OUT $line;
|
|
}
|
|
close(OUT);
|
|
|
|
my $src2 = "$IPLROOT/build/systemMenu_tools/SystemUpdaterRegionSelect/ARM9.TWL/src/process_select_region.c";
|
|
my $dst2 = "$IPLROOT/build/systemMenu_tools/SystemUpdaterRegionSelect/ARM9.TWL/src/process_select_region_autogen.c";
|
|
|
|
open(F, $src2) or die "cant open $src2\n";
|
|
my @lines = <F>;
|
|
close(F);
|
|
|
|
|
|
open(OUT, ">$dst2") or die "cant open $dst2\n";
|
|
foreach my $line ( @lines )
|
|
{
|
|
# WLANのLoad時に限り、FatalErrorのセット無効にする。
|
|
if( $line =~ m/OS_TWL_REGION_AUSTRALIA/ )
|
|
{
|
|
print OUT "//\t[AUTO COMMENTOUT] 無線開発用SystemUpdaterの場合、RegionはJapanとAmericaのみ。", $rn;
|
|
$line =~ s/OS_TWL_REGION_AUSTRALIA/OS_TWL_REGION_AMERICA/;
|
|
}
|
|
|
|
print OUT $line;
|
|
}
|
|
close(OUT);
|
|
|
|
my $src3 = "$IPLROOT/build/systemMenu_tools/SystemUpdaterRegionSelect/ARM9.TWL/Makefile";
|
|
my $dst3 = "$IPLROOT/build/systemMenu_tools/SystemUpdaterRegionSelect/ARM9.TWL/Makefile_autogen";
|
|
|
|
open(F, $src3) or die "cant open $src3\n";
|
|
my @lines = <F>;
|
|
close(F);
|
|
|
|
|
|
open(OUT, ">$dst3") or die "cant open $dst3\n";
|
|
foreach my $line ( @lines )
|
|
{
|
|
if( $line =~ m/UPDATER_HOST_ROOT_DIR =/ )
|
|
{
|
|
$line =~ s/UPDATER_HOST_ROOT_DIR =/UPDATER_HOST_ROOT_DIR ?=/;
|
|
}
|
|
|
|
if( $line =~ m/process_select_region\.c/ )
|
|
{
|
|
$line =~ s/process_select_region\.c/process_select_region_autogen\.c/;
|
|
}
|
|
|
|
if( $line =~ m/process_check_console\.c/ )
|
|
{
|
|
$line =~ s/process_check_console\.c/process_check_console_autogen\.c/;
|
|
}
|
|
|
|
print OUT $line;
|
|
}
|
|
close(OUT);
|