loncom/build/lpml_parse.pl - diff

Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/lpml_parse.pl between versions 1.28 and 1.33

version 1.28, 2001/12/06 23:14:33	version 1.33, 2001/12/19 21:26:52
Line 35	Line 35
# 9/5/2001,9/6,9/7,9/8 - Scott Harrison	# 9/5/2001,9/6,9/7,9/8 - Scott Harrison
# 9/17,9/18 - Scott Harrison	# 9/17,9/18 - Scott Harrison
# 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison	# 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison
# 12/2,12/3,12/4,12/5,12/6 - Scott Harrison	# 12/2,12/3,12/4,12/5,12/6,12/13 - Scott Harrison
#	#
###	###

Line 225 $cleanstring=~s/\>\s\n\s\</\>\</g;	Line 225 $cleanstring=~s/\>\s\n\s\</\>\</g;
# storage variables	# storage variables
my $lpml;	my $lpml;
my $categories;	my $categories;
	my @categorynamelist;
my $category;	my $category;
my $category_att_name;	my $category_att_name;
my $category_att_type;	my $category_att_type;
Line 272 my @links;	Line 273 my @links;
my %categoryhash;	my %categoryhash;
my $dpathlength;	my $dpathlength;
my %fab; # file category abbreviation	my %fab; # file category abbreviation
	my $directory_count;
	my $file_count;
	my $link_count;
	my $fileglob_count;
	my $fileglobnames_count;
	my %categorycount;
	# START TEMP WAY
	#my %bytecount; # TEMP WAY TO COUNT INFORMATION
	#my %linecount; # TEMP WAY TO COUNT INFORMATION
	# END TEMP WAY

my @buildall;	my @buildall;
my @buildinfo;	my @buildinfo;
Line 287 $parser->xml_mode('1');	Line 298 $parser->xml_mode('1');
# Define handling methods for mode-dependent text rendering	# Define handling methods for mode-dependent text rendering

