ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/BootStrapProject.pm
(Generate patch)

Comparing COMP/SCRAM/src/BootStrapProject.pm (file contents):
Revision 1.3 by williamc, Wed Mar 3 17:04:13 1999 UTC vs.
Revision 1.5 by williamc, Mon Mar 8 11:02:39 1999 UTC

# Line 23 | Line 23 | sub BootStrapProject($) {
23                  'cvs' => 'none',
24                  'cvs_EndTag' => 'none',
25                  'config_starttag' =>  \&config_starttag,
26 +                'config_endtag' =>  \&config_endtag,
27                  'config' => 'none',
28                  'base' => 'none',
29                  'base_starttag' => \&base_start,
# Line 53 | Line 54 | sub Bootlocaltop($hashref) {
54          $ENV{LOCALTOP}=&cwd."/".$$hashref{'name'}."_".$$hashref{'version'};
55          $scramdir=$ENV{LOCALTOP}."/.SCRAM";
56          &AddDir::adddir($scramdir);
57 +        chdir $ENV{LOCALTOP};
58   }
59  
60   sub project_start {
# Line 72 | Line 74 | sub project_start {
74                  "version=$$hashref{version}>\n";
75          print INSTALLFILE "<base urltype=file value=$scramdir>\n";
76          print INSTALLFILE "<file name=Environment>\n";
77 +        push @{ $basehash{file}}, "$ENV{SCRAM_HOME}/toolbox";
78 +        $lastbasekey='file';
79 +        push @dirstack, $scramdir;
80 +        $currentdir=$scramdir;
81   }
82  
83   sub project_finish {
# Line 93 | Line 99 | sub config_starttag {
99          print ENVIRONMENT 'projconfigdir='.$$hashref{'dir'}."\n";
100          $ENV{SCRAM_BootStrapFiles}=$ENV{SCRAM_BootStrapFiles}.":".
101                  $ENV{LOCALTOP}."/".$$hashref{'dir'};
102 +        push @dirstack, $ENV{LOCALTOP}."/".$$hashref{'dir'};
103 +        $currentdir=$ENV{LOCALTOP}."/".$$hashref{'dir'};
104 +        if ( $switch->context('project') ) {
105 +         print INSTALLFILE "<$name name=$$hashref{dir}>\n";
106 +        }
107 + }
108 + sub config_endtag {
109 +        my $name=shift;
110 +
111 +        pop @dirstack;
112 +        $currentdir=$dirstack[$#dirstack];
113 +        if ( $switch->context('project') ) {
114 +         print INSTALLFILE "</$name>\n";
115 +        }
116   }
117  
118   sub file_start {
# Line 120 | Line 140 | sub reqs_start {
140          $switch->checkparam($hashref, $name, "name");
141          use clientfile;
142          $ENV{SCRAM_ProjReqsDoc}=
143 <        &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
144 <                $scramdir."/".$$hashref{'name'}) ;
143 >          $currentdir."/".$$hashref{'name'};
144 > #       &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
145 > #               $scramdir."/".$$hashref{'name'}) ;
146          if ( $switch->context("project") ) {
147           print INSTALLFILE "<$name name=$$hashref{name}>\n";
148          }
# Line 190 | Line 211 | sub install_finish {
211          my $name=shift;
212          my @vars=@_;
213          my $hashref;
193 –        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}";
214   }
215  
216   sub cvsrep_start {

Diff Legend

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