[ViewVC] Annotation of: cvsroot/COMP/SCRAM/src/scram

#!/usr/local/bin/perl5
#
# User Interface
#

$inputcmd=shift;
$found='false';
$bold  = "\033[1m";
$normal = "\033[0m";
@allowed_commands=qw(project build env install version list arch setup);

foreach $command ( @allowed_commands ) {
         if ( $inputcmd=~/^$command\Z/i) { 
                # Deal with a help request
                do{     helpheader($command);
                        &{"help_".$command}; exit; } if $ARGV[0]=~/help/i;
                &$command; $found='true'; 
                last;
         }
}

if ( ! ( $found=~/true/ ) ) {
        print "scram help\n---------\n";
        print "Recognised Commands: \n";
        foreach $command ( @allowed_commands ) {
        print "       ".$command."\n";  
        }
}

sub build {
        # is this a based or free release?
        FullEnvInit();
        use BuildSetup;
        $ENV{MAKETARGETS}=join ' ',@ARGV;
        BuildSetup($ENV{THISDIR},@ARGV);
#       system("$ENV{TOOL_HOME}/BuildSetup",$ENV{THISDIR},@ARGV);
}

sub project {
        # process options
        while ( $ARGV[0]=~"^-" ) {
         if ( (shift @ARGV)=~/-d/ ) {  #installation area directory 
          chdir $ARGV[0];
          shift @ARGV;
         }
        } 
        my $project=shift @ARGV;
        my $version=shift @ARGV;
        environmentinit();
        use File::Copy;
        use Utilities::AddDir;
        
           use BootStrapProject;
           # get the bootstrap files downloaded
           BootStrapProject("$project\?\?$version");
           # Go setup the rest of the environement, now we can
           chdir $ENV{LOCALTOP};
           &localtop;
           LoadEnvFile();
           #
           # Now create the directories specified in the interface
           #
           foreach $key ( keys %ENV ) {
                if ( $key=~/^INT/ ) {
                        AddDir::adddir($ENV{$key});
                }
           }
           if ( ! -e "$ENV{LOCALTOP}/$ENV{projconfigdir}" ) {
                system("cp", "-r", "$ENV{RELEASETOP}/$ENV{projconfigdir}",
                                "$ENV{LOCALTOP}/$ENV{projconfigdir}");
           }
           use clientfile;
           BuildClientFile( $ENV{SCRAM_ProjReqsDoc} );
           use Cwd;
           print "Installation Located at:\n".cwd()."\n";
           ReturnToContinue();
}

sub FullEnvInit {
    environmentinit();
    localtop();
    LoadEnvFile();
}

sub environmentinit {
        use Utilities::setarchitecture;
        my $name;
        my $value;

        $ENV{LatestBuildFile}=""; # stop recursive behaviour in make
        setarchitecture::setarch();
        $ENV{INTwork}="tmp/$ENV{SCRAM_ARCH}";
        $ENV{INTlib}="lib/$ENV{SCRAM_ARCH}";
        $ENV{INTsrc}="src";
        $ENV{INTbin}="bin/$ENV{SCRAM_ARCH}";
        $ENV{INTlog}="logs";

        if ( ! ( exists $ENV{SCRAM_HOME}) ){
         $ENV{SCRAM_HOME}="/afs/cern.ch/cms/Releases";
         print "Warning : Environment Variable SCRAM_HOME not set.\n";
         print "Defaulting to $ENV{SCRAM_HOME}\n"; 
        }
         if ( ! ( exists $ENV{SCRAM_CONFIG} ) ){
                $ENV{SCRAM_CONFIG}="$ENV{SCRAM_HOME}/configuration";
        }
        if ( ! ( exists $ENV{TOOL_HOME} ) ){
                $ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src";
        }
        if ( ! ( exists $ENV{SCRAM_LOOKUPDB} ) ){
                $ENV{SCRAM_LOOKUPDB}="$ENV{SCRAM_CONFIG}/project.lookup";
        }
}

