OpenPKG CVS Repository
http://www.openpkg.org/cvsweb/cvsweb.cgi
____________________________________________________________________________
Server: cvs.openpkg.org Name: Peter Smej
Root: /e/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-web Date: 10-Jul-2002 14:56:18
Branch: HEAD Handle: 2002071013561800
Modified files:
openpkg-web/dep vdg.pl
Log:
Appended options for BuildPreReq and PreReq
Summary:
Revision Changes Path
1.7 +32 -17 openpkg-web/dep/vdg.pl
____________________________________________________________________________
Index: openpkg-web/dep/vdg.pl
============================================================
$ cvs diff -u -r1.6 -r1.7 vdg.pl
--- openpkg-web/dep/vdg.pl 19 Jun 2002 08:30:59 -0000 1.6
+++ openpkg-web/dep/vdg.pl 10 Jul 2002 12:56:18 -0000 1.7
@@ -18,7 +18,11 @@
# HTML:
# Write HTML output
#
-# Peter Smej, 18. June 2002
+# Peter Smej, 10. July 2002
+#
+# Appending new Option
+# BuildPreReq
+# PreReq
# vcg colors
my $color_node_background = "245 240 224";
@@ -52,6 +56,7 @@
my $tab=0; # 0 = make no tab
# 1 = make a tab
my @foundarray; # required for treeoutput
+my $requirement="BuildPreReq";
if (1 > $#ARGV) {
usage();
@@ -68,7 +73,11 @@
$treepoint=$ARGV[1];
shift(@ARGV); shift(@ARGV);
$numberargs=$numberargs-2;
- } else {
+ } elsif ($ARGV[0] eq "-r") {
+ $requirement=$ARGV[1];
+ shift(@ARGV); shift(@ARGV);
+ $numberargs=$numberargs-2;
+ }else {
usage();
}
}
@@ -138,12 +147,14 @@
########################################################################################################
# print usage and exit
- print "$0 -f <format> [-t treepoint] < <INDEX-file>\n";
- print " format: vcg for use with xvcg\n";
- print " format: dot for use with dot (graphviz)\n";
- print " format: tabtxt for use with text output\n";
- print " format: tabhtml for use with html output\n";
- print " treepoint: enter a filename\n";
+ print "$0 -r <Requirement> -f <format> [-t treepoint] < <INDEX-file>\n\n";
+ print " Requirement : BuildPreReq or PreReq. \n";
+ print " BuildPreReq is default.\n";
+ print " format: vcg for use with xvcg\n";
+ print " format: dot for use with dot (graphviz)\n";
+ print " format: tabtxt for use with text output\n";
+ print " format: tabhtml for use with html output\n";
+ print " treepoint: enter a filename\n";
exit 1; # exit with error
}
@@ -167,7 +178,11 @@
$x =~s|\<Version\>(.*?)\<\/Version\>|{$version=$1}|egs;
$x =~s|\<Release\>(.*?)\<\/Release\>|{$release=$1}|egs;
- $x =~ s|\<BuildPreReq\>(.*?)\</BuildPreReq\>|{$requires=$1}|egs;
+ if ( $requirement =~ "BuildPreReq") {
+ $x =~ s|\<BuildPreReq\>(.*?)\</BuildPreReq\>|{$requires=$1}|egs;
+ } else {
+ $x =~ s|\<PreReq\>(.*?)\</PreReq\>|{$requires=$1}|egs;
+ }
LOOP: while($requires =~ m|\<rdf:li\>(.*?)\</rdf:li>\n|gx) {
$temp = $1;
@@ -345,7 +360,7 @@
# Write an output for use with xvcg
# Writing a comment
- print "// Dependency graph for OpenPKG\n";
+ print "// $requirement dependency graph for OpenPKG\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$month = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec) [($mon)];
$Year = $year + 1900;
@@ -401,7 +416,7 @@
if($requirepack{$treepoint}) {
# Writing a comment
- print "// Dependency graph of $treepoint for OpenPKG\n";
+ print "// $requirement dependency graph of $treepoint for OpenPKG\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$month = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec) [($mon)];
$Year = $year + 1900;
@@ -456,7 +471,7 @@
if ($acttreepoint eq $roottreepoint) {
print " node: { title:\"$acttreepoint\"
label:\"$acttreepoint\\n$version{$acttreepoint}\" \
textmode: center color:
$colorentry_root_node_background textcolor: \
- i $colorentry_root_node_text level: $level}\n";
+ $colorentry_root_node_text level: $level}\n";
$level = $level + 1 ;
} else {
if ($acttreepoint !~ m/[A-Z]+/) {
@@ -526,8 +541,8 @@
# Generate an ACSII text output
my $tabs;
- print ("Depencies in OpenPKG packages\n");
- print ("=============================\n\n\n");
+ print ("$requirement depencies in OpenPKG packages\n");
+ print ("==========================================\n\n\n");
foreach $key (keys %requirepack) {
$tabs = 10 - length($key);
print ("$key");
@@ -551,7 +566,7 @@
# Generate an ACSII text output for a trees
print ("\n");
- print ("Depencies for $treepoint OpenPKG packages\n");
+ print ("$requirement depencies for $treepoint OpenPKG packages\n");
print ("=========================================\n\n\n");
print ("$treepoint\n");
$j=1;
@@ -603,7 +618,7 @@
print ("<body>\n");
print ("<blockquote>\n");
print (" <center>\n");
- print (" <h1> <u><font color=\"#ff0000\">Depencies in OpenPKG
packages</font></u></h1>\n");
+ print (" <h1> <u><font color=\"#ff0000\">$requirement depencies in OpenPKG
packages</font></u></h1>\n");
print (" </center>\n");
print ("</blockquote>\n");
@@ -640,7 +655,7 @@
print ("<blockquote>\n");
print (" <center>\n");
print
- (" <h1> <u><font color=\"#ff0000\">Depencies in OpenPKG packages for
$treepoint</font></u></h1><br>\n");
+ (" <h1> <u><font color=\"#ff0000\">$requirement depencies in OpenPKG
packages for $treepoint</font></u></h1><br>\n");
print (" </center>\n");
print ("</blockquote>\n");
print ("<hr width=\"100%\">\n");
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List [EMAIL PROTECTED]
