The R Project SVN R

Rev

Rev 11069 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11069 Rev 11129
Line 31... Line 31...
31 
#use strict;
 31 
#use strict;
32 
 
 32 
 
33 
## don't buffer output
 33 
## don't buffer output
34 
$|=1;
 34 
$|=1;
35 
 
 35 
 
36 
my $revision = ' $Revision: 1.15 $ ';
 36 
my $revision = ' $Revision: 1.16 $ ';
37 
my $version;
 37 
my $version;
38 
my $name;
 38 
my $name;
39 
$revision =~ / ([\d\.]*) /;
 39 
$revision =~ / ([\d\.]*) /;
40 
$version = $1;
 40 
$version = $1;
41 
($name = $0) =~ s|.*/||;
 41 
($name = $0) =~ s|.*/||;
Line 177... Line 177...
177 
	close exclude;
 177 
	close exclude;
178
178
179 
	my $filename = "${pkgname}_" . $description->{"Version"} . ".tar";
 179 
	my $filename = "${pkgname}_" . $description->{"Version"} . ".tar";
180 
	$log->message("building \`$filename.gz'");
 180 
	$log->message("building \`$filename.gz'");
181 
	chdir("$pkg/..");
 181 
	chdir("$pkg/..");
- 
 
 182 
	my $filepath = "$startdir/$filename";
- 
 
 183 
	if($WINDOWS) {
- 
 
 184 
	    ## workaround for paths in Cygwin tar
- 
 
 185 
	    $filepath =~ s+^([A-Za-x]):+//\1+;
- 
 
 186 
	}
182 
	system("tar chXf $exclude $startdir/$filename $pkgname");
 187 
	system("tar chXf $exclude $filepath $pkgname");
183 
	chdir($startdir);
 188 
	chdir($startdir);
184 
	system("gzip -9f $filename");
 189 
	system("gzip -9f $filename");
185 
	unlink($exclude);
 190 
	unlink($exclude);
186 
    }
 191 
    }
187 
    $log->close();
 192 
    $log->close();
Line 260... Line 265...
260 
    $log->checking("whether \`$oldindex' is up-to-date");
 265 
    $log->checking("whether \`$oldindex' is up-to-date");
261 
    my $dataopt = "-d" if $dataset;
 266 
    my $dataopt = "-d" if $dataset;
262 
    system("${R_CMD} Rdindex $dataopt ${Rdfiles} > ${newindex}");
 267 
    system("${R_CMD} Rdindex $dataopt ${Rdfiles} > ${newindex}");
263 
 
 268 
 
264 
    if(-r $oldindex){
 269 
    if(-r $oldindex){
265 
	if(compare($oldindex,$newindex) != 0){
 270 
	if(compare($oldindex, $newindex) != 0){
266 
	    $log->result("NO");
 271 
	    $log->result("NO");
267 
	    if($opt_force){
 272 
	    if($opt_force){
268 
		$log->message("overwriting \`${oldindex}' as" .
 273 
		$log->message("overwriting \`${oldindex}' as" .
269 
			      "\`--force' was given");
 274 
			      "\`--force' was given");
270 
		unlink($oldindex);
 275 
		unlink $oldindex ;
271 
		rename($newindex, $oldindex);
 276 
		rename($newindex, $oldindex);
272 
	    }
 277 
	    }
273 
	    else{
 278 
	    else{
274 
		$log->message("use \`--force' to overwrite the existing \`${oldindex}'");
 279 
		$log->message("use \`--force' to overwrite the existing \`${oldindex}'");
- 
 
 280 
		unlink $newindex;
275 
	    }
 281 
	    }
276 
	}
 282 
	}
277 
	else{
 283 
	else{
278 
	    $log->result("OK");
 284 
	    $log->result("OK");
279 
	    unlink $newindex;
 285 
	    unlink $newindex;
Line 281... Line 287...
281 
	}
 287 
	}
282 
    }
 288 
    }
283 
    else{
 289 
    else{
284 
	$log->result("NO");
 290 
	$log->result("NO");
285 
	$log->message("creating new $oldindex");
 291 
	$log->message("creating new $oldindex");
286 
	unlink($oldindex);
 292 
	unlink $oldindex ;
287 
	rename($newindex, $oldindex);
 293 
	rename($newindex, $oldindex);
288 
    }
 294 
    }
289 
    1;
 295 
    1;
290 
}
 296 
}
291 
 
 297