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

Comparing COMP/SCRAM/src/BuildSystem/Requirements.pm (file contents):
Revision 1.1 by williamc, Fri Apr 7 08:12:47 2000 UTC vs.
Revision 1.2 by williamc, Mon Aug 28 08:23:09 2000 UTC

-+
+# Requirements Doc - just to get ordering info
-+
+#
-+
+# Interface
-+
+# ---------
-+
+# new(ActiveStore,url[,arch])     : new requirements doc
-+
+# setup(toolbox): set up the requirements into the specified toolbox object
-+
+# download(toolbox)    : download description files (into toolbox cache)
-+
+# tools()       : Return list of ALL requirements (ordered)
-+
+# selectedtools() : Return list of only those tools selected
-+
+# version(tool) : return the version of a given tool
-+
+# toolurl(tool)     : return the url of a given tool
-+
+# getreqforarch(arch) : Return a RequirementsObject corresponding to the
-+
+#                       specified architecture
-+
+# toolcomment(tool,version) : return the comment string for the specified tool
-+
+# distributionurl(tool,version) : return the dist info url for the tool
-+
-+
+package BuildSystem::Requirements;
-+
+use ActiveDoc::ActiveDoc;
-+
+use Utilities::Verbose;
-+
-+
+require 5.004;
-+
+@ISA=qw(Utilities::Verbose);
-+
-+
+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->{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;
-+
-+
+        my $tool;
-+
+        foreach $tool ( $self->selectedtools() ) {
-+
+          $self->verbose("Setting Up Tool $tool");
-+
+          $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->{switch}->parse("ordering");
-+
+          }
-+
+        }
-+
+        else {
-+
+          #print "wrong doc version - not parsing\n";
-+
+        }
-+
+}
-+
-+
+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.1 by williamc, Fri Apr 7 08:12:47 2000 UTC vs. Revision 1.2 by williamc, Mon Aug 28 08:23:09 2000 UTC

Diff Legend

Comparing COMP/SCRAM/src/BuildSystem/Requirements.pm (file contents):
Revision 1.1 by williamc, Fri Apr 7 08:12:47 2000 UTC vs.
Revision 1.2 by williamc, Mon Aug 28 08:23:09 2000 UTC