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.35 and 1.39

version 1.35, 2002/01/09 22:18:16	version 1.39, 2002/02/05 01:28:16
Line 130 if ($mode eq 'install' or $mode eq 'conf	Line 130 if ($mode eq 'install' or $mode eq 'conf
# 1st argument (mode) is: $mode	# 1st argument (mode) is: $mode
# 2nd argument (category type) is: $categorytype	# 2nd argument (category type) is: $categorytype
# 3rd argument (distribution) is: $dist	# 3rd argument (distribution) is: $dist
# 4th argument (targetroot) is: described below	# 4th argument (sourceroot) is: described below
# 5th argument (sourceroot) is: described below	# 5th argument (targetroot) is: described below
END	END
}	}

Line 183 $parser->xml_mode('1');	Line 183 $parser->xml_mode('1');
my $cleanstring;	my $cleanstring;
while ($token = $parser->get_token()) {	while ($token = $parser->get_token()) {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
	print "HLOC: $hloc $token->[4]\n";
$hloc++;	$hloc++;
$hierarchy[$hloc]++;	$hierarchy[$hloc]++;
$key=$token->[1].join(',',@hierarchy[0..($hloc-1)]);	$key=$token->[1].join(',',@hierarchy[0..($hloc-1)]);
Line 208 while ($token = $parser->get_token()) {	Line 209 while ($token = $parser->get_token()) {
$cleanstring.=$token->[4];	$cleanstring.=$token->[4];
}	}
if ($token->[4]=~/\/>$/) {	if ($token->[4]=~/\/>$/) {
$hloc--;	# $hloc--;
}	}
}	}
if ($token->[0] eq 'E') {	if ($token->[0] eq 'E') {
Line 281 my $link_count;	Line 282 my $link_count;
my $fileglob_count;	my $fileglob_count;
my $fileglobnames_count;	my $fileglobnames_count;
my %categorycount;	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 370 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') {
# START TEMP WAY
# my $totallinecount;
# my $totalbytecount;
# map {$totallinecount+=$linecount{$_};
# $totalbytecount+=$bytecount{$_}}
# @categorynamelist;
# END TEMP WAY
return "<br /> <br />".	return "<br /> <br />".
"<a name='summary' /><font size='+2'>Summary of Source Repository".	"<a name='summary' /><font size='+2'>Summary of Source Repository".
"</font>".	"</font>".
Line 414 sub end {	Line 404 sub end {
"</table>".	"</table>".
"</body></html>\n";	"</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 1144 sub format_file {	Line 1124 sub format_file {
my $buildtest;	my $buildtest;
$file_count++;	$file_count++;
$categorycount{$categoryname}++;	$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') {
Line 1361 sub format_fileglob {	Line 1334 sub format_fileglob {
my @semi=($filenames2=~/(\;)/g);	my @semi=($filenames2=~/(\;)/g);
$fileglobnames_count+=scalar(@semi)+1;	$fileglobnames_count+=scalar(@semi)+1;
$categorycount{$categoryname}+=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') {
Line 1551 sub format_filenames {	Line 1512 sub format_filenames {
}	}
return '';	return '';
}	}
# ------------------------------------------------ Format specialnotice section	# ----------------------------------------------- Format specialnotices section
sub format_specialnotices {	sub format_specialnotices {
$parser->get_tag('/specialnotices');	$parser->get_tag('/specialnotices');
return '';	return '';

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

Removed from v.1.35
changed lines
	Added in v.1.39