loncom/build/lpml_parse.pl - diff

Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

-version 1.46, 2002/04/21 23:36:17
+version 1.47, 2002/04/26 15:53:00
  Line 1178  sub format_file {
      if ($source) {
  	$parser->get_tag('/file');
  	if ($mode eq 'MANIFEST') {
- 	    return $source."\n";
+ 	    my $command=$build;
+ 	    if ($command!~/\s/) {
+ 		$command=~s/\/([^\/]*)$//;
+ 	    }
+ 	    else {
+ 		$command=~s/(.*?\/)([^\/]+\s+.*)$/$1/;
+ 	    }
+ 	    $command=~s/^$sourceroot\///;
+ 	    my (@deps)=split(/\;/,$dependencies);
+ 	    my $retval=join("\n",($source,
+ 		       (map {"$command$_"} @deps)));
+ 	    return $retval."\n";
  	}
  	elsif ($mode eq 'html') {
  	    return ($file="\n<!-- FILESORT:$target -->".