|
Lines 111-116
Link Here
|
| 111 |
$opt_link = 0; # hard link files into the solver to save disk space |
111 |
$opt_link = 0; # hard link files into the solver to save disk space |
| 112 |
$opt_deloutput = 0; # delete the output tree for the project once successfully delivered |
112 |
$opt_deloutput = 0; # delete the output tree for the project once successfully delivered |
| 113 |
|
113 |
|
|
|
114 |
if ($^O ne 'cygwin') { # iz59477 - cygwin needes a dot "." at the end of filenames to disable |
| 115 |
$maybedot = ''; # some .exe transformation magic. |
| 116 |
} else { |
| 117 |
$maybedot = '.'; |
| 118 |
} |
| 119 |
|
| 114 |
if ( $ENV{GUI} eq 'WNT' ) { |
120 |
if ( $ENV{GUI} eq 'WNT' ) { |
| 115 |
if ($ENV{COM} eq 'GCC') { |
121 |
if ($ENV{COM} eq 'GCC') { |
| 116 |
warn("Warning: do we need stripping for windows gcc? Nothing defined yet."); |
122 |
warn("Warning: do we need stripping for windows gcc? Nothing defined yet."); |
|
Lines 701-707
Link Here
|
| 701 |
sub is_unstripped { |
707 |
sub is_unstripped { |
| 702 |
my $file_name = shift; |
708 |
my $file_name = shift; |
| 703 |
|
709 |
|
| 704 |
if (-f $file_name && (( `file $file_name` ) =~ /not stripped/o)) { |
710 |
if (-f $file_name.$maybedot && (( `file $file_name` ) =~ /not stripped/o)) { |
| 705 |
return '1' if ($file_name =~ /\.bin$/o); |
711 |
return '1' if ($file_name =~ /\.bin$/o); |
| 706 |
return '1' if ($file_name =~ /\.so\.*/o); |
712 |
return '1' if ($file_name =~ /\.so\.*/o); |
| 707 |
return '1' if (basename($file_name) !~ /\./o); |
713 |
return '1' if (basename($file_name) !~ /\./o); |
|
Lines 838-844
Link Here
|
| 838 |
my (@from_stat, @to_stat); |
844 |
my (@from_stat, @to_stat); |
| 839 |
|
845 |
|
| 840 |
@from_stat = stat($from); |
846 |
@from_stat = stat($from); |
| 841 |
return 0 unless -f _; |
847 |
return 0 unless -f _.$maybedot; |
| 842 |
|
848 |
|
| 843 |
if ( $touch ) { |
849 |
if ( $touch ) { |
| 844 |
$from_stat[9] = time(); |
850 |
$from_stat[9] = time(); |
|
Lines 861-867
Link Here
|
| 861 |
} |
867 |
} |
| 862 |
|
868 |
|
| 863 |
@to_stat = stat($to); |
869 |
@to_stat = stat($to); |
| 864 |
return \@from_stat unless -f _; |
870 |
return \@from_stat unless -f _.$maybedot; |
| 865 |
|
871 |
|
| 866 |
if ( $opt_force ) { |
872 |
if ( $opt_force ) { |
| 867 |
return \@from_stat; |
873 |
return \@from_stat; |
|
Lines 1099-1105
Link Here
|
| 1099 |
return 0 if ( $opt_check ); |
1105 |
return 0 if ( $opt_check ); |
| 1100 |
return -1 if ( $#entry != 2 ); |
1106 |
return -1 if ( $#entry != 2 ); |
| 1101 |
if (( $entry[0] eq "COPY" ) || ( $entry[0] eq "HEDABU" )) { |
1107 |
if (( $entry[0] eq "COPY" ) || ( $entry[0] eq "HEDABU" )) { |
| 1102 |
return 0 if ( ! -e $entry[1] ); |
1108 |
return 0 if ( ! -e $entry[1].$maybedot ); |
| 1103 |
# make 'from' relative to source root |
1109 |
# make 'from' relative to source root |
| 1104 |
$entry[1] = $module . "/prj/" . $entry[1]; |
1110 |
$entry[1] = $module . "/prj/" . $entry[1]; |
| 1105 |
$entry[1] =~ s/^$module\/prj\/\.\./$module/; |
1111 |
$entry[1] =~ s/^$module\/prj\/\.\./$module/; |