SCRAM/src/BootStrapProject.pm

#!/usr/local/bin/perl5
# Bootstrap file parser

package BootStrapProject;
require Exporter;
@ISA=qw(Exporter);
@EXPORT=qw(BootStrapProject);
use Utilities::cvsmodule;

sub BootStrapProject($) {
        my $url=shift;  
#       my $outputfile=shift;

        use Utilities::urlhandler;
        use Utilities::Switcher;

        my $filename;
        $BootHash={
                'cvsrep_StartTag' => \&cvsrep_start,
                'cvsrep' => 'none',
                'cvsrep_EndTag' => \&cvsrep_end,
                'cvs_StartTag' => \&cvs_start,
                'cvs' => 'none',
                'cvs_EndTag' => 'none',
                'config_starttag' =>  \&config_starttag,
                'config' => 'none',
                'base' => 'none',
                'base_starttag' => \&base_start,
                'base_endtag' => \&base_end,
                'project' => 'none',
                'project_starttag' => \&project_start,
                'project_endtag' => \&project_finish,
                'install' => \&install,
                'install_starttag' => \&install_start,
                'install_endtag' => \&install_finish,
                'requirements' => 'none',
                'requirements_starttag' => \&reqs_start,
                'file' => 'none',
                'file_starttag' => \&file_start
        };
         $filename=urlhandler::urlhandler($url);
        $switch=Switcher->new($BootHash, $filename);
        $switch->parse();
}

sub Bootlocaltop($hashref) {
        my $hashref=shift;
        use Cwd;
        use Utilities::AddDir;

        $switch->checkparam($hashref, $name, "name");
        $switch->checkparam($hashref, $name, "version");
        $ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$$hashref{'version'};
        $scramdir=$ENV{LOCALTOP}."/.SCRAM";
        &AddDir::adddir($scramdir);
}

sub project_start {
        my $name=shift;
        my @vars=@_;
        my $hashref;

        $hashref=$switch->SetupValueHash( \@vars );
        Bootlocaltop($hashref);
        open ( ENVIRONMENT , ">$scramdir/Environment" ) || die "Unable to open ".
                                "Environment file : $!\n";
        print ENVIRONMENT 'SCRAM_PROJECTNAME='.$$hashref{'name'}."\n";
        print ENVIRONMENT 'SCRAM_PROJVERSION='.$$hashref{'version'}."\n";
        $ENV{SCRAM_BootStrapFiles}=$scramdir;
        open INSTALLFILE, ">$scramdir/InstallFile";
        print INSTALLFILE "<install name=$$hashref{name} ".
                "version=$$hashref{version}>\n";
        print INSTALLFILE "<base urltype=file value=$scramdir>\n";
        print INSTALLFILE "<file name=Environment>\n";
}

sub project_finish {
        print ENVIRONMENT "SCRAM_BootStrapFiles=".$ENV{SCRAM_BootStrapFiles}."\n";
        print ENVIRONMENT "RELEASETOP=$ENV{LOCALTOP}\n";
        close ENVIRONMENT;
        print INSTALLFILE "</install>\n";
        close INSTALLFILE
}

# Set where the project specific configuration files live for the project
sub config_starttag {
        my $name=shift;
        my @vars=@_;
        my $hashref;

        $hashref=$switch->SetupValueHash( \@vars );
        $switch->checkparam($hashref, $name, "dir");
        print ENVIRONMENT 'projconfigdir='.$$hashref{'dir'}."\n";
        $ENV{SCRAM_BootStrapFiles}=$ENV{SCRAM_BootStrapFiles}.":".
                $ENV{LOCALTOP}."/".$$hashref{'dir'};
}

sub file_start {
        my $name=shift;
        my @vars=@_;
        my $hashref;

        $hashref=$switch->SetupValueHash( \@vars );
        $switch->checkparam($hashref, $name, "name");
        # now download the file
        print "Downloading File .... $$hashref{'name'}\n";
        &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'}, 
                         $scramdir."/".$$hashref{'name'}) ;
        if ( $switch->context('project') ) {
         print INSTALLFILE "<$name name=$$hashref{name}>\n";
        }
}