$parser->{textify}={	$parser->{textify}={
	specialnotices => \&format_specialnotices,
	specialnotice => \&format_specialnotice,
targetroot => \&format_targetroot,	targetroot => \&format_targetroot,
sourceroot => \&format_sourceroot,	sourceroot => \&format_sourceroot,
categories => \&format_categories,	categories => \&format_categories,
Line 354 exit;	Line 367 exit;
# ------------------------ Final output at end of markup parsing and formatting	# ------------------------ Final output at end of markup parsing and formatting
sub end {	sub end {
if ($mode eq 'html') {	if ($mode eq 'html') {
return "</body></html>\n";	# START TEMP WAY
	# my $totallinecount;
	# my $totalbytecount;
	# map {$totallinecount+=$linecount{$_};
	# $totalbytecount+=$bytecount{$_}}
	# @categorynamelist;
	# END TEMP WAY
	return "<br /> <br />".
	"<a name='summary' /><font size='+2'>Summary of Source Repository".
	"</font>".
	"<br /> <br />".
	"<table border='1' cellpadding='5'>".
	"<caption>Files, Directories, and Symbolic Links</caption>".
	"<tr><td>Files (not referenced by globs)</td><td>$file_count</td>".
	"</tr>".
	"<tr><td>Files (referenced by globs)</td>".
	"<td>$fileglobnames_count</td>".
	"</tr>".
	"<tr><td>Total Files</td>".
	"<td>".($fileglobnames_count+$file_count)."</td>".
	"</tr>".
	"<tr><td>File globs</td>".
	"<td>".$fileglob_count."</td>".
	"</tr>".
	"<tr><td>Directories</td>".
	"<td>".$directory_count."</td>".
	"</tr>".
	"<tr><td>Symbolic links</td>".
	"<td>".$link_count."</td>".
	"</tr>".
	"</table>".
	"<table border='1' cellpadding='5'>".
	"<caption>File Category Count</caption>".
	"<tr><th>Icon</th><th>Name</th><th>Number of Occurrences</th>".
	"<th>Number of Incorrect Counts</th>".
	"</tr>".
	join("\n",(map {"<tr><td><img src='$fab{$_}.gif' ".
	"alt='$_ icon' /></td>".
	"<td>$_</td><td>$categorycount{$_}</td>".
	"<td><!-- POSTEVALINLINE $_ --></td></tr>"}
	@categorynamelist)).
	"</table>".
	"</body></html>\n";

	# START TEMP WAY
	# join("\n",(map {"<tr><td><img src='$fab{$_}.gif' ".
	# "alt='$_ icon' /></td>".
	# "<td>$_</td><td>$categorycount{$_}</td><td>$linecount{$_}</td><td>$bytecount{$_}</td></tr>"}
	# @categorynamelist)).
	# "<br /> <br />".
	# "Total Lines of Code: $totallinecount".
	# "<br /> <br />".
	# "Total Bytes: $totalbytecount".
	# END TEMP WAY
}	}
if ($mode eq 'install') {	if ($mode eq 'install') {
return '';	return '';
Line 392 Descriptions</a></li>	Line 458 Descriptions</a></li>
<li><a href='#package'>Software Package Description</a></li>	<li><a href='#package'>Software Package Description</a></li>
<li><a href='#directories'>Directory Structure</a></li>	<li><a href='#directories'>Directory Structure</a></li>
<li><a href='#files'>Files</a></li>	<li><a href='#files'>Files</a></li>
	<li><a href='#summary'>Summary of Source Repository</a></li>
</ul>	</ul>
END	END
$lpml .=<<END;	$lpml .=<<END;
Line 525 sub format_category {	Line 592 sub format_category {
$fab{$category_att_name}=$abbreviation;	$fab{$category_att_name}=$abbreviation;
if ($mode eq 'html') {	if ($mode eq 'html') {
if ($category_att_type eq $categorytype) {	if ($category_att_type eq $categorytype) {
	push @categorynamelist,$category_att_name;
$categoryhash{$category_att_name}="$chmod $chown";	$categoryhash{$category_att_name}="$chmod $chown";
return $category="<tr>".	return $category="<tr>".
"<td><img src='$abbreviation.gif' ".	"<td><img src='$abbreviation.gif' ".
Line 812 sub format_directory {	Line 880 sub format_directory {
$targetdir='';$categoryname='';$description='';	$targetdir='';$categoryname='';$description='';
$parser->get_text('/directory');	$parser->get_text('/directory');
$parser->get_tag('/directory');	$parser->get_tag('/directory');
	$directory_count++;
	$categorycount{$categoryname}++;
if ($mode eq 'html') {	if ($mode eq 'html') {
my @a;	my @a;
@a=($targetdir=~/\//g);	@a=($targetdir=~/\//g);
Line 822 sub format_directory {	Line 892 sub format_directory {
my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname});	my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname});
return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".	return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".
"$categoryname</td>".	"$categoryname</td>".
"<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL2 verify.pl directory /$targetdir $categoryhash{$categoryname} --> </td>".	"<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL [$categoryname] verify.pl directory /$targetdir $categoryhash{$categoryname} --> </td>".
"<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".	"<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".
"<td bgcolor='#ffffff'>$thtml</td></tr>".	"<td bgcolor='#ffffff'>$thtml</td></tr>".
"<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".	"<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".
Line 915 sub format_files {	Line 985 sub format_files {
foreach my $bi (@buildinfo) {	foreach my $bi (@buildinfo) {
my ($target,$source,$command,$trigger,@deps)=split(/\;/,$bi);	my ($target,$source,$command,$trigger,@deps)=split(/\;/,$bi);
$tword=''; $tword=' alwaysrun' if $trigger eq 'always run';	$tword=''; $tword=' alwaysrun' if $trigger eq 'always run';
$command=~s/\/([^\/]*)$//;	if ($command!~/\s/) {
$command2="cd $command; sh ./$1;\\";	$command=~s/\/([^\/]*)$//;
	$command2="cd $command; sh ./$1;\\";
	}
	else {
	$command=~s/(.?\/)([^\/]+\s+.)$/$1/;
	$command2="cd $command; sh ./$2;\\";
	}
my $depstring;	my $depstring;
my $depstring2="\t\t\@echo '';\\\n";	my $depstring2="\t\t\@echo '';\\\n";
my $olddep;	my $olddep;
Line 982 sub format_file {	Line 1058 sub format_file {
$note=''; $build=''; $status=''; $dependencies='';	$note=''; $build=''; $status=''; $dependencies='';
my $text=&trim($parser->get_text('/file'));	my $text=&trim($parser->get_text('/file'));
my $buildtest;	my $buildtest;
	$file_count++;
	$categorycount{$categoryname}++;
	# START TEMP WAY
	# if (-T "$sourcerootarg/$source") {
	# $linecount{$categoryname}+=`wc -l $sourcerootarg/$source`;
	# }
	# my $bytesize=(-s "$sourcerootarg/$source");
	# $bytecount{$categoryname}+=$bytesize;
	# END TEMP WAY
if ($source) {	if ($source) {
$parser->get_tag('/file');	$parser->get_tag('/file');
if ($mode eq 'html') {	if ($mode eq 'html') {
return ($file="\n<!-- FILESORT:$target -->".	return ($file="\n<!-- FILESORT:$target -->".
"<tr>".	"<tr>".
"<td><!-- POSTEVAL2 verify.pl file '$sourcerootarg' ".	"<td><!-- POSTEVAL [$categoryname] verify.pl file '$sourcerootarg' ".
"'$targetrootarg' ".	"'$targetrootarg' ".
"'$source' '$target' ".	"'$source' '$target' ".
"$categoryhash{$categoryname} --> </td><td>".	"$categoryhash{$categoryname} --> </td><td>".
Line 1108 sub format_link {	Line 1193 sub format_link {
$link=''; $linkto=''; $source=''; $target=''; $categoryname='';	$link=''; $linkto=''; $source=''; $target=''; $categoryname='';
$description=''; $note=''; $build=''; $status=''; $dependencies='';	$description=''; $note=''; $build=''; $status=''; $dependencies='';
my $text=&trim($parser->get_text('/link'));	my $text=&trim($parser->get_text('/link'));
	my @links;
if ($linkto) {	if ($linkto) {
$parser->get_tag('/link');	$parser->get_tag('/link');
if ($mode eq 'html') {	if ($mode eq 'html') {
my @targets=map {s/^\s*//;s/\s$//;$_} split(/\;/,$target);	my @targets=map {s/^\s*//;s/\s$//;$_} split(/\;/,$target);
	$link_count+=scalar(@targets);
foreach my $tgt (@targets) {	foreach my $tgt (@targets) {
	$categorycount{$categoryname}++;
push @links,("\n<!-- FILESORT:$tgt -->".	push @links,("\n<!-- FILESORT:$tgt -->".
"<tr>".	"<tr>".
"<td><!-- POSTEVAL2 verify.pl link ".	"<td><!-- POSTEVAL [$categoryname] verify.pl link ".
"'/$targetrootarg$linkto' '/$targetrootarg$tgt' ".	"'/$targetrootarg$linkto' '/$targetrootarg$tgt' ".
"$categoryhash{$categoryname} --> </td><td>".	"$categoryhash{$categoryname} --> </td><td>".
"<img src='$fab{$categoryname}.gif' ".	"<img src='$fab{$categoryname}.gif' ".
Line 1166 sub format_fileglob {	Line 1254 sub format_fileglob {
$filenames='';	$filenames='';
my $text=&trim($parser->get_text('/fileglob'));	my $text=&trim($parser->get_text('/fileglob'));
my $filenames2=$filenames;$filenames2=~s/\s//g;	my $filenames2=$filenames;$filenames2=~s/\s//g;
	$fileglob_count++;
	my @semi=($filenames2=~/(\;)/g);
	$fileglobnames_count+=scalar(@semi)+1;
	$categorycount{$categoryname}+=scalar(@semi)+1;
	# START TEMP WAY
	# for my $f (split(/\;/,$filenames2)) {
	# if (-T "$sourcerootarg/$sourcedir/$f") {
	# $linecount{$categoryname}+=`wc -l $sourcerootarg/$sourcedir/$f`;
	# open OUT,">>/tmp/junk123";
	# print OUT "$linecount{$categoryname} $categoryname $sourcerootarg/$sourcedir/$f\n";
	# close OUT;
	# }
	# my $bytesize=(-s "$sourcerootarg/$sourcedir/$f");
	# $bytecount{$categoryname}+=$bytesize;
	# }
	# END TEMP WAY
if ($sourcedir) {	if ($sourcedir) {
$parser->get_tag('/fileglob');	$parser->get_tag('/fileglob');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $fileglob="\n<tr>".	return $fileglob="\n<tr>".
"<td><!-- POSTEVAL2 verify.pl fileglob '$sourcerootarg' ".	"<td><!-- POSTEVAL [$categoryname] verify.pl fileglob '$sourcerootarg' ".
"'$targetrootarg' ".	"'$targetrootarg' ".
"'$glob' '$sourcedir' '$filenames2' '$targetdir' ".	"'$glob' '$sourcedir' '$filenames2' '$targetdir' ".
"$categoryhash{$categoryname} --> </td>".	"$categoryhash{$categoryname} --> </td>".
Line 1192 sub format_fileglob {	Line 1296 sub format_fileglob {
# "\nEND FILEGLOB</td></tr>";	# "\nEND FILEGLOB</td></tr>";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
	my $eglob=$glob;
	if ($glob eq '*') {
	$eglob='[^C][^V][^S]'.$glob;
	}
return "\t".'install '.	return "\t".'install '.
$categoryhash{$categoryname}.' '.	$categoryhash{$categoryname}.' '.
$sourceroot.'/'.$sourcedir.'[^C][^V][^S]'.$glob.' '.	$sourceroot.'/'.$sourcedir.$eglob.' '.
$targetroot.'/'.$targetdir.'.'."\n";	$targetroot.'/'.$targetdir.'.'."\n";
}	}
else {	else {
Line 1330 sub format_filenames {	Line 1438 sub format_filenames {
}	}
return '';	return '';
}	}
	# ------------------------------------------------ Format specialnotice section
	sub format_specialnotices {
	$parser->get_tag('/specialnotices');
	return '';
	}
	# ------------------------------------------------ Format specialnotice section
	sub format_specialnotice {
	$parser->get_tag('/specialnotice');
	return '';
	}
# ------------------------------------------------------- Format linkto section	# ------------------------------------------------------- Format linkto section
sub format_linkto {	sub format_linkto {
my @tokeninfo=@_;	my @tokeninfo=@_;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.28
changed lines
	Added in v.1.33