Page MenuHomeHEPForge
Files F19251235

dohtml.pl
No OneTemporary
Actions

Size
4 KB
Referenced Files
None
Subscribers
None

dohtml.pl
View Options

#!/usr/bin/perl -w
# ------------------------------------------------------------------------
# 31-May-2002. File: dohtml.pl.
# Usage: dohtml.pl
# Note: it must be run in the same directory ( Herwig++/Doc ).
# Perl script that builds the main HTML file, main.html, containing all
# Herwig++ classes references, organized according to the directories
# where they are defined, and then it does the same for all Pythia7
# classes (it takes the location of Pythia7 from the environmental
# variable PYTHIA7PATH). Such references point to .html files (in the
# same Herwig++/Doc directory) that are created by this script, using
# the awk script h2html.awk (which has been copied from Pythia7/Doc).
# An advantage of this unified script for the documentation of both
# Herwig++ and Pythia7 is that you can reference directly (exactly
# as they were Herwig++ classes) Pythia7 classes from Herwig++ classes.
# ------------------------------------------------------------------------
use strict;
my $i;
my $j;
if ( @ARGV != 0 ){
die "---> Usage : dohtml.pl";
}
open( MAINHTML, ">main.html" ) || die "Cannot open : $! ";
print "\t Writing main.html ... \n";
print MAINHTML <<END_OF_FIRSTPART;
<HTML>
<HEAD>
<TITLE>Herwig++ and Pythia7</TITLE>
</HEAD>
<BODY TEXT="#000000" BGCOLOR="#DDDDDD" LINK="#A01010" VLINK="#808080" ALINK="#FF0000">
<H1>Herwig++ classes</H1><BR>
Here the list of all classes, organized according to the directory where they are defined:
<BR>
END_OF_FIRSTPART
# ------ first, treat Herwig++ ------
print "\n \n ";
print " \t \t ================================= \n ";
print " \t \t ============ Herwig++ =========== \n ";
print " \t \t ================================= \n \n";
chdir "../.";
my @listDirs = <*>;
foreach $i (@listDirs) {
if ( -d $i ){
my $namePkg = $i;
# We exclude some uninteresting directories: lib, my, herwig
# that start with a lower case character. Also Doc and Templates
# are excluded because no class type definition can be found.
if ( $namePkg =~ /^[A-Z]/ &&
$namePkg ne "Doc" && $namePkg ne "CVS" ) {
print MAINHTML ' <BR><BR><FONT COLOR="#0000F0"> <B><FONT SIZE=+2>',
$namePkg.'/','</FONT></B> </FONT><BR><BR>',"\n";
chdir $namePkg;
print "\t \t Entering directory $namePkg ... \n";
my @listHeaders = <*.h>;
foreach $j (@listHeaders) {
my $nameHeader = $j;
if ( $nameHeader =~ /^[A-Z]/ ) {
my ($nameClass,$ignore) = split(/\./,$nameHeader);
my $nameHtml = $nameClass.".html";
# Use here the awk script, h2html.awk, copied from Pythia7/Doc/
system("gawk -f ../Doc/h2html.awk $nameHeader > ../Doc/$nameHtml");
print "\t \t \t Writing $nameHtml ... \n";
print MAINHTML ' <a href="',"$nameHtml",'">',
$nameClass,'</a><BR>',"\n";
}
}
chdir "../.";
print "\t \t Done directory $namePkg ! \n";
}
}
}
# ------ then, treat Pythia7 ------
print MAINHTML <<END_OF_MIDDLEPART;
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<H1>Pythia7 classes</H1><BR>
Here the list of all classes, organized according to the directory where they are defined:
<BR>
END_OF_MIDDLEPART
print "\n \n \n ";
print " \t \t ================================= \n ";
print " \t \t ============ Pythia7 ============ \n ";
print " \t \t ================================= \n \n ";
my $HerwigDir = $ENV{PWD};
my $Pythia7Dir = $ENV{PYTHIA7PATH};
chdir "$Pythia7Dir/Pythia7";
my @listDirs = <*>;
foreach $i (@listDirs) {
if ( -d $i ){
my $namePkg = $i;
# We exclude some uninteresting directories: lib, my, old,...
# that start with a lower case character. Also Doc and Templates
# are excluded because no class type definition can be found.
if ( $namePkg =~ /^[A-Z]/ &&
$namePkg ne "Doc" && $namePkg ne "CVS" ) {
print MAINHTML ' <BR><BR><FONT COLOR="#0000F0"> <B><FONT SIZE=+2>',
$namePkg.'/','</FONT></B> </FONT><BR><BR>',"\n";
chdir $namePkg;
print "\t \t Entering directory $namePkg ... \n";
my @listHeaders = <*.h>;
foreach $j (@listHeaders) {
my $nameHeader = $j;
if ( $nameHeader =~ /^[A-Z]/ ) {
my ($nameClass,$ignore) = split(/\./,$nameHeader);
my $nameHtml = $nameClass.".html";
# Use here the awk script, h2html.awk, copied from Pythia7/Doc/
system("gawk -f ../Doc/h2html.awk $nameHeader > $HerwigDir/$nameHtml");
print "\t \t \t Writing $nameHtml ... \n";
print MAINHTML ' <a href="',"$nameHtml",'">',
$nameClass,'</a><BR>',"\n";
}
}
chdir "../.";
print "\t \t Done directory $namePkg ! \n";
}
}
}
chdir "HerwigDir/Doc";
print MAINHTML <<END_OF_LASTPART;
<BR>
<BR>
<BR>
</BODY>
</HTML>
END_OF_LASTPART
close( MAINHTML );
print "\n \n \n ";
print "\t Done main.html ! \n \n";
#--------------------------------------------------------------------------

File Metadata

Mime Type
text/x-perl
Expires
Tue, Sep 30, 5:48 AM (1 d, 7 h)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
6556555
Default Alt Text
dohtml.pl (4 KB)

Event Timeline

HEPForge.org · .