sub reqs_start {
        my $name=shift;
        my @vars=@_;
        my $hashref;

        $hashref=$switch->SetupValueHash( \@vars );
        $switch->checkparam($hashref, $name, "name");
        use clientfile;
        $ENV{SCRAM_ProjReqsDoc}=
        &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
                $scramdir."/".$$hashref{'name'}) ;
        if ( $switch->context("project") ) {
         print INSTALLFILE "<$name name=$$hashref{name}>\n";
        }
}

sub base_start {
        my $name=shift;
        my @vars=@_;
        my $hashref;

        $hashref=$switch->SetupValueHash( \@vars );
        $switch->checkparam($hashref, $name, 'urltype');
        $switch->checkparam($hashref, $name, 'value');
        push @{ $basehash{ $$hashref{'urltype'} }}, $$hashref{'value'};
        $lastbasekey=$$hashref{'urltype'};
        #print $lastbasekey." lastbasekey \n";
}

sub base_end {
        pop @{ $basehash{$lastbasekey} };
}

#sub checkparam($hash, $name, $key) {
#       my $hashref=shift;
#       my $name=shift;
#       my $key=shift;
#
#       if ( ! defined $$hashref{$key} ) {
#           print "BootParser: Badly formed $name tag -".
#                        " undefined $key parameter\n";
#           exit 1;
#        }
#       $$hashref{$key}=~s/["']//;
#}

