[ViewVC] Diff of: cvsroot/COMP/SCRAM/src/Scram/ScramFunctions.pm

Comparing COMP/SCRAM/src/Scram/ScramFunctions.pm (file contents):
Revision 1.1 by williamc, Wed Aug 9 15:58:28 2000 UTC vs.
Revision 1.1.2.7 by williamc, Thu Aug 24 09:59:39 2000 UTC

-+
+#
-+
+# ScramFunctions.pm
-+
+#
-+
+# Written by Christopher Williams
-+
+#
-+
+# Description
-+
+#
-+
+# Interface
-+
+# ---------
-+
+# new()         : A new ScramCommands object
-+
+# project(urlstring,dir[,areaname]): Create a project from the given url file
-+
+#                                       return the area
-+
+# satellite(name,version,installdirectory[,areaname]): create a satellite
-+
+#                                       project from the specified name version
-+
+# addareatoDB(ConfigArea[,name[,version]]) : add area to the db
-+
+# globalcache([cachedirectory])) : return the global cache object/set at dir.
-+
+# scramprojectdb()              : return the scram project DB object
-+
+# areatoolbox(ConfigArea) : return the toolbox of the specified area
-+
+# setuptoolsinarea($area[,$toolname[,$toolversion[,toolfile]) : setup
-+
+# arch()                : get/set the architecture string
-+
-+
+package Scram::ScramFunctions;
-+
+use URL::URLcache;
-+
+use Utilities::Verbose;
-+
+require 5.004;
-+
-+
+@ISA=qw(Utilities::Verbose);
-+
-+
+sub new {
-+
+        my $class=shift;
-+
+        $self={};
-+
+        bless $self, $class;
-+
+        # -- default settings
-+
+        $self->{cachedir}=$ENV{HOME}."/.SCRAM/globalcache";
-+
+        $self->{scramprojectsdbdir}=$ENV{SCRAM_LOOKUPDB};
-+
+        return $self;
-+
+}
-+
-+
+sub project {
-+
+        my $self=shift;
-+
+        my $url=shift;
-+
+        my $installarea=shift;
-+
-+
+        my $areaname="";
-+
+        if ( @_ ) {
-+
+          $areaname=shift;
-+
+        }
-+
+        require Configuration::BootStrapProject;
-+
+        my $bs=Configuration::BootStrapProject->
-+
+                        new($self->globalcache(),$installarea);
-+
+        $self->verbose("BootStrapping $url");
-+
+        my $area=$bs->boot($url,$areaname);
-+
+        if ( ! defined $area ) {
-+
+                $self->error("Unable to create project area");
-+
+        }
-+
+        $area->archname($self->arch());
-+
-+
+        # -- download all tool description files
-+
+        my $req=$self->arearequirements($area);
-+
+        if ( defined $req ) {
-+
+          $req->download($self->areatoolbox($area));
-+
+        }
-+
-+
+        return $area;
-+
+}
-+
-+
+sub setuptoolsinarea {
-+
+        my $self=shift;
-+
+        my $area=shift;
-+
-+
+        # -- initialise
-+
+        $self->_allprojectinitsearcher();
-+
-+
+        # -- create a new toolbox object
-+
+        my $toolbox=$self->areatoolbox($area);
-+
+        $toolbox->searcher($self->_projsearcher());
-+
-+
+        if ( @_ ) {
-+
+            # -- specific tool specified
-+
+            if ( my $rv=$toolbox->toolsetup(@_) ) {
-+
+             if ( $rv eq 1 ) {
-+
+                print "Unknown tool $toolname @ARGV\n";
-+
+                exit 1;
-+
+             }
-+
+            }
-+
+        }
-+
+        else {
-+
+            # -- setup all tools specified in the requirements doc
-+
+            my $reqs=$self->arearequirements($area);
-+
+            $self->verbose("Setup ToolBox from Requirements doc ($reqs)");
-+
+            $reqs->setup($toolbox);
-+
+        }
-+
+}
-+
-+
+sub satellite {
-+
+        my $self=shift;
-+
+        my $name=shift;
-+
+        my $version=shift;
-+
+        my $installarea=shift;
-+
-+
+        my $areaname="";
-+
+        if ( @_ ) {
-+
+          $areaname=shift;
-+
+        }
-+
-+
+        # -- look up scram database for location
-+
+        my $relarea=$self->_lookupareaindb($name,$version);
-+
+        if ( ! defined $relarea ) {
-+
+          $self->error("Unable to Find Project $name $version");
-+
+        }
-+
-+
+        # -- create satellite
-+
+        my $area=$relarea->satellite($installarea,$areaname);
-+
+        $area->archname($self->arch());
-+
-+
+        # -- copy setup info - deprecated by toolbox copy method
-+
+        #$relarea->copysetup($area->location());
-+
-+
+        # -- copy toolbox
-+
+        my $rtb=$self->areatoolbox($relarea);
-+
+        my $tb=$self->areatoolbox($area);
-+
+        $rtb->copytools($tb);
-+
-+
+        # -- copy configuration directory
-+
+        if ( ! -d $area->location()."/".$area->configurationdir() ) {
-+
+          use Utilities::AddDir;
-+
+          AddDir::copydir($relarea->location()."/".$relarea->configurationdir(),
-+
+                $area->location()."/".$area->configurationdir() );
-+
+        }
-+
-+
+        # -- copy RequirementsDoc
-+
+        if ( ! -f $area->requirementsdoc() ) {
-+
+          copy( $relarea->requirementsdoc() , $area->requirementsdoc());
-+
+        }
-+
-+
+        return $area;
-+
+}
-+
-+
+sub addareatoDB {
-+
+        my $self=shift;
-+
+        my $area=shift;
-+
+        my $tagname=shift;
-+
+        my $version=shift;
-+
-+
+        # -- create defaults if necessary
-+
+        if ( (! defined $version)  || ( $version eq "") ) {
-+
+           $version=$area->version();
-+
+        }
-+
+        if ( (! defined $tagname)  || ( $tagname eq "") ) {
-+
+           $tagname=$area->name();
-+
+        }
-+
-+
+        # -- Add to the DB
-+
+        $self->scramprojectdb()->addarea($tagname,$version,$area);
-+
+}
-+
-+
+sub globalcache {
-+
+        my $self=shift;
-+
+        if ( @_ ) {
-+
+          $self->{cachedir}=shift;
-+
+        }
-+
+        if ( ! defined $self->{globalcache} ) {
-+
+          $self->{globalcache}=URL::URLcache->new($self->{cachedir});
-+
+        }
-+
+        return $self->{globalcache};
-+
+}
-+
-+
-+
+sub scramprojectdb {
-+
+        my $self=shift;
-+
+        if ( @_ ) {
-+
+          $self->{scramprojectsdbdir}=shift;
-+
+        }
-+
+        if ( ! defined $self->{scramprojectsdb} ) {
-+
+          require Scram::ScramProjectDB;
-+
+          $self->{scramprojectsdb}=Scram::ScramProjectDB->new(
-+
+                           $self->{scramprojectsdbdir} );
-+
+          $self->{scramprojectsdb}->verbosity($self->verbosity());
-+
+        }
-+
+        return $self->{scramprojectsdb};
-+
+}
-+
-+
+sub areatoolbox {
-+
+        my $self=shift;
-+
+        my $area=shift;
-+
-+
+        my $name=$area->location();
-+
+        if ( ! defined $self->{toolboxes}{$name} ) {
-+
+          # -- create a new toolbox object
-+
+          require BuildSystem::ToolBox;
-+
+          $self->{toolboxes}{$name}=BuildSystem::ToolBox->new($area);
-+
+          $self->{toolboxes}{$name}->verbosity($self->verbosity());
-+
+        }
-+
+        return $self->{toolboxes}{$name};
-+
+}
-+
-+
+sub arearequirements {
-+
+        my $self=shift;
-+
+        my $area=shift;
-+
-+
+        my $name=$area->location();
-+
+        if ( ! defined $self->{requirements}{$name} ) {
-+
+          # -- create a new toolbox object
-+
+          require BuildSystem::Requirements;
-+
+          my $doc=$area->requirementsdoc();
-+
+          my $cache=$area->cache();
-+
+          my $db=$area->objectstore();
-+
+          require ActiveDoc::ActiveStore;
-+
+          my $astore=ActiveDoc::ActiveStore->new($db,$cache);
-+
+          $self->{requirements}{$name}=
-+
+                BuildSystem::Requirements->new($astore,"file:".$doc);
-+
+          $self->{requirements}{$name}->verbosity($self->verbosity());
-+
+          $self->verbose("Requirements Doc (".$self->{requirements}{$name}.
-+
+                                  ") for area :\n $name\n initiated from $doc");
-+
+        }
-+
+        else {
-+
+          $self->verbose("Requirements Doc (".$self->{requirements}{$name}.")");
-+
+        }
-+
+        return $self->{requirements}{$name};
-+
+}
-+
-+
+sub arch {
-+
+        my $self=shift;
-+
-+
+        @_?$self->{arch}=shift
-+
+          :$self->{arch};
-+
+}
-+
-+
+# -------------- Support Routines ------------------------------
-+
-+
-+
+sub _allprojectinitsearcher {
-+
+        if ( ! defined $self->{projsearcher} ) {
-+
+          my $search=_projsearcher();
-+
+          foreach $proj ( $self->scramprojectdb()->list() ) {
-+
+           $search->addproject($$proj[0],$$proj[1]);
-+
+          }
-+
+        }
-+
+}
-+
-+
+sub _projsearcher {
-+
+        if ( ! defined $self->{projsearcher} ) {
-+
+          require Scram::ProjectSearcher;
-+
+          $self->{projsearcher}=Scram::ProjectSearcher->new(
-+
+                        $self->scramprojectdb());
-+
+        }
-+
+        return $self->{projsearcher};
-+
+}
-+
-+
-+
+sub _lookupareaindb {
-+
+        my $self=shift;
-+
-+
+        my $area=undef;
-+
+        # -- Look up the area in the databse
-+
+        my @areas=$self->scramprojectdb()->getarea(@_);
-+
+        if ( $#areas > 0 ) { #ambigous
-+
+                # could ask user - for now just error
-+
+          $self->error("Ambigous request - please be more specific");
-+
+        }
-+
+        elsif ( $#areas != 0 ) { #not found
-+
+          $self->error("The project requested has not been found");
-+
+        }
-+
+        else {
-+
+          $area=$areas[0];
-+
+        }
-+
+        return $area;
-+
+}

Diff Legend

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

Comparing COMP/SCRAM/src/Scram/ScramFunctions.pm (file contents): Revision 1.1 by williamc, Wed Aug 9 15:58:28 2000 UTC vs. Revision 1.1.2.7 by williamc, Thu Aug 24 09:59:39 2000 UTC

Diff Legend

Comparing COMP/SCRAM/src/Scram/ScramFunctions.pm (file contents):
Revision 1.1 by williamc, Wed Aug 9 15:58:28 2000 UTC vs.
Revision 1.1.2.7 by williamc, Thu Aug 24 09:59:39 2000 UTC