cross-plat-dev-utils/fix_epoc32_linux.pl
changeset 6 787612182dd0
parent 2 39c28ec933dd
child 10 b2a53d442fd6
equal deleted inserted replaced
5:301c3edbdaa1 6:787612182dd0
    22 use check_os;
    22 use check_os;
    23 
    23 
    24 require_os_linux();
    24 require_os_linux();
    25 
    25 
    26 usage(\@ARGV,"This script makes required fixes to epoc32 tree in Linux");
    26 usage(\@ARGV,"This script makes required fixes to epoc32 tree in Linux");
    27 set_epocroot();
    27 my $epocroot = get_epocroot();
    28 my $epocroot = $ENV{'EPOCROOT'};
    28 my $wrong_product_variant_hrh = File::Spec->catfile(get_epoc32_dir(),"include","ProductVariant.hrh");
    29 my $wrong_product_variant_hrh = File::Spec->catfile("$epocroot","epoc32","include","ProductVariant.hrh");
    29 my $right_product_variant_hrh = File::Spec->catfile(get_epoc32_dir(),"include","productvariant.hrh");
    30 my $right_product_variant_hrh = File::Spec->catfile("$epocroot","epoc32","include","productvariant.hrh");
       
    31 if (! -f $right_product_variant_hrh and ! -l $right_product_variant_hrh) {
    30 if (! -f $right_product_variant_hrh and ! -l $right_product_variant_hrh) {
    32 	print ">>> Creating symlink \"$wrong_product_variant_hrh\" -> \"$right_product_variant_hrh\"\n";
    31 	print ">>> Creating symlink \"$wrong_product_variant_hrh\" -> \"$right_product_variant_hrh\"\n";
    33 	print ">>> (workaround for bug #1399)\n";
    32 	print ">>> (workaround for bug #1399)\n";
    34 	symlink($wrong_product_variant_hrh,$right_product_variant_hrh) or die $!;
    33 	symlink($wrong_product_variant_hrh,$right_product_variant_hrh) or die $!;
    35 }
    34 }
    36 my $gcc_include_dir = File::Spec->catfile("$epocroot","epoc32","include","gcc");
    35 my $gcc_include_dir = File::Spec->catfile(get_epoc32_dir(),"include","gcc");
    37 if (! -d $gcc_include_dir) {
    36 if (! -d $gcc_include_dir) {
    38 	print ">>> Creating \"$gcc_include_dir\"\n";
    37 	print ">>> Creating \"$gcc_include_dir\"\n";
    39 	mkdir $gcc_include_dir or die $!;
    38 	mkdir $gcc_include_dir or die $!;
    40 }
    39 }
    41 my $gcc_441_prelinclude_hdr_rel = File::Spec->catfile("epoc32","include","gcc","gcc_4_4_1.h");
    40 my $gcc_441_prelinclude_hdr_rel = File::Spec->catfile("epoc32","include","gcc","gcc_4_4_1.h");