#Just a file for now!
#Will eventually cross ref with access checker to get types available.
sub geturlbase {
        return "file:".@{$basehash{'file'}}[$#{$basehash{'file'}}];
}


#
# Now deal with an already intalled release base
#

sub install_start {
        my $name=shift;
        my @vars=@_;
        my $hashref;

        $hashref=$switch->SetupValueHash( \@vars );
        Bootlocaltop($hashref);
        
}

# Can use this to print out a project specific message
sub install {
        my $name=shift;
        my $vars=shift;

        print @$vars;
}

sub install_finish {
        my $name=shift;
        my @vars=@_;
        my $hashref;
        use Utilities::AddDir;
        use File::Copy;

        # copy across the files in the config directory
        AddDir::adddir($ENV{LOCALTOP}/$ENV{projconfigdir});
        copy "$ENV{RELEASETOP}/$ENV{projconfigdir}", 
                        "$ENV{LOCALTOP}/$ENV{projconfigdir}";
}

sub cvsrep_start {
        my $name=shift;
        my @vars=@_;
        my $hashref;

          $hashref=$switch->SetupValueHash( \@vars );
          $switch->checkparam($hashref, $name, 'auth' );
          $switch->checkparam($hashref, $name, 'base' );
          $cvsobject=cvsmodule->new();
          $cvsobject->set_base($$hashref{base});
          $cvsobject->set_auth($$hashref{auth});
          if ( exists $$hashref{user} ) {
             $cvsobject->set_user($$hashref{user});
          }
          if ( exists $$hashref{passkey} ) {
             $cvsobject->set_passkey($$hashref{passkey});
          }
}

sub cvsrep_end {
        my $name=shift;
        $cvsobject=undef; #Move out of scope to destroy cvsrep context
}

sub cvs_start {
        my $name=shift;
        my @vars=@_;
        my $hashref;
        
        if ( ! defined $cvsobject )  {
          print "BootStraper: Undefined cvs repository on line ".
                $switch->{linenumber}."\n - set up repository".
                "specifics with the <cvsrep> flag\n";
          exit 1;
        }
        $hashref=$switch->SetupValueHash( \@vars );
        $switch->checkparam( $hashref, $name, "fn" );
        $cvsobject->invokecvs( (split / /, $$hashref{fn} ) );
}
Revision:	1.3
Committed:	Wed Mar 3 17:04:13 1999 UTC (26 years, 2 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Changes since 1.2:	+77 -23 lines
Log Message:	Updates towardsa release
#	User	Rev	Content
1	williamc	1.1	#!/usr/local/bin/perl5
2			# Bootstrap file parser
3
4			package BootStrapProject;
5			require Exporter;
6			@ISA=qw(Exporter);
7			@EXPORT=qw(BootStrapProject);
8	williamc	1.3	use Utilities::cvsmodule;
9	williamc	1.1
10			sub BootStrapProject($) {
11			my $url=shift;
12			# my $outputfile=shift;
13
14	williamc	1.2	use Utilities::urlhandler;
15			use Utilities::Switcher;
16	williamc	1.1
17			my $filename;
18			$BootHash={
19	williamc	1.3	'cvsrep_StartTag' => \&cvsrep_start,
20			'cvsrep' => 'none',
21			'cvsrep_EndTag' => \&cvsrep_end,
22			'cvs_StartTag' => \&cvs_start,
23			'cvs' => 'none',
24			'cvs_EndTag' => 'none',
25	williamc	1.1	'config_starttag' => \&config_starttag,
26			'config' => 'none',
27			'base' => 'none',
28			'base_starttag' => \&base_start,
29			'base_endtag' => \&base_end,
30			'project' => 'none',
31			'project_starttag' => \&project_start,
32			'project_endtag' => \&project_finish,
33			'install' => \&install,
34			'install_starttag' => \&install_start,
35			'install_endtag' => \&install_finish,
36			'requirements' => 'none',
37			'requirements_starttag' => \&reqs_start,
38			'file' => 'none',
39			'file_starttag' => \&file_start
40			};
41	williamc	1.3	$filename=urlhandler::urlhandler($url);
42	williamc	1.1	$switch=Switcher->new($BootHash, $filename);
43			$switch->parse();
44			}
45
46			sub Bootlocaltop($hashref) {
47			my $hashref=shift;
48			use Cwd;
49	williamc	1.2	use Utilities::AddDir;
50	williamc	1.1
51	williamc	1.3	$switch->checkparam($hashref, $name, "name");
52			$switch->checkparam($hashref, $name, "version");
53	williamc	1.1	$ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$$hashref{'version'};
54			$scramdir=$ENV{LOCALTOP}."/.SCRAM";
55	williamc	1.3	&AddDir::adddir($scramdir);
56	williamc	1.1	}
57
58			sub project_start {
59			my $name=shift;
60			my @vars=@_;
61			my $hashref;
62
63			$hashref=$switch->SetupValueHash( \@vars );
64			Bootlocaltop($hashref);
65			open ( ENVIRONMENT , ">$scramdir/Environment" ) \|\| die "Unable to open ".
66			"Environment file : $!\n";
67			print ENVIRONMENT 'SCRAM_PROJECTNAME='.$$hashref{'name'}."\n";
68			print ENVIRONMENT 'SCRAM_PROJVERSION='.$$hashref{'version'}."\n";
69			$ENV{SCRAM_BootStrapFiles}=$scramdir;
70			open INSTALLFILE, ">$scramdir/InstallFile";
71			print INSTALLFILE "<install name=$$hashref{name} ".
72			"version=$$hashref{version}>\n";
73			print INSTALLFILE "<base urltype=file value=$scramdir>\n";
74			print INSTALLFILE "<file name=Environment>\n";
75			}
76
77			sub project_finish {
78			print ENVIRONMENT "SCRAM_BootStrapFiles=".$ENV{SCRAM_BootStrapFiles}."\n";
79			print ENVIRONMENT "RELEASETOP=$ENV{LOCALTOP}\n";
80			close ENVIRONMENT;
81			print INSTALLFILE "</install>\n";
82			close INSTALLFILE
83			}
84
85			# Set where the project specific configuration files live for the project
86			sub config_starttag {
87			my $name=shift;
88			my @vars=@_;
89			my $hashref;
90
91			$hashref=$switch->SetupValueHash( \@vars );
92	williamc	1.3	$switch->checkparam($hashref, $name, "dir");
93	williamc	1.1	print ENVIRONMENT 'projconfigdir='.$$hashref{'dir'}."\n";
94			$ENV{SCRAM_BootStrapFiles}=$ENV{SCRAM_BootStrapFiles}.":".
95			$ENV{LOCALTOP}."/".$$hashref{'dir'};
96			}
97
98			sub file_start {
99			my $name=shift;
100			my @vars=@_;
101			my $hashref;
102
103			$hashref=$switch->SetupValueHash( \@vars );
104	williamc	1.3	$switch->checkparam($hashref, $name, "name");
105	williamc	1.1	# now download the file
106			print "Downloading File .... $$hashref{'name'}\n";
107	williamc	1.3	&urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
108	williamc	1.1	$scramdir."/".$$hashref{'name'}) ;
109			if ( $switch->context('project') ) {
110			print INSTALLFILE "<$name name=$$hashref{name}>\n";
111			}
112			}
113
114			sub reqs_start {
115			my $name=shift;
116			my @vars=@_;
117			my $hashref;
118
119			$hashref=$switch->SetupValueHash( \@vars );
120	williamc	1.3	$switch->checkparam($hashref, $name, "name");
121	williamc	1.1	use clientfile;
122			$ENV{SCRAM_ProjReqsDoc}=
123	williamc	1.3	&urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
124	williamc	1.1	$scramdir."/".$$hashref{'name'}) ;
125			if ( $switch->context("project") ) {
126			print INSTALLFILE "<$name name=$$hashref{name}>\n";
127			}
128			}
129
130			sub base_start {
131			my $name=shift;
132			my @vars=@_;
133			my $hashref;
134
135			$hashref=$switch->SetupValueHash( \@vars );
136	williamc	1.3	$switch->checkparam($hashref, $name, 'urltype');
137			$switch->checkparam($hashref, $name, 'value');
138	williamc	1.1	push @{ $basehash{ $$hashref{'urltype'} }}, $$hashref{'value'};
139			$lastbasekey=$$hashref{'urltype'};
140			#print $lastbasekey." lastbasekey \n";
141			}
142
143			sub base_end {
144			pop @{ $basehash{$lastbasekey} };
145			}
146
147	williamc	1.3	#sub checkparam($hash, $name, $key) {
148			# my $hashref=shift;
149			# my $name=shift;
150			# my $key=shift;
151			#
152			# if ( ! defined $$hashref{$key} ) {
153			# print "BootParser: Badly formed $name tag -".
154			# " undefined $key parameter\n";
155			# exit 1;
156			# }
157			# $$hashref{$key}=~s/["']//;
158			#}
159	williamc	1.1
160			#Just a file for now!
161			#Will eventually cross ref with access checker to get types available.
162			sub geturlbase {
163			return "file:".@{$basehash{'file'}}[$#{$basehash{'file'}}];
164			}
165
166
167			#
168			# Now deal with an already intalled release base
169			#
170
171			sub install_start {
172			my $name=shift;
173			my @vars=@_;
174			my $hashref;
175
176			$hashref=$switch->SetupValueHash( \@vars );
177			Bootlocaltop($hashref);
178
179			}
180
181			# Can use this to print out a project specific message
182			sub install {
183			my $name=shift;
184			my $vars=shift;
185
186			print @$vars;
187			}
188
189			sub install_finish {
190			my $name=shift;
191			my @vars=@_;
192			my $hashref;
193	williamc	1.3	use Utilities::AddDir;
194			use File::Copy;
195
196			# copy across the files in the config directory
197			AddDir::adddir($ENV{LOCALTOP}/$ENV{projconfigdir});
198			copy "$ENV{RELEASETOP}/$ENV{projconfigdir}",
199			"$ENV{LOCALTOP}/$ENV{projconfigdir}";
200			}
201
202			sub cvsrep_start {
203			my $name=shift;
204			my @vars=@_;
205			my $hashref;
206
207			$hashref=$switch->SetupValueHash( \@vars );
208			$switch->checkparam($hashref, $name, 'auth' );
209			$switch->checkparam($hashref, $name, 'base' );
210			$cvsobject=cvsmodule->new();
211			$cvsobject->set_base($$hashref{base});
212			$cvsobject->set_auth($$hashref{auth});
213			if ( exists $$hashref{user} ) {
214			$cvsobject->set_user($$hashref{user});
215			}
216			if ( exists $$hashref{passkey} ) {
217			$cvsobject->set_passkey($$hashref{passkey});
218			}
219			}
220
221			sub cvsrep_end {
222			my $name=shift;
223			$cvsobject=undef; #Move out of scope to destroy cvsrep context
224			}
225
226			sub cvs_start {
227			my $name=shift;
228			my @vars=@_;
229			my $hashref;
230
231			if ( ! defined $cvsobject ) {
232			print "BootStraper: Undefined cvs repository on line ".
233			$switch->{linenumber}."\n - set up repository".
234			"specifics with the <cvsrep> flag\n";
235			exit 1;
236			}
237			$hashref=$switch->SetupValueHash( \@vars );
238			$switch->checkparam( $hashref, $name, "fn" );
239			$cvsobject->invokecvs( (split / /, $$hashref{fn} ) );
240	williamc	1.1	}