mirror of
https://github.com/rvtr/TwlIPL.git
synced 2025-10-31 06:01:12 -04:00
7d16ca3088
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@1943 b08762b0-b915-fc4b-9d8c-17b2551a87ff
124 lines
3.2 KiB
Perl
Executable File
124 lines
3.2 KiB
Perl
Executable File
#!/bin/perl
|
|
#----------------------------------------------------------------------------
|
|
# Project: TwlIPL - tests -
|
|
# File: launcher_fake_macaddress.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 $rn = "\x0D\x0A";
|
|
|
|
my $SDKROOT;
|
|
|
|
# search TWLSDK_ROOT
|
|
foreach ( sort keys ( %ENV ) ){
|
|
if ($_ =~ m/TWLSDK_ROOT/s) {
|
|
$SDKROOT = $ENV{$_};
|
|
}
|
|
}
|
|
|
|
my $src = "$SDKROOT/build/libraries/wm/ARM7.TWL/nwm/src/nwmsp_event_handler.c";
|
|
my $dst = "$SDKROOT/build/libraries/wm/ARM7.TWL/nwm/src/nwmsp_event_handler_autogen.c";
|
|
|
|
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 )
|
|
{
|
|
if( $line =~ m/^ *MI_CpuCopy8\(ev->macaddr, sys->status->macAddress, NWM_SIZE_MACADDR\);/ )
|
|
{
|
|
print OUT "//\t\t[AUTO COMMENT] fake MAC address of TWL wireless, copy MAC address from that in NOR flash.", $rn;
|
|
# add comment out at the top of line
|
|
$line =~ s/ev->macaddr,/wmMac,/;
|
|
}
|
|
|
|
print OUT $line;
|
|
}
|
|
close(OUT);
|
|
|
|
my $IPLROOT;
|
|
|
|
# search TWL_IPL_RED_ROOT
|
|
foreach ( sort keys ( %ENV ) ){
|
|
if ($_ =~ m/TWL_IPL_RED_ROOT/s) {
|
|
$IPLROOT = $ENV{$_};
|
|
}
|
|
}
|
|
|
|
my $src_make1 = "$IPLROOT/build/libraries_sysmenu/Makefile";
|
|
my $dst_make1 = "$IPLROOT/build/libraries_sysmenu/Makefile_autogen";
|
|
|
|
open(F, $src_make1) or die "cant open $src_make1\n";
|
|
my @lines = <F>;
|
|
close(F);
|
|
|
|
open(OUT, ">$dst_make1") or die "cant open $dst_make1\n";
|
|
foreach my $line ( @lines )
|
|
{
|
|
if( $line =~ m/^SUBDIRS/ )
|
|
{
|
|
print OUT "SUBMAKES\t\t=\t\tnwm/Makefile_autogen", $rn, $rn;
|
|
}
|
|
|
|
if( $line =~ m/nwm/ )
|
|
{
|
|
$line =~ s/^/\#/;
|
|
}
|
|
|
|
print OUT $line;
|
|
}
|
|
close(OUT);
|
|
|
|
my $src_make2 = "$IPLROOT/build/libraries_sysmenu/nwm/Makefile";
|
|
my $dst_make2 = "$IPLROOT/build/libraries_sysmenu/nwm/Makefile_autogen";
|
|
|
|
open(F, $src_make2) or die "cant open $src_make2\n";
|
|
my @lines = <F>;
|
|
close(F);
|
|
|
|
open(OUT, ">$dst_make2") or die "cant open $dst_make2\n";
|
|
foreach my $line ( @lines )
|
|
{
|
|
if( $line =~ m/^SUBDIRS_P *\+= *ARM7/ )
|
|
{
|
|
print OUT "SUBMAKES_P += ARM7/Makefile_autogen", $rn;
|
|
next
|
|
}
|
|
|
|
print OUT $line;
|
|
}
|
|
close(OUT);
|
|
|
|
my $src_make3 = "$IPLROOT/build/libraries_sysmenu/nwm/ARM7/Makefile";
|
|
my $dst_make3 = "$IPLROOT/build/libraries_sysmenu/nwm/ARM7/Makefile_autogen";
|
|
|
|
open(F, $src_make3) or die "cant open $src_make3\n";
|
|
my @lines = <F>;
|
|
close(F);
|
|
|
|
open(OUT, ">$dst_make3") or die "cant open $dst_make3\n";
|
|
foreach my $line ( @lines )
|
|
{
|
|
if( $line =~ m/^[\t ]*nwmsp_event_handler\.c/ )
|
|
{
|
|
$line =~ s/nwmsp_event_handler\.c/nwmsp_event_handler_autogen\.c/;
|
|
}
|
|
|
|
print OUT $line;
|
|
}
|
|
close(OUT);
|