sub localtop {
        # find localtop
        use Cwd;
        my $thispath=cwd;
        block: {
        do { 
          if ( -e "$thispath/.SCRAM" ) {
                $ENV{LOCALTOP}=$thispath;
                last block;
          }
        } while ( ( $thispath=~s/(.*)\/.*/$1/ )=~/./  ); 
        if ( ! (defined $ENV{LOCALTOP}) ) {
         print "Unable to locate the top of local release. Exiting\n";
         ReturnToContinue();
        }
        } #end block
        ($ENV{THISDIR}=cwd)=~s/^$ENV{LOCALTOP}//;
        $ENV{THISDIR}=~s/^\///;
        $ENV{SCRAM_WORKDIR}="$ENV{LOCALTOP}/.SCRAM";
}

sub LoadEnvFile {
        open ( SCRAMENV, "<$ENV{SCRAM_WORKDIR}/Environment" ) || 
                die "Cant find Environment file $!\n";
        while ( <SCRAMENV> ) {
           chomp;
           next if /^#/;
           next if /^\s*$/ ;
           ($name, $value)=split /=/;
           eval "\$ENV{${name}}=\"$value\"";
        }
        close SCRAMENV;
}

sub env {
   print "Sorry - Not yet\n";
}

#
# Create a lookup tag in the site database
#
sub install ( $tagname, $version ) {
        my $tagname=shift @ARGV;
        my $version=shift @ARGV;

        # create database entry
        &FullEnvInit;
        if ( $version eq "" ) {
           $version=$ENV{SCRAM_PROJVERSION};
        }
        if ( $tagname eq "" ) {
           $tagname=$ENV{SCRAM_PROJECTNAME};
        }
        my $filename="$ENV{SCRAM_CONFIG}/project.lookup";
        my $outfile="$ENV{SCRAM_CONFIG}/project.lookup.tmp";
        open ( LOCALLOOKUPDB, "<$filename" );
        open ( OUTFILE , ">$outfile" );
        while ( <LOCALLOOKUPDB> ) {
            if ( /^$tagname/ ) {
                print "Related tag :".$_."\n";
                if ( /$version/) {
                  print "$tagname $version already exists. Overwrite (y/n)\n";
                  if ( ! (<STDIN>=~/y/i ) ) {
                        print "Aborting install ...\n";
                        close OUTFILE;
                        close LOCALLOOKUPDB;
                        exit 1;
                  }
                }
                else {
                        print OUTFILE $_;
                }
            }
            else {
                print OUTFILE $_;
            }
        }
        print OUTFILE "$tagname:$version:file:$ENV{LOCALTOP}".
                "/.SCRAM/InstallFile\n";
        close OUTFILE;
        close LOCALLOOKUPDB;
        copy ( "$outfile", "$filename" )
                || die "Unable to copy $! \n";

}

sub help_install()  {

print <<ENDTEXT;
Associates a label with the current release in the SCRAM database.
This allows other users to refer to a centrally installed project by
this label rather than a remote url reference.

Usage:

                 scram install [[label] [version]]

label   : override default label (the project name of the current release)
version : the version tag of the current release. If version is not
          specified the base release version will be taken by default.

ENDTEXT
exit;
}

sub helpheader ($label) {
        my $label=shift;
print <<ENDTEXT;
*************************************************************************
                   SCRAM HELP --------- $label 
*************************************************************************
ENDTEXT
}

sub version {
        print "Scram version : prototype\n";
}

sub list {
        &environmentinit;
        my $filename="$ENV{SCRAM_CONFIG}/project.lookup";
        open ( LOCALLOOKUPDB, "<$filename" );
        print "Installed Projects\n";
        print "------------------\n";
        print "|Project Name  | Project Version |\n";
        print "----------------------------------\n";
        while ( <LOCALLOOKUPDB> ) {
          ( $name, $version, $type, $url ) = split ":", $_; 
          printf "%1s",$name;
          printf "%25s\n",$version;
          printf "--> %25s\n",$type.":".$url;
        }
        close LOCALLOOKUPDB;
}

