ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/BootStrapProject.pm

Comparing COMP/SCRAM/src/BootStrapProject.pm (file contents):
Revision 1.3 by williamc, Wed Mar 3 17:04:13 1999 UTC vs.
Revision 1.4 by williamc, Mon Mar 8 09:56:21 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	+	}
105	+	sub config_endtag {
106	+	pop @dirstack;
107	+	$currentdir=$dirstack[$#dirstack];
108		}
109
110		sub file_start {
#	Line 120 | Line 132 | sub reqs_start {
132		$switch->checkparam($hashref, $name, "name");
133		use clientfile;
134		$ENV{SCRAM_ProjReqsDoc}=
135	<	&urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
136	<	$scramdir."/".$$hashref{'name'}) ;
135	>	$currentdir."/".$$hashref{'name'};
136	>	#       &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
137	>	#               $scramdir."/".$$hashref{'name'}) ;
138		if ( $switch->context("project") ) {
139		print INSTALLFILE "<$name name=$$hashref{name}>\n";
140		}

Diff Legend

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