19 |
19 |
20 require_os_windows(); |
20 require_os_windows(); |
21 usage(\@ARGV,"This script makes required fixes to epoc32 tree in Windows"); |
21 usage(\@ARGV,"This script makes required fixes to epoc32 tree in Windows"); |
22 my $epocroot = get_epocroot(); |
22 my $epocroot = get_epocroot(); |
23 my $gcc_mingw_include_dir = File::Spec->catfile(get_epoc32_dir(),"include","gcc_mingw"); |
23 my $gcc_mingw_include_dir = File::Spec->catfile(get_epoc32_dir(),"include","gcc_mingw"); |
24 |
|
25 if (! -d $gcc_mingw_include_dir) { |
24 if (! -d $gcc_mingw_include_dir) { |
26 print ">>> Creating \"$gcc_mingw_include_dir\"\n"; |
25 print ">>> Creating \"$gcc_mingw_include_dir\"\n"; |
27 mkdir $gcc_mingw_include_dir or die $!; |
26 mkdir $gcc_mingw_include_dir or die $!; |
28 } |
27 } |
29 my $gcc_mingw_preinclude = File::Spec->catfile("epoc32","include","gcc_mingw","gcc_mingw_3_4_2.h"); |
28 my $gcc_mingw_preinclude = File::Spec->catfile("epoc32","include","gcc_mingw","gcc_mingw_3_4_2.h"); |
30 my $libwsock32_deb = File::Spec->catfile("epoc32","release","tools2","deb","libwsock32.a"); |
29 my $libwsock32_deb = File::Spec->catfile("epoc32","release","tools2","deb","libwsock32.a"); |
31 my $libwsock32_rel = File::Spec->catfile("epoc32","release","tools2","rel","libwsock32.a"); |
30 my $libwsock32_rel = File::Spec->catfile("epoc32","release","tools2","rel","libwsock32.a"); |
|
31 my $s60_sbs_config_xml = File::Spec->catfile("epoc32","sbs_config","s60_sbs_config.xml"); |
32 apply_patch_file($gcc_mingw_preinclude); |
32 apply_patch_file($gcc_mingw_preinclude); |
33 apply_patch_file($libwsock32_deb); |
33 apply_patch_file($libwsock32_deb); |
34 apply_patch_file($libwsock32_rel); |
34 apply_patch_file($libwsock32_rel); |
|
35 apply_patch_file($s60_sbs_config_xml); |
35 exit 0; |
36 exit 0; |
36 |
37 |