src/BuildSystem/Requirements.pm

# Requirements Doc - just to get ordering info
#
# Interface
# ---------
# new(file,URLcache)     : 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 requirements (ordered)
# version(tool) : return the version of a given tool
# url(tool)     : return the url of a given tool

package BuildSystem::Requirements;
use ActiveDoc::SimpleURLDoc;
use Utilities::Verbose;

require 5.004;
@ISA=qw(Utilities::Verbose);

sub new {
        my $class=shift;
        my $self={};
        bless $self, $class;
        $self->{file}=shift;
        $self->{cache}=shift;
        $self->{mydocversion}="2.0";
        $self->{Arch}=1;
        push @{$self->{ARCHBLOCK}}, $self->{Arch};
        $self->init($self->{file});
        return $self;
}

sub setup {
        my $self=shift;
        my $toolbox=shift;

        my $tool;
        foreach $tool ( $self->tools() ) {
          $self->verbose("Setting Up Tool $tool");
          $toolbox->toolsetup($tool, $self->version($tool), $self->url($tool));
        }
}

sub tools {
        my $self=shift;
        return @{$self->{tools}};
}

sub version {
        my $self=shift;
        my $tool=shift;
        return $self->{'version'}{$tool};
}

sub url {
        my $self=shift;
        my $tool=shift;
        return $self->{'url'}{$tool};
}

sub init {
        my $self=shift;
        my $file=shift;

        my $switch=ActiveDoc::SimpleURLDoc->new($self->{cache});
        $switch->filetoparse($file);
        $switch->newparse("doc");
        $switch->addtag("doc","Doc", \&Doc_start,$self,"",$self,"",$self);
        $switch->newparse("ordering");
        $switch->addbasetags("ordering");
        $switch->addtag("ordering","Architecture",
                                        \&Arch_Start,$self,
                                        "", $self,
                                        \&Arch_End, $self);
        $switch->grouptag("Architecture","ordering");
        $switch->addtag("ordering","require",
                                        \&require_start,$self,
                                        "", $self,
                                        "", $self);

        $self->{switch}=$switch;
        @{$self->{tools}}=();
        
        $self->{switch}->parse("doc");
        # -- for backwards compatability only parse if we have a docversion
        #    defined
        if ( defined $self->{docversion} ) { 
          if ( $self->{docversion} eq $self->{mydocversion} ) {
            $self->{switch}->parse("ordering");
          }
        }
        else {
          #print "wrong doc version - not parsing\n";
        }
}

sub download {
        my $self=shift;

        my $tool;
        foreach $tool ( $self->tools() ) {
          $self->verbose("Downloading ".$self->url($tool));
          # get into the cache
          $self->{switch}->urlget($self->url($tool));
        }
}

# ---- Tag routines 

sub Doc_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->checktag( $name, $hashref, 'type');
        $self->{switch}->checktag( $name, $hashref, 'version');

        $self->{docversion}=$$hashref{'version'};
}

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->{Arch} ) {
          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();
        }
}

sub Arch_Start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->checktag($name, $hashref,'name');
        ( ($ENV{SCRAM_ARCH}=~/$$hashref{name}.*/) )? ($self->{Arch}=1)
                                                : ($self->{Arch}=0);
        push @{$self->{ARCHBLOCK}}, $self->{Arch};
}