sub arch {
        &environmentinit();
        print "$ENV{SCRAM_ARCH}\n";
}

sub ReturnToContinue {
           print "Press RETURN to exit\n";
           $junk=<STDIN>;
}

#
# Setup a new tool
#

sub setup {
        my $toolname=shift @ARGV;

        &FullEnvInit;
        if ( $ENV{SCRAM_BootStrapFiles}!~/$ENV{LOCALTOP}\/\.SCRAM/ ) {
          $ENV{SCRAM_BootStrapFiles}="$ENV{LOCALTOP}/.SCRAM:".
                        $ENV{SCRAM_BootStrapFiles};
        }
        # Check for the correct toolfile
        # ideally try and download it if not already in .SCRAM
        # Only scram toolbox files supported so far
        if ( ! -e "$ENV{LOCALTOP}/.SCRAM/$toolname" ) {
                &urlhandler::urlhandler("file:$ENV{SCRAM_HOME}/toolbox/"
                        .$toolname, "$ENV{LOCALTOP}/.SCRAM/$toolname") ;
        }
        # Parse the toolfile and update the clientsettings file
        # currently just append to the end
        use clientfile;
        clientfile::openclientfile('add');
        clientfile::_tool("file:$toolname");
        closeclientfile;
}

sub help_setup {

print <<ENDTEXT;
Allows installation of a new tool/external package into an already existing
area.

Usage:

                 scram setup toolname

toolname : The name of the tool setup file required.
ENDTEXT
exit;
}

