[ViewVC] Diff of: cvsroot/COMP/SCRAM/src/BuildSystem/Requirements.pm

Comparing COMP/SCRAM/src/BuildSystem/Requirements.pm (file contents):
Revision 1.6 by sashby, Thu Nov 15 21:18:15 2001 UTC vs.
Revision 1.23 by sashby, Tue Feb 27 11:59:44 2007 UTC

+# distributionurl(tool,version) : return the dist info url for the tool
+package BuildSystem::Requirements;
-+
-+
+BEGIN
-+
+   {
-+
+   die "\n\n".__PACKAGE__.": this package has been moved to Configuration::Requirements. This one is obsolete and can be removed.\n\n";
-+
+   }
-+
+use ActiveDoc::ActiveDoc;
+use Utilities::Verbose;
+require 5.004;
+@ISA=qw(Utilities::Verbose);
-+
+$BuildSystem::Requirements::self;
-+
-+
+sub new
-+
+   {
-+
+   my $class=shift;
-+
+   # Initialise the global package variable:
-+
+   no strict 'refs';
-+
+   $self = defined $self ? $self
-+
+      : (bless {}, $class );
-+
+   $self->{dbstore}=shift;
-+
+   $self->{file}=shift;
-+
+   $self->{cache}=$self->{dbstore}->cache();
-+
-+
+   if ( @_ )
-+
+      {
-+
+      $self->arch(shift);
-+
+      }
-+
+   $self->verbose("Initialising a new Requirements Doc");
-+
+   $self->{mydoctype} = "BuildSystem::Requirements";
-+
+   $self->{mydocversion}="2.0";
-+
+   # Counter for downloaded tools: zero it here. It will
-+
+   # be auto-incremented as each tool is selected:
-+
+   $self->{selectcounter}=0;
-+
-+
+   $self->{Arch}=1;
-+
+   push @{$self->{ARCHBLOCK}}, $self->{Arch};
-+
+   $self->init($self->{file});
-+
+   return $self;
-+
+   }
-+
-+
+sub toolmanager
-+
+   {
-+
+   my $self=shift;
-+
-+
+   @_ ? $self->{toolmanagerobject} = shift
-+
+      : $self->{toolmanagerobject};
-+
-+
+   }
-+
-+
+sub configversion
-+
+   {
-+
+   my $self=shift;
-+
+   @_ ? $self->{configversion} = shift
-+
+      : $self->{configversion};
-+
+   }
-+
-+
+sub url
-+
+   {
-+
+   my $self=shift;
-+
-+
+   if ( @_ )
-+
+      {
-+
+      $self->{file}=shift;
-+
+      }
-+
+   return $self->{file};
-+
+   }
-+
-+
+sub tools
-+
+   {
-+
+   my $self=shift;
-+
+   return @{$self->{tools}};
-+
+   }
-+
-+
+sub toolcomment
-+
+   {
-+
+   my $self=shift;
-+
+   my $tool=shift;
-+
+   my $version=shift;
-+
-+
+   return $self->{reqtext}{$tool}{$version};
-+
+   }
-+
-+
+sub distributionurl
-+
+   {
-+
+   my $self=shift;
-+
+   my $tool=shift;
-+
+   my $version=shift;
-+
-+
+   return ( defined $self->{dist}{$tool}{$version})?
-+
+      $self->{dist}{$tool}{$version}:undef;
-+
+   }
-+
-+
+sub version
-+
+   {
-+
+   my $self=shift;
-+
+   my $tool=shift;
-+
+   return $self->{'version'}{$tool};
-+
+   }
-+
-+
+sub toolurl
-+
+   {
-+
+   my $self=shift;
-+
+   my $tool=shift;
-+
+   return $self->{'url'}{$tool};
-+
+   }
-+
-+
+sub init
-+
+   {
-+
+   my $self=shift;
-+
+   my $url=shift;
-+
+   my $scramdoc=ActiveDoc::ActiveDoc->new($self->{dbstore});
-+
+   $scramdoc->verbosity($self->verbosity());
-+
+   $scramdoc->url($url);
-+
+   $scramdoc->newparse("ordering",$self->{mydoctype},'Subs');
-+
+   $self->{reqcontext}=0;
-+
+   $self->{scramdoc}=$scramdoc;
-+
+   undef $self->{restrictstack};
-+
+   @{$self->{tools}}=();
-+
+   @{$self->{ArchStack}}=();
-+
+   $self->verbose("Initial Document Parse");
-+
+   $self->{scramdoc}->parse("ordering");
-+
+   # Set the config version. If there isn't a version, it means that we
-+
+   # have a stand-alone repository for the toolbox, rather than a CVS
-+
+   # one. Hence, no CVS tag (== version):
-+
+   ($scramdoc->{configurl}->param('version') eq '') ?
-+
+      $self->configversion("STANDALONE") :
-+
+      $self->configversion($scramdoc->{configurl}->param('version'));
-+
+   }
-+
-+
+sub arch
-+
+   {
-+
+   my $self=shift;
-+
+   # $self->arch is the SCRAM_ARCH value:
-+
+   if ( @_ )
-+
+      {
-+
+      $self->{arch}=shift;
-+
+      }
-+
+   else
-+
+      {
-+
+      if ( ! defined $self->{arch} )
-+
+         {
-+
+         $self->{arch}="";
-+
+         }
-+
+      }
-+
+   return $self->{arch};
-+
+   }
-+
-+
+sub archlist
-+
+   {
-+
+   my $self=shift;
-+
+   return @{$self->{ArchStack}};
-+
+   }
-+
-+
+sub getreqforarch
-+
+   {
-+
+   my $self=shift;
-+
+   my $arch=shift;
-+
-+
+   if ( ! defined $self->{reqsforarch}{$arch} )
-+
+      {
-+
+      $self->{reqsforarch}{$arch}=
-+
+         BuildSystem::Requirements->new($self->{dbstore},$self->{file},
-+
+                                        $arch);
-+
+      }
-+
+   return $self->{reqsforarch}{$arch};
-+
+   }
-+
-+
+sub download
-+
+   {
-+
+   my $self=shift;
-+
+   my $tool;
-+
+   $| = 1; # Unbuffer the output
-+
-+
+   print  "Downloading tool descriptions....","\n";
-+
+   print  " ";
-+
+   foreach $tool ( $self->tools() )
-+
+      {
-+
+      print "#";
-+
+      $self->verbose("Downloading ".$self->toolurl($tool));
-+
+      # get into the cache:
-+
+      $self->{scramdoc}->urlget($self->toolurl($tool));
-+
+      }
-+
+   print "\nDone.","\n";
-+
+   # So now add the list of downloaded tools, and which were
-+
+   # selected, to tool cache:
-+
+   print "Tool info cached locally.","\n","\n";
-+
-+
+   # Now copy required info from this object to ToolManager (ToolCache):
-+
+   $self->toolmanager()->downloadedtools($self->{tools});
-+
+   $self->toolmanager()->defaultversions($self->{version});
-+
+   $self->toolmanager()->toolurls($self->{url});
-+
+   $self->toolmanager()->selected($self->{selected});
-+
+   }
-+
-+
+#sub _autoselect
-+
+#   {
-+
+#   my $self=shift;
-+
+#   if ( @_ )
-+
+#      {
-+
+#      $self->{autoselect}=shift;
-+
+#      }
-+
+#   # -- default is true
-+
+#   return ((defined $self->{autoselect})?$self->{autoselect}:1);
-+
+#   }
-+
-+
+sub require()
-+
+   {
-+
+   my $self=shift;
-+
+   my $name=shift;
-+
+   my $hashref=shift;
-+
-+
+   $self->{scramdoc}->checktag( $name, $hashref, 'version');
-+
+   $self->{scramdoc}->checktag( $name, $hashref, 'name');
-+
+   $self->{scramdoc}->checktag( $name, $hashref, 'url');
-+
-+
+   if ( $self->{reqcontext} == 1 )
-+
+      {
-+
+      $self->{scramdoc}->parseerror(
-+
+                                  "Open new $name context without previous </$name>");
-+
+      }
-+
+   $self->{reqcontext}=1;
-+
+   $$hashref{'name'}=~tr[A-Z][a-z];
-+
-+
+   # Add protection so that architecture tags are obeyed during download:
-+
+   if ( $self->{Arch} )
-+
+      {
-+
+      # Add tool to the tool array:
-+
+      push @{$self->{tools}}, $$hashref{'name'};
-+
-+
+      # If the tool already has an entry, modify the version string to
-+
+      # include both versions. The versions can later be separated and
-+
+      # parsed as normal:
-+
+      if (defined $self->{version}{$$hashref{'name'}})
-+
+         {
-+
+         # Don't need an extra entry for this tool onto tool array:
-+
+         pop @{$self->{tools}}, $$hashref{'name'};
-+
+         # Modify the version string to append the other tool version.
-+
+         # Separate using a colon:
-+
+         my $newversion=$self->{version}{$$hashref{'name'}}.":".$$hashref{'version'};
-+
+         $self->{version}{$$hashref{'name'}}=$newversion;
-+
+         }
-+
+      else
-+
+         {
-+
+         $self->{version}{$$hashref{'name'}}=$$hashref{'version'};
-+
+         }
-+
+      # -- make sure the full url is taken
-+
+      my $urlobj=$self->{scramdoc}->expandurl($$hashref{'url'});
-+
+      $self->{url}{$$hashref{'name'}}=$urlobj->url();
-+
-+
+      $self->{creqtool}=$$hashref{'name'};
-+
+      $self->{creqversion}=$$hashref{'version'};
-+
+      $self->{reqtext}{$self->{creqtool}}{$self->{creqversion}}="";
-+
+      }
-+
+   }
-+
-+
+sub require_text
-+
+   {
-+
+   my $self=shift;
-+
+   my $name=shift;
-+
+   my $string=shift;
-+
-+
+   chomp $string;
-+
+   $self->{reqtext}{$self->{creqtool}}{$self->{creqversion}}=
-+
+      $self->{reqtext}{$self->{creqtool}}{$self->{creqversion}}.
-+
+      $string;
-+
+   }
-+
-+
+sub require_end
-+
+   {
-+
+   my $self=shift;
-+
+   my $name=shift;
-+
-+
+   if ( $self->{reqcontext} != 1 )
-+
+      {
-+
+      $self->{scramdoc}->parseerror("No matching tag for </$name>");
-+
+      }
-+
+   else
-+
+      {
-+
+      $self->{reqcontext}=0;
-+
+      }
-+
+   }
-+
-+
+sub select_start
-+
+   {
-+
+   my $self=shift;
-+
+   my $name=shift;
-+
+   my $hashref=shift;
-+
-+
+   $self->{scramdoc}->checktag( $name, $hashref, 'name');
-+
+   $$hashref{'name'}=~tr[A-Z][a-z];
-+
+   if ( $self->{Arch} )
-+
+      {
-+
+      $self->verbose("Selecting ".$$hashref{'name'});
-+
+      # Increment counter:
-+
+      $self->{selectcounter}++;
-+
+      $self->{selected}{$$hashref{'name'}}=$self->{selectcounter};
-+
+      }
-+
+   }
-+
-+
+sub Arch_Start
-+
+   {
-+
+   my $self=shift;
-+
+   my $name=shift;
-+
+   my $hashref=shift;
-+
-+
+   # Check the architecture tag:
-+
+   $self->{scramdoc}->checktag($name, $hashref,'name');
-+
+   ( ($self->arch()=~/$$hashref{name}.*/) )? ($self->{Arch}=1)
-+
+      : ($self->{Arch}=0);
-+
-+
+   $self->verbose(($self->{Arch}?"OK":"skipping")." ".$$hashref{name});
-+
+   push @{$self->{ARCHBLOCK}}, $self->{Arch};
-+
+   push @{$self->{ArchStack}}, $$hashref{'name'};
-+
+   }
-+
-+
+sub Arch_End
-+
+   {
-+
+   my $self=shift;
-+
+   my $name=shift;
-+
+   pop @{$self->{ARCHBLOCK}};
-+
+   $self->{Arch}=$self->{ARCHBLOCK}[$#{$self->{ARCHBLOCK}}];
-+
+   }
-+
-+
+sub disttag
-+
+   {
-+
+   my $self=shift;
-+
+   my $name=shift;
-+
+   my $hashref=shift;
-+
-+
+   if ( exists $$hashref{'url'} )
-+
+      {
-+
+      $self->{dist}{$self->{creqtool}}{$self->{creqversion}}=
-+
+         $$hashref{'url'};
-+
+      }
-+
+   }
-+
-+
+sub select()
-+
+   {
-+
+   my ($xmlparser,$name,%attributes)=@_;
-+
+#   print "Selecting ".$attributes{'name'},"\n";
-+
+   }
-+
-+
+sub select_()
-+
+   {}
-+
-+
+sub AUTOLOAD()
-+
+   {
-+
+   my ($xmlparser,$name,%attributes)=@_;
-+
+   return if $AUTOLOAD =~ /::DESTROY$/;
-+
+   my $name=$AUTOLOAD;
-+
+   $name =~ s/.*://;
-+
+   # Delegate missing function calls to the doc parser class:
-+
+   $self->{scramdoc}->$name(%attributes);
-+
+   }
-<
+sub new {
-<
+        my $class=shift;
-<
+        my $self={};
-<
+        bless $self, $class;
-<
+        $self->{dbstore}=shift;
-<
+        $self->{file}=shift;
-<
+        $self->{cache}=$self->{dbstore}->cache();
-<
+        if ( @_ ) {
-<
+          $self->arch(shift);
-<
+        }
-<
+        $self->verbose("Initialising a new Requirements Doc");
-<
+        $self->{mydocversion}="2.0";
-<
+        $self->{Arch}=1;
-<
+        push @{$self->{ARCHBLOCK}}, $self->{Arch};
-<
+        $self->init($self->{file});
-<
+        return $self;
-<
+}
-<
-<
+sub url {
-<
+        my $self=shift;
-<
+        if ( @_ ) {
-<
+          $self->{file}=shift;
-<
+        }
-<
+        return $self->{file}
-<
+}
-<
-<
+sub setup {
-<
+        my $self=shift;
-<
+        my $toolbox=shift;
-<
+        print ">> In Requirements: setup()\n";
-<
+        my $tool;
-<
+        print ">> Looping over tools: ";
-<
+        foreach $tool ( $self->selectedtools() )
-<
+           {
-<
+           print "\t\t Tool: ",$tool,"\n";
-<
+           $self->verbose("Setting Up Tool $tool");
-<
+           print "\t\t\tGoing to run toolsetup...using $toolbox","\n";
-<
+           $toolbox->toolsetup($tool, $self->version($tool), $self->toolurl($tool));
-<
+           }
-<
+}
-<
-<
+sub tools {
-<
+        my $self=shift;
-<
+        return @{$self->{tools}};
-<
+}
-<
-<
+sub selectedtools {
-<
+        my $self=shift;
-<
+        my @toollist=();
-<
+        foreach $tool (  @{$self->{tools}} ) {
-<
+          if ( $self->{selected}{$tool} == 1 ) {
-<
+                push @toollist, $tool;
-<
+          }
-<
+        }
-<
+        return @toollist;
-<
+}
-<
-<
+sub toolcomment {
-<
+        my $self=shift;
-<
+        my $tool=shift;
-<
+        my $version=shift;
-<
-<
+        return $self->{reqtext}{$tool}{$version};
-<
+}
-<
-<
+sub distributionurl {
-<
+        my $self=shift;
-<
+        my $tool=shift;
-<
+        my $version=shift;
-<
-<
+        return ( defined $self->{dist}{$tool}{$version})?
-<
+                        $self->{dist}{$tool}{$version}:undef;
-<
+}
-<
-<
+sub version {
-<
+        my $self=shift;
-<
+        my $tool=shift;
-<
+        return $self->{'version'}{$tool};
-<
+}
-<
-<
+sub toolurl {
-<
+        my $self=shift;
-<
+        my $tool=shift;
-<
+        return $self->{'url'}{$tool};
-<
+}
-<
-<
+sub init {
-<
+        my $self=shift;
-<
+        my $url=shift;
-<
-<
+        my $switch=ActiveDoc::ActiveDoc->new($self->{dbstore});
-<
+        $switch->verbosity($self->verbosity());
-<
+        $switch->url($url);
-<
+        $switch->newparse("ordering");
-<
+        $switch->addbasetags("ordering");
-<
+        $switch->addtag("ordering","Architecture",
-<
+                                        \&Arch_Start,$self,
-<
+                                        "", $self,
-<
+                                        \&Arch_End, $self);
-<
+        $switch->addtag("ordering","Restrict",
-<
+                                        \&Restrict_start,$self,
-<
+                                        "", $self,
-<
+                                        \&Restrict_end, $self);
-<
+        $switch->addtag("ordering","deselect",
-<
+                                        \&deselect_start,$self,
-<
+                                        "", $self,
-<
+                                        "", $self);
-<
+        $switch->addtag("ordering","select",
-<
+                                        \&select_start,$self,
-<
+                                        "", $self,
-<
+                                        "", $self);
-<
+        $switch->addtag("ordering","distribution",
-<
+                                        \&disttag,$self);
-<
+        $switch->grouptag("Architecture","ordering");
-<
+        $switch->addtag("ordering","require",
-<
+                                        \&require_start,$self,
-<
+                                        \&require_text, $self,
-<
+                                        \&require_end, $self);
-<
-<
+        $self->{reqcontext}=0;
-<
+        $self->{switch}=$switch;
-<
+        undef $self->{restrictstack};
-<
+        @{$self->{tools}}=();
-<
-<
+        my($doctype,$docversion)=$switch->doctype();
-<
+        # -- for backwards compatability only parse if we have a docversion
-<
+        #    defined
-<
+        if ( defined $docversion ) {
-<
+          if ( $docversion eq $self->{mydocversion} ) {
-<
+            @{$self->{ArchStack}}=();
-<
+            $self->verbose("Initial Document Parse");
-<
+            $self->{switch}->parse("ordering");
-<
+          }
-<
+          else {
-<
+            $self->verbose("wrong doc version - not parsing");
-<
+          }
-<
+        }
-<
+        else {
-<
+          $self->verbose("wrong doc type - not parsing");
-<
+        }
-<
+}
-<
-<
+sub arch {
-<
+        my $self=shift;
-<
+        if ( @_ ) {
-<
+          $self->{arch}=shift
-<
+        }
-<
+        else {
-<
+          if ( ! defined $self->{arch} ) {
-<
+            $self->{arch}="";
-<
+          }
-<
+        }
-<
+        return $self->{arch};
-<
+}
-<
-<
+sub archlist {
-<
+        my $self=shift;
-<
+        return @{$self->{ArchStack}};
-<
+}
-<
-<
+sub getreqforarch {
-<
+        my $self=shift;
-<
+        my $arch=shift;
-<
-<
+        if ( ! defined $self->{reqsforarch}{$arch} ) {
-<
+          $self->{reqsforarch}{$arch}=
-<
+                BuildSystem::Requirements->new($self->{dbstore},$self->{file},
-<
+                                                $arch);
-<
+        }
-<
+        return $self->{reqsforarch}{$arch};
-<
+}
-<
-<
-<
+sub download {
-<
+        my $self=shift;
-<
-<
+        my $tool;
-<
+        foreach $tool ( $self->tools() ) {
-<
+          $self->verbose("Downloading ".$self->toolurl($tool));
-<
+          # get into the cache
-<
+          $self->{switch}->urlget($self->toolurl($tool));
-<
+        }
-<
+}
-<
-<
+sub _autoselect {
-<
+        my $self=shift;
-<
+        if ( @_ ) {
-<
+          $self->{autoselect}=shift;
-<
+        }
-<
+        # -- default is true
-<
+        return ((defined $self->{autoselect})?$self->{autoselect}:1);
-<
+}
-<
-<
+# ---- Tag routines
-<
-<
+sub Restrict_start {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
+        my $hashref=shift;
-<
-<
+        $self->{switch}->checktag( $name, $hashref, 'autoselect');
-<
+        if ( $self->{Arch} ) {
-<
+        # -- create selection state stack
-<
+        push @{$self->{restrictstack}}, $self->_autoselect();
-<
+        $self->_autoselect(
-<
+                (($$hashref{'autoselect'}=~/true/i)?1:0));
-<
+        }
-<
+}
-<
-<
+sub Restrict_end {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
-<
+        if ( $self->{Arch} ) {
-<
+        if ( $#{$self->{restrictstack}} >= 0 ) {
-<
+          $self->_autoselect(pop @{$self->{restrictstack}});
-<
+        }
-<
+        else {
-<
+          $self->{switch}->parseerror("Unmatched </$name>");
-<
+        }
-<
+        }
-<
+}
-<
-<
+sub require_start {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
+        my $hashref=shift;
-<
-<
+        $self->{switch}->checktag( $name, $hashref, 'version');
-<
+        $self->{switch}->checktag( $name, $hashref, 'name');
-<
+        $self->{switch}->checktag( $name, $hashref, 'url');
-<
-<
+        if ( $self->{reqcontext} == 1 ) {
-<
+          $self->{switch}->parseerror(
-<
+                "Open new $name conext without previous </$name>");
-<
+        }
-<
+        $self->{reqcontext}=1;
-<
+        $$hashref{'name'}=~tr[A-Z][a-z];
-<
+        push @{$self->{tools}}, $$hashref{'name'};
-<
+        $self->{version}{$$hashref{'name'}}=$$hashref{'version'};
-<
+        # -- make sure the full url is taken
-<
+        my $urlobj=$self->{switch}->expandurl($$hashref{'url'});
-<
+        $self->{url}{$$hashref{'name'}}=$urlobj->url();
-<
-<
+        # -- selection
-<
+        if ( $self->{Arch} ) {
-<
+          if ( $self->_autoselect() ) {
-<
+             $self->{selected}{$$hashref{'name'}}=1;
-<
+          }
-<
+          else {
-<
+             $self->{selected}{$$hashref{'name'}}=0;
-<
+          }
-<
+        }
-<
+        $self->{creqtool}=$$hashref{'name'};
-<
+        $self->{creqversion}=$$hashref{'version'};
-<
+        $self->{reqtext}{$self->{creqtool}}{$self->{creqversion}}="";
-<
+}
-<
-<
+sub require_text {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
+        my $string=shift;
-<
-<
+        chomp $string;
-<
+        $self->{reqtext}{$self->{creqtool}}{$self->{creqversion}}=
-<
+                $self->{reqtext}{$self->{creqtool}}{$self->{creqversion}}.
-<
+                $string;
-<
-<
+}
-<
-<
+sub require_end {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
-<
+        if ( $self->{reqcontext} != 1 ) {
-<
+          $self->{switch}->parseerror("No matching tag for </$name>");
-<
+        }
-<
+        else {
-<
+          $self->{reqcontext}=0;
-<
+        }
-<
+}
-<
-<
+sub select_start {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
+        my $hashref=shift;
-<
-<
+        $self->{switch}->checktag( $name, $hashref, 'name');
-<
+        $$hashref{'name'}=~tr[A-Z][a-z];
-<
+        if ( $self->{Arch} ) {
-<
+           $self->verbose("Selecting ".$$hashref{'name'});
-<
+           $self->{selected}{$$hashref{'name'}}=1;
-<
+        }
-<
+}
-<
-<
+sub deselect_start {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
+        my $hashref=shift;
-<
-<
+        $self->{switch}->checktag( $name, $hashref, 'name');
-<
+        $$hashref{'name'}=~tr[A-Z][a-z];
-<
+        if ( $self->{Arch} ) {
-<
+           $self->verbose("Deselecting ".$$hashref{'name'});
-<
+           $self->{selected}{$$hashref{'name'}}=0;
-<
+        }
-<
+}
-<
-<
+sub Arch_Start {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
+        my $hashref=shift;
-<
-<
+        $self->{switch}->checktag($name, $hashref,'name');
-<
-<
+        ( ($self->arch()=~/$$hashref{name}.*/) )? ($self->{Arch}=1)
-<
+                                                : ($self->{Arch}=0);
-<
+        $self->verbose(($self->{Arch}?"OK":"skipping")." ".$$hashref{name});
-<
+        push @{$self->{ARCHBLOCK}}, $self->{Arch};
-<
+        push @{$self->{ArchStack}}, $$hashref{'name'};
-<
+}
-<
-<
+sub Arch_End {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
-<
+        pop @{$self->{ARCHBLOCK}};
-<
+        $self->{Arch}=$self->{ARCHBLOCK}[$#{$self->{ARCHBLOCK}}];
-<
+}
-<
-<
+sub disttag {
-<
+        my $self=shift;
-<
+        my $name=shift;
-<
+        my $hashref=shift;
-<
-<
+        if ( exists $$hashref{'url'} ) {
-<
+          $self->{dist}{$self->{creqtool}}{$self->{creqversion}}=
-<
+                                                        $$hashref{'url'};
-<
+        }
-<
+}
->
+;

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing COMP/SCRAM/src/BuildSystem/Requirements.pm (file contents): Revision 1.6 by sashby, Thu Nov 15 21:18:15 2001 UTC vs. Revision 1.23 by sashby, Tue Feb 27 11:59:44 2007 UTC

Diff Legend

Comparing COMP/SCRAM/src/BuildSystem/Requirements.pm (file contents):
Revision 1.6 by sashby, Thu Nov 15 21:18:15 2001 UTC vs.
Revision 1.23 by sashby, Tue Feb 27 11:59:44 2007 UTC