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.23 and 1.26

version 1.23, 2001/11/29 15:01:04	version 1.26, 2001/12/05 01:39:08
Line 49 Only the 1st argument is mandatory for t	Line 49 Only the 1st argument is mandatory for t
Example:	Example:

cat ../../doc/loncapafiles.lpml \|\\	cat ../../doc/loncapafiles.lpml \|\\
perl lpml_parse.pl html default /home/sherbert/loncapa /tmp/install	perl lpml_parse.pl html development default /home/sherbert/loncapa /tmp/install
END	END

# ------------------------------------------------- Grab command line arguments	# ------------------------------------------------- Grab command line arguments
Line 198 my $category_att_name;	Line 198 my $category_att_name;
my $category_att_type;	my $category_att_type;
my $chown;	my $chown;
my $chmod;	my $chmod;
	my $abbreviation; # space-free abbreviation; esp. for image names
my $rpm;	my $rpm;
my $rpmSummary;	my $rpmSummary;
my $rpmName;	my $rpmName;
Line 237 my $dependencies;	Line 238 my $dependencies;
my $dependency;	my $dependency;
my @links;	my @links;
my %categoryhash;	my %categoryhash;
	my $dpathlength;
	my %fab; # file category abbreviation

my @buildall;	my @buildall;
my @buildinfo;	my @buildinfo;
Line 250 $parser = HTML::TokeParser->new(\$cleans	Line 253 $parser = HTML::TokeParser->new(\$cleans
$parser->xml_mode('1');	$parser->xml_mode('1');

# Define handling methods for mode-dependent text rendering	# Define handling methods for mode-dependent text rendering

$parser->{textify}={	$parser->{textify}={
targetroot => \&format_targetroot,	targetroot => \&format_targetroot,
sourceroot => \&format_sourceroot,	sourceroot => \&format_sourceroot,
categories => \&format_categories,	categories => \&format_categories,
category => \&format_category,	category => \&format_category,
	abbreviation => \&format_abbreviation,
targetdir => \&format_targetdir,	targetdir => \&format_targetdir,
chown => \&format_chown,	chown => \&format_chown,
chmod => \&format_chmod,	chmod => \&format_chmod,
Line 317 exit;	Line 322 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 "<br />THE END\n";	return "</body></html>\n";
}	}
if ($mode eq 'install') {	if ($mode eq 'install') {
return '';	return '';
Line 336 sub format_lpml {	Line 341 sub format_lpml {
my (@tokeninfo)=@_;	my (@tokeninfo)=@_;
my $date=`date`; chop $date;	my $date=`date`; chop $date;
if ($mode eq 'html') {	if ($mode eq 'html') {
$lpml = "<br /><font size='+2'>LPML Description Page (dist=$dist, ".	$lpml=<<END;
"$date)".	<html>
	<head>
	<title>LPML Description Page
	(dist=$dist, categorytype=$categorytype, $date)</title>
	</head>
	<body>
	END
	$lpml .= "<br /><font size='+2'>LPML Description Page (dist=$dist, ".
	"categorytype=$categorytype, $date)".
"</font>";	"</font>";
$lpml .=<<END;	$lpml .=<<END;
<ul>	<ul>
<li>About this file</li>	<li><a href='#about'>About this file</a></li>
<li>Software Package Description</li>	<li><a href='#ownperms'>File Type Ownership and Permissions
<li>Directory Structure</li>	Descriptions</a></li>
<li>File Type Ownership and Permissions</li>	<li><a href='#package'>Software Package Description</a></li>
<li>File and Directory Structure</li>	<li><a href='#directories'>Directory Structure</a></li>
	<li><a href='#files'>Files</a></li>
</ul>	</ul>
END	END
$lpml .=<<END;	$lpml .=<<END;
	<br /> <br /><a name='about' />
<font size='+2'>About this file</font>	<font size='+2'>About this file</font>
<p>	<p>
This file is generated dynamically by <tt>lpml_parse.pl</tt> as	This file is generated dynamically by <tt>lpml_parse.pl</tt> as
Line 365 END	Line 380 END
* Software Package Description	* Software Package Description
* Directory Structure	* Directory Structure
* File Type Ownership and Permissions	* File Type Ownership and Permissions
* File and Directory Structure	* Files
END	END
$lpml .=<<END;	$lpml .=<<END;

Line 440 sub format_categories {	Line 455 sub format_categories {
my $text=&trim($parser->get_text('/categories'));	my $text=&trim($parser->get_text('/categories'));
$parser->get_tag('/categories');	$parser->get_tag('/categories');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $categories="\n<br />BEGIN CATEGORIES\n$text\n".	return $categories="\n<br /> <br />".
"<br />END CATEGORIES\n";	"\n<a name='ownperms'>".
	"\n<font size='+2'>File Type Ownership and Permissions".
	" Descriptions</font>".
	"\n<p>This table shows what permissions and ownership settings ".
	"correspond to each category.</p>".
	"\n<table border='1' cellpadding='5' width='60%'>\n".
	"<tr>".
	"<th align='left' bgcolor='#ffffff'>Icon</th>".
	"<th align='left' bgcolor='#ffffff'>Category Name</th>".
	"<th align='left' bgcolor='#ffffff'>Permissions ".
	"($categorytype)</th>".
	"</tr>".
	"\n$text\n".
	"</table>\n";
	}
	elsif ($mode eq 'text') {
	return $categories="\n".
	"\nFile Type Ownership and Permissions".
	" Descriptions".
	"\n$text".
	"\n";
}	}
else {	else {
return '';	return '';
Line 452 sub format_category {	Line 487 sub format_category {
my (@tokeninfo)=@_;	my (@tokeninfo)=@_;
$category_att_name=$tokeninfo[2]->{'name'};	$category_att_name=$tokeninfo[2]->{'name'};
$category_att_type=$tokeninfo[2]->{'type'};	$category_att_type=$tokeninfo[2]->{'type'};
$chmod='';$chown='';	$abbreviation=''; $chmod='';$chown='';
$parser->get_text('/category');	$parser->get_text('/category');
$parser->get_tag('/category');	$parser->get_tag('/category');
	$fab{$category_att_name}=$abbreviation;
if ($mode eq 'html') {	if ($mode eq 'html') {
return $category="\n<br />CATEGORY $category_att_name ".	if ($category_att_type eq $categorytype) {
"$category_att_type $chmod $chown";	return $category="<tr>".
	"<td><img src='$abbreviation.gif' ".
	"alt='${category_att_name}' /></td>\n".
	"<td>${category_att_name}</td>\n".
	"<td>$chmod $chown</td>\n".
	"</tr>".
	"\n";
	# return $category="\n<br />CATEGORY $category_att_name ".
	# "$category_att_type $chmod $chown";
	}
}	}
else {	else {
if ($category_att_type eq $categorytype) {	if ($category_att_type eq $categorytype) {
Line 468 sub format_category {	Line 513 sub format_category {
return '';	return '';
}	}
}	}
	# --------------------------------------------------- Format categories section
	sub format_abbreviation {
	my @tokeninfo=@_;
	$abbreviation='';
	my $text=&trim($parser->get_text('/abbreviation'));
	if ($text) {
	$parser->get_tag('/abbreviation');
	$abbreviation=$text;
	}
	return '';
	}
# -------------------------------------------------------- Format chown section	# -------------------------------------------------------- Format chown section
sub format_chown {	sub format_chown {
my @tokeninfo=@_;	my @tokeninfo=@_;
Line 496 sub format_rpm {	Line 552 sub format_rpm {
$parser->get_tag('/rpm');	$parser->get_tag('/rpm');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpm=<<END;	return $rpm=<<END;
	<br /> <br />
	<a name='package' />
<font size='+2'>Software Package Description</font>	<font size='+2'>Software Package Description</font>
<p>	<p>
<table bgcolor='#ffffff' border='0' cellpadding='10' cellspacing='0'>	<table bgcolor='#ffffff' border='0' cellpadding='10' cellspacing='0'>
Line 535 sub format_rpmName {	Line 593 sub format_rpmName {
my $text=&trim($parser->get_text('/rpmName'));	my $text=&trim($parser->get_text('/rpmName'));
$parser->get_tag('/rpmName');	$parser->get_tag('/rpmName');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmName="\n<br />RPMNAME $text";	return $rpmName="\nName : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmName="\nName : $text";
}	}
else {	else {
return '';	return '';
Line 546 sub format_rpmVersion {	Line 607 sub format_rpmVersion {
my $text=$parser->get_text('/rpmVersion');	my $text=$parser->get_text('/rpmVersion');
$parser->get_tag('/rpmVersion');	$parser->get_tag('/rpmVersion');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmVersion="\n<br />RPMVERSION $text";	return $rpmVersion="\nVersion : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmVersion="\nVersion : $text";
}	}
else {	else {
return '';	return '';
Line 557 sub format_rpmRelease {	Line 621 sub format_rpmRelease {
my $text=$parser->get_text('/rpmRelease');	my $text=$parser->get_text('/rpmRelease');
$parser->get_tag('/rpmRelease');	$parser->get_tag('/rpmRelease');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmRelease="\n<br />RPMRELEASE $text";	return $rpmRelease="\nRelease : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmRelease="\nRelease : $text";
}	}
else {	else {
return '';	return '';
Line 568 sub format_rpmVendor {	Line 635 sub format_rpmVendor {
my $text=$parser->get_text('/rpmVendor');	my $text=$parser->get_text('/rpmVendor');
$parser->get_tag('/rpmVendor');	$parser->get_tag('/rpmVendor');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmVendor="\n<br />RPMVENDOR $text";	return $rpmVendor="\nVendor : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmVendor="\nVendor : $text";
}	}
else {	else {
return '';	return '';
Line 579 sub format_rpmBuildRoot {	Line 649 sub format_rpmBuildRoot {
my $text=$parser->get_text('/rpmBuildRoot');	my $text=$parser->get_text('/rpmBuildRoot');
$parser->get_tag('/rpmBuildRoot');	$parser->get_tag('/rpmBuildRoot');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmBuildRoot="\n<br />RPMBUILDROOT $text";	return $rpmBuildRoot="\nBuild Root : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmBuildRoot="\nBuild Root : $text";
}	}
else {	else {
return '';	return '';
Line 590 sub format_rpmCopyright {	Line 663 sub format_rpmCopyright {
my $text=$parser->get_text('/rpmCopyright');	my $text=$parser->get_text('/rpmCopyright');
$parser->get_tag('/rpmCopyright');	$parser->get_tag('/rpmCopyright');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmCopyright="\n<br />RPMCOPYRIGHT $text";	return $rpmCopyright="\nLicense : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmCopyright="\nLicense : $text";
}	}
else {	else {
return '';	return '';
Line 601 sub format_rpmGroup {	Line 677 sub format_rpmGroup {
my $text=$parser->get_text('/rpmGroup');	my $text=$parser->get_text('/rpmGroup');
$parser->get_tag('/rpmGroup');	$parser->get_tag('/rpmGroup');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmGroup="\n<br />RPMGROUP $text";	return $rpmGroup="\nGroup : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmGroup="\nGroup : $text";
}	}
else {	else {
return '';	return '';
Line 612 sub format_rpmSource {	Line 691 sub format_rpmSource {
my $text=$parser->get_text('/rpmSource');	my $text=$parser->get_text('/rpmSource');
$parser->get_tag('/rpmSource');	$parser->get_tag('/rpmSource');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmSource="\n<br />RPMSOURCE $text";	return $rpmSource="\nSource : $text";
	}
	elsif ($mode eq 'text') {
	return $rpmSource="\nSource : $text";
}	}
else {	else {
return '';	return '';
Line 623 sub format_rpmAutoReqProv {	Line 705 sub format_rpmAutoReqProv {
my $text=$parser->get_text('/rpmAutoReqProv');	my $text=$parser->get_text('/rpmAutoReqProv');
$parser->get_tag('/rpmAutoReqProv');	$parser->get_tag('/rpmAutoReqProv');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmAutoReqProv="\n<br />RPMAUTOREQPROV $text";	return $rpmAutoReqProv="\nAutoReqProv : $text";
	}
	if ($mode eq 'text') {
	return $rpmAutoReqProv="\nAutoReqProv : $text";
}	}
else {	else {
return '';	return '';
Line 634 sub format_rpmdescription {	Line 719 sub format_rpmdescription {
my $text=$parser->get_text('/rpmdescription');	my $text=$parser->get_text('/rpmdescription');
$parser->get_tag('/rpmdescription');	$parser->get_tag('/rpmdescription');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmdescription="\n<br />RPMDESCRIPTION $text";	$text=~s/\n//g;
	$text=~s/\\n/\n/g;
	return $rpmdescription="\nDescription : $text";
	}
	elsif ($mode eq 'text') {
	$text=~s/\n//g;
	$text=~s/\\n/\n/g;
	return $rpmdescription="\nDescription : $text";
}	}
else {	else {
return '';	return '';
Line 645 sub format_rpmpre {	Line 737 sub format_rpmpre {
my $text=$parser->get_text('/rpmpre');	my $text=$parser->get_text('/rpmpre');
$parser->get_tag('/rpmpre');	$parser->get_tag('/rpmpre');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $rpmpre="\n<br />RPMPRE $text";	# return $rpmpre="\n<br />RPMPRE $text";
	return '';
}	}
else {	else {
return '';	return '';
Line 656 sub format_directories {	Line 749 sub format_directories {
my $text=$parser->get_text('/directories');	my $text=$parser->get_text('/directories');
$parser->get_tag('/directories');	$parser->get_tag('/directories');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $directories="\n<br />BEGIN DIRECTORIES\n$text\n<br />".	$text=~s/\[\{\{\{\{\{DPATHLENGTH\}\}\}\}\}\]/$dpathlength/g;
"END DIRECTORIES\n";	return $directories="\n<br /> <br />".
	"<a name='directories' />".
	"<font size='+2'>Directory Structure</font>".
	"\n<br /> <br />".
	"<table border='1' cellpadding='3' cellspacing='0'>\n".
	"<tr><th bgcolor='#ffffff'>Category</th>".
	"<th bgcolor='#ffffff'>Status</th>\n".
	"<th bgcolor='#ffffff'>Expected Permissions & Ownership</th>\n".
	"<th bgcolor='#ffffff' colspan='$dpathlength'>Target Directory ".
	"Path</th></tr>\n".
	"\n$text\n</table><br />"."\n";
	}
	elsif ($mode eq 'text') {
	return $directories="\nDirectory Structure\n$text\n".
	"\n";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
return "\n".'directories:'."\n".$text;	return "\n".'directories:'."\n".$text;
Line 673 sub format_directory {	Line 780 sub format_directory {
$parser->get_text('/directory');	$parser->get_text('/directory');
$parser->get_tag('/directory');	$parser->get_tag('/directory');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $directory="\n<br />DIRECTORY $targetdir $categoryname ".	my @a;
	@a=($targetdir=~/\//g);
	my $d=scalar(@a)+1;
	$dpathlength=$d if $d>$dpathlength;
	my $thtml=$targetdir;
	$thtml=~s/\//\<\/td\>\<td bgcolor='#ffffff'\>/g;
	return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".
	"$categoryname</td>".
	"<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL: --> </td>".
	"<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".
	"<td bgcolor='#ffffff'>$thtml</td></tr>".
	"<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".
	"$description</td></tr>";
	}
	if ($mode eq 'text') {
	return $directory="\nDIRECTORY $targetdir $categoryname ".
"$description";	"$description";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
Line 722 sub format_files {	Line 844 sub format_files {
my $text=$parser->get_text('/files');	my $text=$parser->get_text('/files');
$parser->get_tag('/files');	$parser->get_tag('/files');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $directories="\n<br />BEGIN FILES\n$text\n<br />END FILES\n";	return $directories="\n<br /> <br />".
	"<a name='files' />".
	"<font size='+2'>Files</font><br /> <br />".
	"<p>All source and target locations are relative to the ".
	"sourceroot and targetroot values at the beginning of this ".
	"document.</p>".
	"\n<table border='1' cellpadding='5'>".
	"<tr><th>Status</th><th colspan='2'>Category</th>".
	"<th>Name/Location</th>".
	"<th>Description</th><th>Notes</th></tr>".
	"$text</table>\n".
	"\n";
	}
	elsif ($mode eq 'text') {
	return $directories="\n".
	"File and Directory Structure".
	"\n$text\n".
	"\n";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
return "\n".'files:'."\n".$text.	return "\n".'files:'."\n".$text.
Line 812 sub format_file {	Line 951 sub format_file {
if ($source) {	if ($source) {
$parser->get_tag('/file');	$parser->get_tag('/file');
if ($mode eq 'html') {	if ($mode eq 'html') {
return ($file="\n<br />BEGIN FILE\n".	return ($file="\n<!-- FILESORT:$target -->".
"$source $target $categoryname $description $note " .	"<tr>".
"$build $status $dependencies" .	"<td> </td><td><img src='$fab{$categoryname}.gif' ".
"\nEND FILE");	"alt='$categoryname icon' /></td>".
	"<td>$categoryname</td>".
	"<td>SOURCE: $source<br />TARGET: $target</td>".
	"<td>$description</td>".
	"<td>$note</td>".
	"</tr>");
	# return ($file="\n<br />BEGIN FILE\n".
	# "$source $target $categoryname $description $note " .
	# "$build $status $dependencies" .
	# "\nEND FILE");
}	}
elsif ($mode eq 'install' && $categoryname ne 'conf') {	elsif ($mode eq 'install' && $categoryname ne 'conf') {
if ($build) {	if ($build) {
Line 868 $buildtest \@if !(test -e "${sourceroot}	Line 1016 $buildtest \@if !(test -e "${sourceroot}
perl verifymodown.pl ${targetroot}/${target} "$categoryhash{$categoryname}"$logcmd; \\	perl verifymodown.pl ${targetroot}/${target} "$categoryhash{$categoryname}"$logcmd; \\
fi	fi
END	END
# return "\t".'@test -e '.$sourceroot.'/'.$source.
# ' && perl filecompare.pl -b '.$sourceroot.'/'.$source.' '.
# $targetroot.'/'.$target.
# ' && install '.
# $categoryhash{$categoryname}.' '.
# $sourceroot.'/'.$source.' '.
# $targetroot.'/'.$target.
# ' \|\| echo "**** WARNING '.
# '**** CVS source file does not exist: '.$sourceroot.'/'.
# $source.'"'."\n";
}	}
elsif ($mode eq 'configinstall' && $categoryname eq 'conf') {	elsif ($mode eq 'configinstall' && $categoryname eq 'conf') {
push @configall,$targetroot.'/'.$target;	push @configall,$targetroot.'/'.$target;
Line 934 sub format_link {	Line 1072 sub format_link {
if ($linkto) {	if ($linkto) {
$parser->get_tag('/link');	$parser->get_tag('/link');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $link="\n<br />BEGIN LINK\n".	return $link="\n<tr><td colspan='6'>BEGIN LINK\n".
"$linkto $target $categoryname $description $note " .	"$linkto $target $categoryname $description $note " .
"$build $status $dependencies" .	"$build $status $dependencies" .
"\nEND LINK";	"\nEND LINK</td></tr>";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
my @targets=map {s/^\s*//;s/\s$//;$_} split(/\;/,$target);	my @targets=map {s/^\s*//;s/\s$//;$_} split(/\;/,$target);
Line 964 sub format_fileglob {	Line 1102 sub format_fileglob {
if ($sourcedir) {	if ($sourcedir) {
$parser->get_tag('/fileglob');	$parser->get_tag('/fileglob');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $fileglob="\n<br />BEGIN FILEGLOB\n".	return $fileglob="\n<tr><td colspan='6'>BEGIN FILEGLOB\n".
"$glob sourcedir $targetdir $categoryname $description $note ".	"$glob sourcedir $targetdir $categoryname $description $note ".
"$build $status $dependencies $filenames" .	"$build $status $dependencies $filenames" .
"\nEND FILEGLOB";	"\nEND FILEGLOB</td></tr>";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
return "\t".'install '.	return "\t".'install '.
Line 1018 sub format_source {	Line 1156 sub format_source {
sub format_note {	sub format_note {
my @tokeninfo=@_;	my @tokeninfo=@_;
$note='';	$note='';
my $text=&trim($parser->get_text('/note'));	# my $text=&trim($parser->get_text('/note'));
	my $aref;
	my $text;
	while ($aref=$parser->get_token()) {
	if ($aref->[0] eq 'E' && $aref->[1] eq 'note') {
	last;
	}
	elsif ($aref->[0] eq 'S') {
	$text.=$aref->[4];
	}
	elsif ($aref->[0] eq 'E') {
	$text.=$aref->[2];
	}
	else {
	$text.=$aref->[1];
	}
	}
if ($text) {	if ($text) {
$parser->get_tag('/note');	# $parser->get_tag('/note');
$note=$text;	$note=$text;
}	}
return '';	return '';

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

Removed from v.1.23
changed lines
	Added in v.1.26