sub Arch_End {
        my $self=shift;
        my $name=shift;

        pop @{$self->{ARCHBLOCK}};
        $self->{Arch}=$self->{ARCHBLOCK}[$#{$self->{ARCHBLOCK}}];
}
Revision:	1.1.2.4.2.3
Committed:	Fri Aug 11 15:02:37 2000 UTC (24 years, 9 months ago) by williamc
Content type:	text/plain
Branch:	HPWbranch
CVS Tags:	V0_14_0
Changes since 1.1.2.4.2.2:	+0 -30 lines
Log Message:	Get rid of 1.0 stuff - didnt work and not needed
#	User	Rev	Content
1	williamc	1.1.2.1	# Requirements Doc - just to get ordering info
2			#
3			# Interface
4			# ---------
5	williamc	1.1.2.4.2.1	# new(file,URLcache) : new requirements doc
6	williamc	1.1.2.2	# setup(toolbox): set up the requirements into the specified toolbox object
7			# download(toolbox) : download description files (into toolbox cache)
8	williamc	1.1.2.1	# tools() : Return list of requirements (ordered)
9			# version(tool) : return the version of a given tool
10	williamc	1.1.2.2	# url(tool) : return the url of a given tool
11	williamc	1.1.2.1
12			package BuildSystem::Requirements;
13	williamc	1.1.2.4.2.1	use ActiveDoc::SimpleURLDoc;
14	williamc	1.1.2.2	use Utilities::Verbose;
15
16	williamc	1.1.2.1	require 5.004;
17	williamc	1.1.2.2	@ISA=qw(Utilities::Verbose);
18	williamc	1.1.2.1
19			sub new {
20			my $class=shift;
21			my $self={};
22			bless $self, $class;
23			$self->{file}=shift;
24	williamc	1.1.2.4.2.1	$self->{cache}=shift;
25	williamc	1.1.2.4.2.2	$self->{mydocversion}="2.0";
26	williamc	1.1.2.1	$self->{Arch}=1;
27	williamc	1.1.2.3	push @{$self->{ARCHBLOCK}}, $self->{Arch};
28	williamc	1.1.2.1	$self->init($self->{file});
29			return $self;
30			}
31
32	williamc	1.1.2.2	sub setup {
33			my $self=shift;
34			my $toolbox=shift;
35
36			my $tool;
37			foreach $tool ( $self->tools() ) {
38	williamc	1.1.2.4.2.1	$self->verbose("Setting Up Tool $tool");
39	williamc	1.1.2.2	$toolbox->toolsetup($tool, $self->version($tool), $self->url($tool));
40			}
41			}
42
43	williamc	1.1.2.1	sub tools {
44			my $self=shift;
45			return @{$self->{tools}};
46			}
47
48			sub version {
49			my $self=shift;
50			my $tool=shift;
51			return $self->{'version'}{$tool};
52			}
53
54	williamc	1.1.2.2	sub url {
55			my $self=shift;
56			my $tool=shift;
57			return $self->{'url'}{$tool};
58			}
59
60	williamc	1.1.2.1	sub init {
61			my $self=shift;
62			my $file=shift;
63
64	williamc	1.1.2.4.2.1	my $switch=ActiveDoc::SimpleURLDoc->new($self->{cache});
65	williamc	1.1.2.1	$switch->filetoparse($file);
66	williamc	1.1.2.4	$switch->newparse("doc");
67			$switch->addtag("doc","Doc", \&Doc_start,$self,"",$self,"",$self);
68	williamc	1.1.2.1	$switch->newparse("ordering");
69	williamc	1.1.2.4.2.1	$switch->addbasetags("ordering");
70	williamc	1.1.2.3	$switch->addtag("ordering","Architecture",
71			\&Arch_Start,$self,
72			"", $self,
73			\&Arch_End, $self);
74			$switch->grouptag("Architecture","ordering");
75	williamc	1.1.2.1	$switch->addtag("ordering","require",
76			\&require_start,$self,
77			"", $self,
78			"", $self);
79	williamc	1.1.2.4.2.2
80	williamc	1.1.2.1	$self->{switch}=$switch;
81			@{$self->{tools}}=();
82	williamc	1.1.2.4
83			$self->{switch}->parse("doc");
84			# -- for backwards compatability only parse if we have a docversion
85			# defined
86			if ( defined $self->{docversion} ) {
87	williamc	1.1.2.4.2.2	if ( $self->{docversion} eq $self->{mydocversion} ) {
88			$self->{switch}->parse("ordering");
89			}
90	williamc	1.1.2.4	}
91	williamc	1.1.2.4.2.1	else {
92			#print "wrong doc version - not parsing\n";
93			}
94	williamc	1.1.2.2	}
95
96			sub download {
97			my $self=shift;
98
99			my $tool;
100			foreach $tool ( $self->tools() ) {
101			$self->verbose("Downloading ".$self->url($tool));
102	williamc	1.1.2.4.2.1	# get into the cache
103			$self->{switch}->urlget($self->url($tool));
104	williamc	1.1.2.2	}
105	williamc	1.1.2.1	}
106
107			# ---- Tag routines
108	williamc	1.1.2.4
109			sub Doc_start {
110			my $self=shift;
111			my $name=shift;
112			my $hashref=shift;
113
114			$self->{switch}->checktag( $name, $hashref, 'type');
115			$self->{switch}->checktag( $name, $hashref, 'version');
116
117			$self->{docversion}=$$hashref{'version'};
118			}
119
120	williamc	1.1.2.1	sub require_start {
121			my $self=shift;
122			my $name=shift;
123			my $hashref=shift;
124
125			$self->{switch}->checktag( $name, $hashref, 'version');
126			$self->{switch}->checktag( $name, $hashref, 'name');
127	williamc	1.1.2.4.2.1	$self->{switch}->checktag( $name, $hashref, 'url');
128	williamc	1.1.2.1	if ( $self->{Arch} ) {
129			push @{$self->{tools}}, $$hashref{'name'};
130	williamc	1.1.2.2	$self->{version}{$$hashref{'name'}}=$$hashref{'version'};
131	williamc	1.1.2.4.2.1	# -- make sure the full url is taken
132			my $urlobj=$self->{switch}->expandurl($$hashref{'url'});
133			$self->{url}{$$hashref{'name'}}=$urlobj->url();
134	williamc	1.1.2.1	}
135			}
136	williamc	1.1.2.3
137			sub Arch_Start {
138			my $self=shift;
139			my $name=shift;
140			my $hashref=shift;
141
142			$self->{switch}->checktag($name, $hashref,'name');
143			( ($ENV{SCRAM_ARCH}=~/$$hashref{name}.*/) )? ($self->{Arch}=1)
144			: ($self->{Arch}=0);
145			push @{$self->{ARCHBLOCK}}, $self->{Arch};
146			}
147
148			sub Arch_End {
149			my $self=shift;
150			my $name=shift;
151
152			pop @{$self->{ARCHBLOCK}};
153			$self->{Arch}=$self->{ARCHBLOCK}[$#{$self->{ARCHBLOCK}}];
154	williamc	1.1.2.4.2.2	}