Lines Matching refs:to
173 my ($dependent, $common, $from, $to, $file_list);
178 ($from, $to) = split(' ', $dependent);
179 print "copy dependent: from: $from, to: $to\n" if $is_debug;
180 glob_and_copy($from, $to, $touch);
187 ($from, $to) = split(' ', $common);
188 print "copy common: from: $from, to: $to\n" if $is_debug;
189 glob_and_copy($from, $to, $touch);
215 my ($from, $to);
219 ($from, $to) = split(' ', $line);
221 push( @addincpath_list, @{glob_line($from, $to)});
341 ($from, $to) = split(' ',$line);
343 if ( dirname($from) eq dirname($to) ) {
354 print "symlink: $from, to: $to\n" if $is_debug;
360 print "REMOVE: $to\n";
363 print "SYMLINK $from -> $to\n";
367 print "REMOVE: $to\n" if $opt_verbose;
368 unlink $to;
370 push_on_ziplist($to) if $opt_zip;
374 print "SYMLIB: $from -> $to\n" if $opt_verbose;
375 if ( !symlink("$from", "$to") ) {
376 print_error("can't symlink $from -> $to: $!",0);
379 push_on_ziplist($to) if $opt_zip;
380 push_on_loglist("LINK", "$from", "$to") if $opt_log;
387 my ($from, $to);
392 ($from, $to) = split(' ', $line);
393 print "touch: $from, to: $to\n" if $is_debug;
394 glob_and_copy($from, $to, $touch);
650 my $to = shift;
655 if ( ! ( $from && $to ) ) {
656 print_warning("Error in d.lst? source: '$from' destination: '$to'");
660 if ( $to =~ /[\*\?\[\]]/ ) {
662 ($to_fname, $to_dir) = fileparse($to);
674 my $copy = ($replace) ? $to_dir . $fname : $to . '/' . $fname;
681 if (-d $to && -f $from) {
683 $to .= '/' if ($to !~ /[\\|\/]$/);
684 $to .= $filename;
686 push(@globbed_files, [$from, $to]);
702 my $to = shift;
705 my @copy_files = @{glob_line($from, $to)};
778 my $to = shift;
783 print "testing $from, $to\n" if $is_debug;
784 push_on_ziplist($to) if $opt_zip;
785 push_on_loglist("COPY", "$from", "$to") if $opt_log;
786 return 0 unless ($from_stat_ref = is_newer($from, $to, $touch));
789 print "REMOVE: $to\n" if $opt_verbose;
790 $rc = unlink($to) unless $opt_check;
797 if( link($from, $to) ){
798 print "LINK: $from -> $to\n" if $opt_verbose;
804 print "TOUCH: $from -> $to\n" if $opt_verbose;
807 print "COPY: $from -> $to\n" if $opt_verbose;
815 local $temp_file = sprintf('%s.%d-%d', $to, $$, time());
833 $rc = unlink($to); # YD OS/2 can't rename if $to exists!
844 $success = rename($temp_file, $to);
845 if ( $^O eq 'cygwin' && $to =~ /\.bin$/) {
848 $success = rename( "$to.exe", $to ) if -f "$to.exe";
855 system("macosx-create-bundle", "$to=$from.app") if ( -d "$from.app" );
856 system("ranlib", "$to" ) if ( $to =~ /\.a/ );
859 print_warning("File '$to' temporarily locked. Dependency bug?");
864 print_error("can't rename temporary file to $to: $!",0);
869 my $destdir = dirname($to);
882 my $to = shift;
908 if ( $to =~ /^\Q$dest\E/ ) {
912 } elsif ( $common_build && ( $to =~ /^\Q$common_dest\E/ ) ) {
918 @to_stat = stat($to.$maybedot);
1078 my $to = shift;
1082 push_on_ziplist($to) if $opt_zip;
1083 push_on_loglist("ADDINCPATH", "$from", "$to") if $opt_log;
1086 print "REMOVE: $to\n" if $opt_verbose;
1087 my $rc = unlink($to);
1092 if ( $from_stat_ref = is_newer($from, $to) ) {
1093 print "ADDINCPATH: $from -> $to\n" if $opt_verbose;
1109 open(TO, ">$to");
1113 utime($$from_stat_ref[9], $$from_stat_ref[9], $to);
1114 fix_file_permissions($$from_stat_ref[2], $to);
1359 my ($from, $to) = split(' ', $path);
1365 ($to_fname, $to_dir) = fileparse($to);
1367 if ( $to !~ /[\*\?\[\]]/ ) {
1368 $to_dir = $to;
1388 if ( ! $to ) {
1389 if ( $destfile{$to} ) {
1390 print_warning("Multiple entries copying to '$to'");
1392 $destfile{$to} ++;