Login
NedoOS
BlueGrey
calm
Elegant
Català-Valencià – Catalan
中文 – Chinese (Simplified)
中文 – Chinese (Traditional)
Česky – Czech
Dansk – Danish
Nederlands – Dutch
English – English
Suomi – Finnish
Français – French
Deutsch – German
עברית – Hebrew
हिंदी – Hindi
Magyar – Hungarian
Bahasa Indonesia – Indonesian
Italiano – Italian
日本語 – Japanese
한국어 – Korean
Македонски – Macedonian
मराठी – Marathi
Norsk – Norwegian
Polski – Polish
Português – Portuguese
Português – Portuguese (Brazil)
Русский – Russian
Slovenčina – Slovak
Slovenščina – Slovenian
Español – Spanish
Svenska – Swedish
Türkçe – Turkish
Українська – Ukrainian
Oëzbekcha – Uzbek
Subversion Repositories
NedoOS
(root)
/
src
/
games
/
_sdk
/
getMainAddr.pl
@ 2013
– Rev 939
Rev
Blame
|
Last modification
|
View Log
|
Download
|
RSS feed
#!/usr/bin/perl
use
strict
;
my
$str
;
my
@arr
;
my
$hex_val
;
#open FIL,"_temp_\\out.map";
#open ADDR, ">addr.bin";
open
FIL
,
$ARGV
[
0
]
;
open
ADDR
,
">"
.
$ARGV
[
1
]
;
while
(
$str
=
<FIL>
)
{
chomp
$str
;
$str
=~
s
/
\
s
*//;
if
(
length
(
$str
)
>
0
)
{
@arr
=
split
(
/ /
,
$str
)
;
if
(
substr
(
$arr
[
2
]
,
0
,
1
)
eq
"_"
)
{
if
(
$arr
[
2
]
=~
m
/
_main
/
)
{
$hex_val
=
hex
(
"0x"
.
$arr
[
0
]
)
;
print
ADDR
pack
(
"V"
,
$hex_val
)
;
}
}
}
}
close
FIL
;