sub help_list {
print <<ENDTEXT;
Create an entry in the SCRAM database so that an installed project can be
referenced in the 'project' command by a tag/version combination.
Usage: (command to be issued from inside an installed project)

                scram install [project_tag [version_tag]]

If not specified the project_tag and version_tag default to the project 
name and version of the installation.
ENDTEXT
exit;
}
sub help_project {
print <<ENDTEXT;
Setup a new project development area. The new area will appear in the current 
working directory.
Usage:

        $bold scram project [-d install_area] $normal project_url [project_version]

Options:

project_url: The url of a scram bootstrap file.
             Currently supported types are:
                $bold Database label $normal
                        Labels can be assigned to bootstrap files for easy
                        access (See "scram install" command). If you
                        specify a label you must also specify a project_version.
                        e.g.

                           scram project SCRAM V1_0
                                
                           scram project ORCA ORCA_1_1_1

                        To see the list of installed projects use the
                        "scram list" command.

                $bold file: $normal A regular file on an accessable file system
                        e.g.

                           file:~/myprojects/projecta/config/BootStrapFile

project_version:
                 Only for use with a database label

-d install_area:
                 Indicate a project installation area into which the new
                 project area should appear. Default is the current working
                 directory.
        
ENDTEXT
}
Revision:	1.13
Committed:	Thu Mar 25 15:31:37 1999 UTC (26 years, 1 month ago) by williamc
Branch:	MAIN
Changes since 1.12:	+64 -6 lines
Log Message:	Update help system
#	User	Rev	Content
1	williamc	1.8	#!/usr/local/bin/perl5
2	williamc	1.1	#
3			# User Interface
4			#
5
6			$inputcmd=shift;
7			$found='false';
8	williamc	1.13	$bold = "\033[1m";
9			$normal = "\033[0m";
10	williamc	1.12	@allowed_commands=qw(project build env install version list arch setup);
11	williamc	1.1
12			foreach $command ( @allowed_commands ) {
13	williamc	1.13	if ( $inputcmd=~/^$command\Z/i) {
14			# Deal with a help request
15			do{ helpheader($command);
16			&{"help_".$command}; exit; } if $ARGV[0]=~/help/i;
17			&$command; $found='true';
18			last;
19			}
20	williamc	1.1	}
21
22			if ( ! ( $found=~/true/ ) ) {
23	williamc	1.12	print "scram help\n---------\n";
24	williamc	1.1	print "Recognised Commands: \n";
25			foreach $command ( @allowed_commands ) {
26			print " ".$command."\n";
27			}
28			}
29
30			sub build {
31			# is this a based or free release?
32			FullEnvInit();
33			use BuildSetup;
34	williamc	1.10	$ENV{MAKETARGETS}=join ' ',@ARGV;
35	williamc	1.1	BuildSetup($ENV{THISDIR},@ARGV);
36			# system("$ENV{TOOL_HOME}/BuildSetup",$ENV{THISDIR},@ARGV);
37			}
38
39			sub project {
40	williamc	1.7	# process options
41			while ( $ARGV[0]=~"^-" ) {
42			if ( (shift @ARGV)=~/-d/ ) { #installation area directory
43			chdir $ARGV[0];
44			shift @ARGV;
45			}
46			}
47	williamc	1.1	my $project=shift @ARGV;
48			my $version=shift @ARGV;
49			environmentinit();
50			use File::Copy;
51	williamc	1.2	use Utilities::AddDir;
52	williamc	1.1
53			use BootStrapProject;
54			# get the bootstrap files downloaded
55			BootStrapProject("$project\?\?$version");
56			# Go setup the rest of the environement, now we can
57			chdir $ENV{LOCALTOP};
58			&localtop;
59			LoadEnvFile();
60			#
61			# Now create the directories specified in the interface
62			#
63			foreach $key ( keys %ENV ) {
64			if ( $key=~/^INT/ ) {
65	williamc	1.5	AddDir::adddir($ENV{$key});
66	williamc	1.1	}
67			}
68	williamc	1.6	if ( ! -e "$ENV{LOCALTOP}/$ENV{projconfigdir}" ) {
69			system("cp", "-r", "$ENV{RELEASETOP}/$ENV{projconfigdir}",
70			"$ENV{LOCALTOP}/$ENV{projconfigdir}");
71			}
72	williamc	1.1	use clientfile;
73			BuildClientFile( $ENV{SCRAM_ProjReqsDoc} );
74	williamc	1.7	use Cwd;
75			print "Installation Located at:\n".cwd()."\n";
76	williamc	1.11	ReturnToContinue();
77	williamc	1.1	}
78	williamc	1.7
79	williamc	1.1	sub FullEnvInit {
80			environmentinit();
81			localtop();
82			LoadEnvFile();
83			}
84
85			sub environmentinit {
86	williamc	1.2	use Utilities::setarchitecture;
87	williamc	1.1	my $name;
88			my $value;
89
90			$ENV{LatestBuildFile}=""; # stop recursive behaviour in make
91	williamc	1.4	setarchitecture::setarch();
92	williamc	1.1	$ENV{INTwork}="tmp/$ENV{SCRAM_ARCH}";
93			$ENV{INTlib}="lib/$ENV{SCRAM_ARCH}";
94			$ENV{INTsrc}="src";
95			$ENV{INTbin}="bin/$ENV{SCRAM_ARCH}";
96			$ENV{INTlog}="logs";
97
98			if ( ! ( exists $ENV{SCRAM_HOME}) ){
99	williamc	1.8	$ENV{SCRAM_HOME}="/afs/cern.ch/cms/Releases";
100	williamc	1.1	print "Warning : Environment Variable SCRAM_HOME not set.\n";
101			print "Defaulting to $ENV{SCRAM_HOME}\n";
102			}
103			if ( ! ( exists $ENV{SCRAM_CONFIG} ) ){
104	williamc	1.3	$ENV{SCRAM_CONFIG}="$ENV{SCRAM_HOME}/configuration";
105	williamc	1.1	}
106			if ( ! ( exists $ENV{TOOL_HOME} ) ){
107	williamc	1.4	$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src";
108	williamc	1.1	}
109			if ( ! ( exists $ENV{SCRAM_LOOKUPDB} ) ){
110			$ENV{SCRAM_LOOKUPDB}="$ENV{SCRAM_CONFIG}/project.lookup";
111			}
112			}
113
114			sub localtop {
115			# find localtop
116			use Cwd;
117			my $thispath=cwd;
118			block: {
119			do {
120			if ( -e "$thispath/.SCRAM" ) {
121			$ENV{LOCALTOP}=$thispath;
122			last block;
123			}
124			} while ( ( $thispath=~s/(.)\/./$1/ )=~/./ );
125			if ( ! (defined $ENV{LOCALTOP}) ) {
126			print "Unable to locate the top of local release. Exiting\n";
127	williamc	1.11	ReturnToContinue();
128	williamc	1.1	}
129			} #end block
130			($ENV{THISDIR}=cwd)=~s/^$ENV{LOCALTOP}//;
131			$ENV{THISDIR}=~s/^\///;
132			$ENV{SCRAM_WORKDIR}="$ENV{LOCALTOP}/.SCRAM";
133			}
134
135			sub LoadEnvFile {
136			open ( SCRAMENV, "<$ENV{SCRAM_WORKDIR}/Environment" ) \|\|
137			die "Cant find Environment file $!\n";
138			while ( <SCRAMENV> ) {
139			chomp;
140			next if /^#/;
141			next if /^\s*$/ ;
142			($name, $value)=split /=/;
143			eval "\$ENV{${name}}=\"$value\"";
144			}
145			close SCRAMENV;
146			}
147
148			sub env {
149			print "Sorry - Not yet\n";
150			}
151
152			#
153			# Create a lookup tag in the site database
154			#
155			sub install ( $tagname, $version ) {
156			my $tagname=shift @ARGV;
157			my $version=shift @ARGV;
158
159			# create database entry
160			&FullEnvInit;
161			if ( $version eq "" ) {
162			$version=$ENV{SCRAM_PROJVERSION};
163			}
164			if ( $tagname eq "" ) {
165			$tagname=$ENV{SCRAM_PROJECTNAME};
166			}
167			my $filename="$ENV{SCRAM_CONFIG}/project.lookup";
168			my $outfile="$ENV{SCRAM_CONFIG}/project.lookup.tmp";
169			open ( LOCALLOOKUPDB, "<$filename" );
170			open ( OUTFILE , ">$outfile" );
171			while ( <LOCALLOOKUPDB> ) {
172			if ( /^$tagname/ ) {
173			print "Related tag :".$_."\n";
174			if ( /$version/) {
175			print "$tagname $version already exists. Overwrite (y/n)\n";
176			if ( ! (<STDIN>=~/y/i ) ) {
177			print "Aborting install ...\n";
178			close OUTFILE;
179			close LOCALLOOKUPDB;
180			exit 1;
181			}
182			}
183			else {
184			print OUTFILE $_;
185			}
186			}
187			else {
188			print OUTFILE $_;
189			}
190			}
191			print OUTFILE "$tagname:$version:file:$ENV{LOCALTOP}".
192			"/.SCRAM/InstallFile\n";
193			close OUTFILE;
194			close LOCALLOOKUPDB;
195			copy ( "$outfile", "$filename" )
196			\|\| die "Unable to copy $! \n";
197
198			}
199
200			sub help_install() {
201
202			print <<ENDTEXT;
203			Associates a label with the current release in the SCRAM database.
204			This allows other users to refer to a centrally installed project by
205			this label rather than a remote url reference.
206
207			Usage:
208
209			scram install [[label] [version]]
210
211			label : override default label (the project name of the current release)
212			version : the version tag of the current release. If version is not
213			specified the base release version will be taken by default.
214
215			ENDTEXT
216			exit;
217			}
218
219			sub helpheader ($label) {
220			my $label=shift;
221			print <<ENDTEXT;
222			*************************************************************************
223			SCRAM HELP --------- $label
224			*************************************************************************
225			ENDTEXT
226			}
227
228			sub version {
229			print "Scram version : prototype\n";
230			}
231
232			sub list {
233			&environmentinit;
234			my $filename="$ENV{SCRAM_CONFIG}/project.lookup";
235			open ( LOCALLOOKUPDB, "<$filename" );
236			print "Installed Projects\n";
237			print "------------------\n";
238			print "\|Project Name \| Project Version \|\n";
239			print "----------------------------------\n";
240			while ( <LOCALLOOKUPDB> ) {
241			( $name, $version, $type, $url ) = split ":", $_;
242			printf "%1s",$name;
243			printf "%25s\n",$version;
244			printf "--> %25s\n",$type.":".$url;
245			}
246			close LOCALLOOKUPDB;
247			}
248
249			sub arch {
250			&environmentinit();
251			print "$ENV{SCRAM_ARCH}\n";
252	williamc	1.11	}
253
254			sub ReturnToContinue {
255			print "Press RETURN to exit\n";
256			$junk=<STDIN>;
257	williamc	1.12	}
258
259			#
260			# Setup a new tool
261			#
262
263			sub setup {
264			my $toolname=shift @ARGV;
265
266			&FullEnvInit;
267			if ( $ENV{SCRAM_BootStrapFiles}!~/$ENV{LOCALTOP}\/\.SCRAM/ ) {
268			$ENV{SCRAM_BootStrapFiles}="$ENV{LOCALTOP}/.SCRAM:".
269			$ENV{SCRAM_BootStrapFiles};
270			}
271			# Check for the correct toolfile
272			# ideally try and download it if not already in .SCRAM
273			# Only scram toolbox files supported so far
274			if ( ! -e "$ENV{LOCALTOP}/.SCRAM/$toolname" ) {
275			&urlhandler::urlhandler("file:$ENV{SCRAM_HOME}/toolbox/"
276			.$toolname, "$ENV{LOCALTOP}/.SCRAM/$toolname") ;
277			}
278			# Parse the toolfile and update the clientsettings file
279			# currently just append to the end
280			use clientfile;
281			clientfile::openclientfile('add');
282			clientfile::_tool("file:$toolname");
283			closeclientfile;
284			}
285
286	williamc	1.13	sub help_setup {
287	williamc	1.12
288			print <<ENDTEXT;
289			Allows installation of a new tool/external package into an already existing
290			area.
291
292			Usage:
293
294			scram setup toolname
295
296			toolname : The name of the tool setup file required.
297			ENDTEXT
298			exit;
299	williamc	1.13	}
300
301			sub help_list {
302			print <<ENDTEXT;
303			Create an entry in the SCRAM database so that an installed project can be
304			referenced in the 'project' command by a tag/version combination.
305			Usage: (command to be issued from inside an installed project)
306
307			scram install [project_tag [version_tag]]
308
309			If not specified the project_tag and version_tag default to the project
310			name and version of the installation.
311			ENDTEXT
312			exit;
313			}
314			sub help_project {
315			print <<ENDTEXT;
316			Setup a new project development area. The new area will appear in the current
317			working directory.
318			Usage:
319
320			$bold scram project [-d install_area] $normal project_url [project_version]
321
322			Options:
323
324			project_url: The url of a scram bootstrap file.
325			Currently supported types are:
326			$bold Database label $normal
327			Labels can be assigned to bootstrap files for easy
328			access (See "scram install" command). If you
329			specify a label you must also specify a project_version.
330			e.g.
331
332			scram project SCRAM V1_0
333
334			scram project ORCA ORCA_1_1_1
335
336			To see the list of installed projects use the
337			"scram list" command.
338
339			$bold file: $normal A regular file on an accessable file system
340			e.g.
341
342			file:~/myprojects/projecta/config/BootStrapFile
343
344			project_version:
345			Only for use with a database label
346
347			-d install_area:
348			Indicate a project installation area into which the new
349			project area should appear. Default is the current working
350			directory.
351
352			ENDTEXT
353	williamc	1.1	}