src/BuildSystem/BuildFile.pm

# BuildFile
#
# Interface
# ---------
# new(ConfigArea)
# ParseBuildFile($base,$path,$file)
# ParseBuildFileExport(filename)
# blockparse(Block) : perform a parse to modify the block
# BlockClassPath() : Return the class path
# ignore()      : return 1 if directory should be ignored 0 otherwise
# classname()   : get/set the associated class
# buildfile()   : get/set BuildFile location
# makefile()    : get the generated makefile

package BuildSystem::BuildFile;
use ActiveDoc::SimpleDoc;
use BuildSystem::ToolBox;
require 5.004;

BEGIN {
$buildfile="BuildFile";
}

sub new {
        my $class=shift;
        my $self={};
        bless $self, $class;
        $self->{area}=shift;
        $self->{toolbox}=$self->{area}->toolbox();
        $self->{localtop}=$self->{area}->location();
        $self->{Arch}=1;
        push @{$self->{ARCHBLOCK}}, $self->{Arch};
        return $self;
}

sub buildfile {
        my $self=shift;
        if ( @_ ) {
          $self->{buildfile}=shift;
        }
        return $self->{buildfile};
}

sub makefile {
        my $self=shift;
        if ( @_ ) {
          $self->{makefile}=shift;
        }
        return $self->{makefile};
}

sub blockparse {
        my $self=shift;
        $self->{block}=shift;

        $self->{switch}=$self->_initswitcher();
        $self->_initblockparse($self->{switch});
}

sub ignore {
        my $self=shift;
        return (defined $self->{ignore})?$self->{ignore}:0;
}

sub _initswitcher {
        my $self=shift;
        my $switch=ActiveDoc::SimpleDoc->new();
        my $parse="makebuild";
        $switch->newparse($parse);
        $switch->addignoretags($parse);
        $self->_commontags($switch,$parse);
        #$switch->addtag($parse,"Build", \&Build_start, $self);
        $switch->addtag($parse,"none",
                                        \&OutToMakefile,$self,
                                        \&OutToMakefile, $self,
                                        "", $self);
        $switch->addtag($parse,"Bin",
                                        \&Bin_start,$self,
                                        \&OutToScreen, $self,
                                        "", $self);
        $switch->addtag($parse,"ProductStore",
                                        \&Store_start,$self,
                                        "", $self,
                                        "", $self);
        $switch->addtag($parse,"LibType",
                                        \&LibType_Start,$self,
                                        \&LibType_text, $self,
                                        \&LibType_end,$self);
        $switch->addtag($parse,"ConfigurationClass",
                                        \&Class_StartTag,$self,
                                        \&OutToMakefile, $self,
                                        "", $self);
        $switch->addtag($parse,"ClassPath",
                                        \&setBlockClassPath,$self,
                                        \&OutToMakefile, $self,
                                        "", $self);
        $switch->addtag($parse,"AssociateGroup",
                                        "",$self,
                                        \&AssociateGroup,$self,
                                        "", $self);
        $switch->addtag($parse,"Environment",
                                        \&Environment_start,$self,
                                        \&OutToMakefile, $self,
                                        \&Environment_end,$self);
        $switch->addtag($parse,"Export",
                                        \&export_start,$self,
                                        \&OutToMakefile, $self,
                                        \&export_end,$self);
        return $switch;
}

sub _initblockparse {
        my $self=shift;
        my $switch=shift;

        my $parse="block";
        $switch->newparse($parse);
        $switch->addignoretags($parse);
        $switch->addtag($parse,"DropDown", 
                                        \&DropDown_start,$self,
                                        "", $self,
                                        "", $self);
        $switch->addtag($parse,"Build", \&Build_start, $self);
}

sub _commontags {
        my $self=shift;
        my $switch=shift;
        my $parse=shift;

        $switch->grouptag("Export",$parse);
        $switch->addtag($parse,"Use",\&Use_start,$self,
                                               \&OutToMakefile, $self,
                                                "", $self);
        $switch->addtag($parse,"Group",\&Group_start,$self,
                                               \&OutToMakefile, $self,
                                                "", $self);
        $switch->grouptag("Group",$parse);
        $switch->addtag($parse,"External",
                                        \&External_StartTag,$self,
                                        \&OutToMakefile, $self,
                                        "", $self);
        $switch->addtag($parse,"lib",
                                        \&lib_start,$self,
                                        \&OutToMakefile, $self,
                                        "", $self);
        $switch->addtag($parse,"Architecture",
                                        \&Arch_Start,$self,
                                        \&OutToMakefile, $self,
                                        \&Arch_End,$self);
        $switch->addtag($parse,"INCLUDE_PATH",
                                        \&IncludePath_Start,$self,
                                        \&OutToMakefile, $self,
                                        "",$self);
        return $switch;
}

sub GenerateMakefile {
        my $self=shift;
        my $infile=shift;
        my $outfile=shift;

        $self->{switch}=$self->_initswitcher();
        $self->{switch}->filetoparse($infile);

        # open a temporary gnumakefile to store output.
        my $fh=FileHandle->new();
        open ( $fh, ">$outfile") or die "Unable to open $outfile for output ".
                                                                "$!\n";
        @{$self->{filehandlestack}}=($fh);

        #  -- make an alias
        *GNUmakefile=$fh;
        if ( -e $ENV{LatestBuildFile} ) {
          print GNUmakefile "include $ENV{LatestBuildFile}\n";
        }
        $self->{switch}->parse("makebuild"); # sort out supported tags
        close GNUmakefile;
        return $outfile;
}

sub ParseBuildFile {
        my $self=shift;
        my $base=shift;
        my $path=shift;
        my $filename=shift @_;
        my $fullfilename;
        if ( $filename!~/^\// ) {
         $fullfilename="$base/$path/$filename";
        }
        else {
         $fullfilename=$filename;
        }
        $self->{path}=$path;
        #print "Processing $fullfilename\n";
        $numbins=0;
        $self->{envnum}=0;
        $self->{envlevel}=0;
        $self->{makefile}="$self->{localtop}/$ENV{INTwork}/$self->{path}/".
                                                                "BuildFile.mk";
        $self->{currentenv}=$self->{makefile};
        $self->{switch}=$self->_initswitcher();
        $self->{switch}->filetoparse($fullfilename);

#       $self->{switch}->{Strict_no_cr}='no';
        #open a temporary gnumakefile to store output.
        use Utilities::AddDir;
        AddDir::adddir("$self->{localtop}/$ENV{INTwork}/$self->{path}");
        $ENV{LatestBuildFile}=$self->GenerateMakefile($fullfilename,
          $self->{localtop}."/".$ENV{INTwork}."/".$self->{path}."/BuildFile.mk"); 
}

sub classname {
        my $self=shift;
        if ( @_ ) {
          $self->{classname}=shift;
        }
        return $self->{classname};
}

sub ParseBuildFile_Export {
        my $self=shift;
        my $filename=shift;
        my $bf=BuildSystem::BuildFile->new($self->{area});
        if ( defined $self->{remoteproject} ) {
           $bf->{remoteproject}=$self->{remoteproject};
        }
        $bf->_parseexport($filename);
        undef $bf;
}

sub _location {
        my $self=shift;
        use File::Basename;

        return dirname($self->{switch}->filetoparse());
}

sub _parseexport {
        my $self=shift;
        my $filename=shift;

        my $switchex=ActiveDoc::SimpleDoc->new();
        $switchex->filetoparse($filename);
        $switchex->newparse("export");
        $switchex->addignoretags("export");
        $switchex->addtag("export","Export",
                                        \&export_start_export,$self,
                                        \&OutToMakefile, $self,
                                        \&export_end_export,$self);
        $self->_commontags($switchex,"export");
        $switchex->allowgroup("__export","export");
#       $switchex->{Strict_no_cr}='no';
        $self->{switch}=$switchex;
        $switchex->parse("export"); # sort out supported tags
}

sub _pushremoteproject {
        my $self=shift;
        my $path=shift;
        
        if ( defined $self->{remoteproject} ) {
          push @{$self->{rpstack}}, $self->{remoteproject};
        }
        $self->{remoteproject}=$path;
}

sub _popremoteproject {
        my $self=shift;
        if ( $#{$self->{rpstack}} >=0 ) {
          $self->{remoteproject}=pop @{$self->{rpstack}};
        }
        else {
          undef $self->{remoteproject};
        }
}

sub _toolmapper {
        my $self=shift;
        if ( ! defined $self->{mapper} ) {
           require BuildSystem::ToolMapper;
           $self->{mapper}=BuildSystem::ToolMapper->new();
        }
        return $self->{mapper};
}


# ---- Tag routines 

#-- Override a class type with the <ConfigurationClass type=xxx> tag
#   the type tag will pick up a pre-defined class type from project space.

sub Class_StartTag {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;
        
        if ( $self->{Arch} ) {
         if ( defined $$hashref{'type'} ) {
                $self->classname($$hashref{'type'});
         }
        }
}
 
sub IncludePath_Start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->checktag( $name, $hashref, 'path');
        if ( $self->{Arch} ) {
          print GNUmakefile "INCLUDE+=".$self->_location()."/".
                                                $$hashref{'path'}."\n";
        }
}

#
# generic build tag
#
sub Build_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->checktag($name,$hashref,'class');
        $self->{switch}->checktag($name,$hashref,'id');
        if ( $self->{Arch} ) {

          # -- determine the build products name
          my $name;
          if ( exists $$hashref{'name'} ) {
            $name=$$hashref{'name'};
          }
          else { 
            $self->{switch}->parseerror("No name specified for build product");
            #$name="\$(buildname)";
          }

          # -- check we have a lookup for the class type
          my $mapper=$self->_toolmapper();
          if ( ! $mapper->exists($$hashref{'class'}) ) {
            $self->{switch}->parseerror("Unknown class : ".$$hashref{'class'});
          }
          else {
           my @types=$self->_toolmapper()->types($$hashref{'class'});
           my @deftypes=$self->_toolmapper()->defaulttypes($$hashref{'class'});

           my $fh=$self->{filehandlestack}[0];
           my @targets=();

           # -- generate generic targets
           print $fh "ifndef _BuildLink_\n";
           print $fh "# -- Generic targets\n";
           push @targets, $$hashref{'class'};
           foreach $dtype ( @deftypes ) {
            print $fh $$hashref{'class'}."::".$$hashref{'class'}."_".
                                                                $dtype."\n";
           }
           print $fh "\n";

           # -- generate targets for each type
           foreach $type ( @types ) {

            # -- generic name for each type
            my $pattern=$$hashref{'class'}."_".$type;
            my $dirname=$$hashref{'class'}."_".$type."_".$name;
            print $fh "# ------ $pattern rules ---------------\n";
            print $fh $$hashref{'class'}."_".$type."::".$$hashref{'class'}.
                                                        "_".$type."_$name\n\n";

            # -- create a new directory for each type
            push @targets, $pattern;
            my $dirname=$$hashref{'class'}."_".$type."_".$name;
            my $here="$self->{localtop}/$ENV{INTwork}/".$self->{path}."/".$dirname;
            my $makefile=$here."/BuildFile.mk";
#           AddDir::adddir($here);

            # -- create link targets to the directory
            push @targets, $dirname;
            print $fh "# -- Link Targets to $type directories\n";
            print $fh "$dirname: make_$dirname\n";
            print $fh "\t\@cd $here; \\\n";
            print $fh "\t\$(MAKE) LatestBuildFile=$makefile _BuildLink_=1".
                        " workdir=$here ".
                        " -f \$(TOOL_HOME)/basics.mk datestamp \$\@; \n\n";

            # -- write target to make makefile for each directory
            print $fh "# -- Build target directories\n";
            print $fh "make_$dirname:\n";
            print $fh "\tif [ ! -e \"$makefile\" ]; then \\\n";
            print $fh "\t if [ ! -d \"$here\" ]; then \\\n";
            print $fh "\t  mkdir $here; \\\n";
            print $fh "\t fi;\\\n";
            print $fh "\t cd $dirname; \\\n";
            print $fh "\t echo include ".$self->{currentenv}." > ".
                                                        "$makefile; \\\n";
            print $fh "\t echo VPATH+=$self->{localtop}/".$self->{path}.
                                        " >> $makefile; \\\n";
            print $fh "\t echo buildname=$name >> $makefile;\\\n";
            print $fh "\t echo ".$dirname.":".$pattern." >> $makefile;\\\n";
            if ( defined (my @file=$mapper->rulesfile($$hashref{'class'})) ) {
             foreach $f ( @file ) {
              print $fh "\t echo -include $f >> $makefile; \\\n";
             }
            }
            print $fh "\tfi\n";
            print $fh "\n";
#           print $typefile "$name :\n";
#           print $typefile "\t\$(_quietbuild_)";
#           print $typefile $mapper->template($$hashref{'class'},$type)."\n";
#           print $typefile "\t\$(_quietstamp_)";
#           print $typefile "\$(SCRAMPERL) \$(SCRAM_HOME)/src/scramdatestamp \$@.ds \$@ \$^\n";

            # -- cleaning targets
            push @targets, "clean_$dirname";
            print $fh "# -- cleaning targets\n";
            print $fh "clean::clean_$dirname\n";
            print $fh "clean_".$dirname."::\n";
            print $fh "\t\@echo cleaning $dirname\n";
            print $fh "\t\@if [ -d $here ]; then \\\n";
            print $fh "\tcd $here; \\\n";
            print $fh "\t\$(MAKE) LatestBuildFile=$makefile workdir=".
                        $here." _BuildLink_=1 -f ".
                        "\$(TOOL_HOME)/basics.mk clean; \\\n";
            print $fh "\tfi\n\n";


          }
          # -- help targets
          print $fh "helpheader::\n";
          print $fh "\t\@echo Targets available:\n";
          print $fh "\t\@echo ------------------\n\n";
          print $fh "help::helpheader\n";
          foreach $target ( @targets ) {
            print $fh "help::\n";
            print $fh "\t\@echo $target\n"
          }
          print $fh "endif\n";
         } # end else
        }
}

sub Bin_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        my $fileclass;
        my @tools;
        my $tool;
        my $filename;
        my $objectname;
        
        $self->{switch}->checktag($name,$hashref,'file');
        if ( $self->{Arch} ) {
        if ( ! defined $$hashref{name} ) {
                ($$hashref{name}=$$hashref{file})=~s/\..*//;
        }
        ($filename=$$hashref{file})=~s/\..*//;

        # Create a new directory for each binary target
        my $dirname="bin_".$$hashref{name};
        AddDir::adddir("$self->{localtop}/$ENV{INTwork}/".$self->{path}."/$dirname");
        open (binGNUmakefile, 
           ">$self->{localtop}/$ENV{INTwork}/".$self->{path}."/$dirname/BuildFile.mk") or die           "Unable to make $self->{localtop}/$ENV{INTwork}/$self->{path}/$dirname/".
           "BuildFile.mk $!\n";

        # Create the link targets
        $numbins++;
        my $fh=$self->{filehandlestack}[0];
        print $fh <<ENDTEXT;

# Link Targets to binary directories
ifdef BINMODE
# We dont want to build a library here
override files:=
endif
ifndef BINMODE

define stepdown_$$hashref{'name'}
if [ -d "$self->{localtop}/$ENV{INTwork}/$self->{path}/$dirname" ]; then \\
cd $self->{localtop}/$ENV{INTwork}/$self->{path}/$dirname; \\
\$(MAKE) BINMODE=true LatestBuildFile=$self->{localtop}/$ENV{INTwork}/$self->{path}/$dirname/BuildFile.mk workdir=\$(workdir)/$dirname -f \$(TOOL_HOME)/basics.mk datestamp \$\@; \\
fi
endef

define stepdown2_$$hashref{'name'}
if [ -d "$self->{localtop}/$ENV{INTwork}/$self->{path}/$dirname" ]; then \\
cd $self->{localtop}/$ENV{INTwork}/$self->{path}/$dirname; \\
\$(MAKE) BINMODE=true LatestBuildFile=$self->{localtop}/$ENV{INTwork}/$self{path}/$dirname/BuildFile.mk workdir=\$(workdir)/$dirname -f \$(TOOL_HOME)/basics.mk datestamp \$\*; \\
fi

endef

bin_$$hashref{'name'}_%:: dummy
        \@\$(stepdown2_$$hashref{'name'})

$$hashref{'name'}_%:: dummy
        \@\$(stepdown_$$hashref{'name'})

help bin bin_debug bin_debug_local bin_insure bin_Insure clean $$hashref{'name'}:: dummy
        \@\$(stepdown_$$hashref{'name'})

binfiles+=$$hashref{'file'}
locbinfiles+=$dirname/$$hashref{'file'}
endif


ENDTEXT


# the binary specifics makefile
        print binGNUmakefile "include ".$self->{currentenv}."\n";
        print binGNUmakefile "VPATH+=$self->{localtop}/$self{path}\n";

# alias for bin_Insure
        print binGNUmakefile <<ENDTEXT;

bin_insure:bin_Insure
ifdef MAKETARGET_bin_insure
MAKETARGET_$$hashref{name}_Insure=1
endif

# debuggging target
$$hashref{'name'}_echo_% :: echo_%

# help targets
help::
\t\@echo Targets For $$hashref{'name'}
\t\@echo -------------------------------------
\t\@echo $$hashref{'name'}  - default build
\t\@echo bin_$$hashref{'name'}_clean - executable specific cleaning
ENDTEXT

# Make generic rules for each type
        $targettypes={
                "bin" => 'o',
                "bin_debug" => 'd',
                "bin_debug_local" => 'l_d',
                "bin_Insure" => 'Insure'
        };
        #
        foreach $target ( keys %$targettypes ) {
          print binGNUmakefile <<ENDTEXT;

# Type $target specifics 
ifdef MAKETARGET_$target
MAKETARGET_$$hashref{name}_$$targettypes{$target}=1
endif
$target ::$$hashref{name}_$$targettypes{$target}

bintargets+=$$hashref{name}_$$targettypes{$target}
help::
\t\@echo $$hashref{name}_$$targettypes{$target}
clean::
\t\@if [ -f \$(binarystore)/$$hashref{name}_$$targettypes{$target} ]; then \\
\techo Removing \$(binarystore)/$$hashref{name}; \\
\trm \$(binarystore)/$$hashref{name}_$$targettypes{$target}; \\
\tfi

ENDTEXT
          ($objectname=$$hashref{file})=~s/\..*/_$$targettypes{$target}\.o/;
          ${"objectname_$$targettypes{$target}"}=$objectname;
          print binGNUmakefile "$objectname:$$hashref{name}.dep\n";
        } # end loop

        print binGNUmakefile "$$hashref{name}_Insure.exe:.psrc\n";
        print binGNUmakefile "$$hashref{name}_d.exe:$objectname_d\n";
        print binGNUmakefile "\t\$(CClinkCmdDebug)\n";
        print binGNUmakefile "\t\@\$(SCRAMPERL) \$(SCRAM_HOME)/src/scramdatestamp \$\@\.ds \$\@ \$\^\n";
        print binGNUmakefile "$$hashref{name}_l_d.exe:$objectname_d\n";
        print binGNUmakefile "\t\$(CClinkCmdDebugLocal)\n";
        print binGNUmakefile "\t\@\$(SCRAMPERL) \$(SCRAM_HOME)/src/scramdatestamp \$\@\.ds \$\@ \$\^\n";
        print binGNUmakefile "$$hashref{name}_Insure.exe:$objectname_Insure\n";
        print binGNUmakefile "\t\$(CClinkCmdInsure)\n";
        print binGNUmakefile "\t\@\$(SCRAMPERL) \$(SCRAM_HOME)/src/scramdatestamp \$\@\.ds \$\@ \$\^\n";
        print binGNUmakefile "$$hashref{name}_o.exe:$objectname_o\n";
        print binGNUmakefile "\t\$(CClinkCmd)\n";
        print binGNUmakefile "\t\@\$(SCRAMPERL) \$(SCRAM_HOME)/src/scramdatestamp \$\@\.ds \$\@ \$\^\n";
        print binGNUmakefile "$$hashref{name}.dep:$$hashref{file}\n";
        print binGNUmakefile "-include $$hashref{name}.dep\n";
print binGNUmakefile <<ENDTEXT;
clean::
\t\@if [ -f \$(binarystore)/$$hashref{name} ]; then \\
\techo Removing \$(binarystore)/$$hashref{name}; \\
\trm \$(binarystore)/$$hashref{name}; \\
\tfi

$$hashref{name}_d.exe:\$(libslocal_d)
$$hashref{name}_o.exe:\$(libslocal)
ifdef MCCABE_DATA_DIR
$$hashref{name}_mccabe.exe: \$(libslocal_d) \$(MCCABE_DATA_DIR)/mccabeinstr/instplus.cpp
endif
$$hashref{name}_Insure.exe:\$(libslocal_I)
$$hashref{name}_d:$$hashref{name}_d.exe
        \@cp $$hashref{name}_d.exe \$(binarystore)/$$hashref{name}
$$hashref{name}_l_d:$$hashref{name}_l_d.exe
        \@cp $$hashref{name}_l_d.exe \$(binarystore)/$$hashref{name}
$$hashref{name}_Insure:$$hashref{name}_Insure.exe
        \@cp $$hashref{name}_Insure.exe \$(binarystore)/$$hashref{name}_Insure
$$hashref{name}:$$hashref{name}_d.exe
        \@mv $$hashref{name}_d.exe \$(binarystore)/$$hashref{name}
$$hashref{name}_o:$$hashref{name}_o.exe
        \@mv $$hashref{name}_o.exe \$(binarystore)/$$hashref{name}
binfiles+=$$hashref{file}
ENDTEXT
        }
        close binGNUmakefile;
}

sub External_StartTag {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;
        
        my $tool;
        if ( $self->{Arch} ) {
        $self->{switch}->checktag($name,$hashref,'ref');

        # -- oo toolbox stuff
        # - get the appropriate tool object
        $$hashref{'ref'}=~tr[A-Z][a-z];
        if ( ! exists $$hashref{'version'} ) {
         $tool=$self->{toolbox}->gettool($$hashref{'ref'});
        }
        else {
         $tool=$self->{toolbox}->gettool($$hashref{'ref'},$$hashref{'version'});
        }
        if ( ! defined $tool ) {
          $self->{switch}->parseerror("Unknown Tool Specified ("
                                                        .$$hashref{'ref'}.")");
        }

        # -- old fashioned GNUmakefile stuff
        print GNUmakefile $$hashref{'ref'};
        if ( defined $$hashref{'version'} ) {
                print GNUmakefile "_V_".$$hashref{'version'};
        }
        print GNUmakefile "=true\n";
        
        # -- Sub system also specified?
        if ( exists $$hashref{'use'} ) {
           # -- look for a buildfile
           my @paths=$tool->getfeature("INCLUDE");
           my $file="";
           my ($path,$testfile);
           foreach $path ( @paths ) {
             $testfile=$path."/".$$hashref{'use'}."/BuildFile" ;
             if ( -f $testfile ) { 
                $file=$testfile; 
                $self->_pushremoteproject($path);
             }
           }
           if ( $file eq "" ) {
             $self->{switch}->parseerror("Unable to find SubSystem $testfile");
           }
           $self->ParseBuildFile_Export($file);
           $self->_popremoteproject();
         }
        }
}       

sub Group_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;
        
        $self->{switch}->checktag($name, $hashref, 'name');
        if ( $self->{Arch} ) {
        print GNUmakefile "GROUP_".$$hashref{'name'};
        if ( defined $$hashref{'version'} ) {
                print GNUmakefile "_V_".$$hashref{'version'};
        }
        print GNUmakefile "=true\n";
        }
}       

sub Use_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;
        my $filename;
        use Utilities::SCRAMUtils;
        
        $self->{switch}->checktag($name, $hashref, "name");
        if ( $self->{Arch} ) {
        if ( exists $$hashref{'group'} ) {
          print GNUmakefile "GROUP_".$$hashref{'group'}."=true\n";
        }
        if ( ! defined $self->{remoteproject} ) {
          $filename=SCRAMUtils::checkfile(
                "/$ENV{INTsrc}/$$hashref{name}/BuildFile");
        }
        else {
          $filename=$self->{remoteproject}."/$$hashref{name}/BuildFile";
        print "trying $filename\n";
          if ( ! -f $filename ) { $filename=""; };
        }
        if ( $filename ne "" ) {
          $self->ParseBuildFile_Export( $filename );
        }
        else {
           $self->{switch}->parseerror("Unable to detect Appropriate ".
                "decription file for <$name name=".$$hashref{name}.">");
        }
        }
}

# List association groups between <AssociateGroup> tags
# seperated by newlines or spaces
sub AssociateGroup {
        my $self=shift;
        my $name=shift;
        my $string=shift;
        my $word;

        if ( $self->{Arch} ) {
        foreach $word ( (split /\s/, $string) ){
                chomp $word;
                next if /^#/;
                if ( $word=~/none/ ) { 
                        $self->{ignore}=1;
                }
        }
        }
}

sub Arch_Start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->checktag($name, $hashref,'name');
        ( ($ENV{SCRAM_ARCH}=~/$$hashref{name}.*/) )? ($self->{Arch}=1) 
                                                : ($self->{Arch}=0);
        push @{$self->{ARCHBLOCK}}, $self->{Arch};
}

sub Arch_End {
        my $self=shift;
        my $name=shift;

        pop @{$self->{ARCHBLOCK}};
        $self->{Arch}=$self->{ARCHBLOCK}[$#{$self->{ARCHBLOCK}}];
}

# Split up the Class Block String into a useable array
sub _CutBlock {
    my $self=shift;
    my $string= shift @_;
    @BlockClassA = split /\//, $string;
}

sub OutToMakefile {
        my $self=shift;
        my $name=shift;
        my @vars=@_;

        if ( $self->{Arch} ) {
          print GNUmakefile @vars;
        }
}

sub OutToScreen {
        my $name=shift;
        my @vars=@_;

        if ( $self->{Arch} ) {
          print @vars;
        }
}
sub setBlockClassPath {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->checktag($name, $hashref, 'path');
        $self->{BlockClassPath}=$self->{BlockClassPath}.":".$$hashref{path};
        $self->_CutBlock($$hashref{path});
}

sub BlockClassPath {
        my $self=shift;
        return $self->{BlockClassPath};
}

sub export_start_export {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->opengroup("__export");
}

sub export_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->opengroup("__export");
        if ( exists $$hashref{autoexport} ) {
          print GNUmakefile "scram_autoexport=".$$hashref{autoexport}."\n";
          if ( $$hashref{autoexport}=~/true/ ) {
           $self->{switch}->allowgroup("__export","makebuild");
          }
          else {
           $self->{switch}->disallowgroup("__export","makebuild");
          }
        }
        # -- allow default setting from other makefiles
        print GNUmakefile "ifeq (\$(scram_autoexport),true)\n";
}

sub export_end_export {
        my $self=shift;
        $self->{switch}->closegroup("__export");
}

sub export_end {
        my $self=shift;
        $self->{switch}->closegroup("__export");
        print GNUmakefile "endif\n";
}

#
# Standard lib tag 
#
sub lib_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        $self->{switch}->checktag($name, $hashref, 'name');
        if ( $self->{Arch} ) {
           print GNUmakefile "lib+=$$hashref{name}\n";
        }
}

#
# libtype specification
#
sub LibType_Start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        if ( $self->{Arch} ) {
        if ( defined $self->{libtype_conext} ) {
          $self->{switch}->parseerror("<$name> tag cannot be specified".
                " without a </$name> tag to close previous context");
        }
        else {
        $self->{libtype_conext}=1;
        $self->{switch}->checktag($name, $hashref, 'type');
        
        print GNUmakefile "# Specify Library Type\n";
        print GNUmakefile "DefaultLibsOff=yes\n";
        if ( $$hashref{'type'}=~/^archive/i ) {
          print GNUmakefile "LibArchive=true\n";
        }
        elsif ($$hashref{'type'}=~/debug_archive/i ) {
          print GNUmakefile "LibDebugArchive=true\n";
        }
        elsif ($$hashref{'type'}=~/debug_shared/i ) {
          print GNUmakefile "LibDebugShared=true\n";
        }
        elsif ($$hashref{'type'}=~/shared/i ) {
          print GNUmakefile 'LibShared=true'."\n";
        }
        print GNUmakefile "\n";
        }
        }
}

sub LibType_text {
        my $self=shift;
        my $name=shift;
        my $string=shift;

        if ( $self->{Arch} ) {
          $string=~s/\n/ /g;
          print GNUmakefile "libmsg::\n\t\@echo Library info: ";
          print GNUmakefile $string;
          print GNUmakefile "\n";
        }
}

sub LibType_end {
        my $self=shift;
        my $name=shift;

        undef $self->{libtype_conext};
}

sub Environment_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        if ( $self->{Arch} ) {
          $self->{envnum}++;

          # open a new Environment File
          my $envfile="$self->{localtop}/$ENV{INTwork}/$self->{path}/Env_".
                $self->{envnum}.".mk";
          use FileHandle;
          my $fh=FileHandle->new();
          open ($fh,">$envfile") or die "Unable to open file $envfile \n$!\n";
          push @{$self->{filehandlestack}}, $fh;
          *GNUmakefile=$fh;

          # include the approprate environment file
          if ( $self->{envlevel} == 0 ) {
             print GNUmakefile "include $self->{localtop}/$ENV{INTwork}/".
                $self->{path}."/BuildFile.mk\n";
          }
          else {
             print GNUmakefile "include $self->{localtop}/$ENV{INTwork}/".
                $self->{path}."/Env_".$self->{Envlevels}[$self->{envlevel}].".mk\n";
          }
          $self->{envlevel}++;
          $self->{Envlevels}[$self->{envlevel}]=$self->{envnum};
          $self->{currentenv}="$self->{localtop}/$ENV{INTwork}/$self->{path}/Env_$self->{envnum}.mk";
        }
}

sub Environment_end {
        my $self=shift;
        my $fd;

        if ( $self->{Arch} ) {
          $self->{envlevel}--;
          if ( $self->{envlevel} < 0 ) {
            print "Too many </Environent> Tags on $self->{switch}->line()\n";
            exit 1;
          }
          close GNUmakefile;
          # restore the last filehandle
          $fd=pop @{$self->{filehandlestack}};
          close $fd;
          *GNUmakefile=$self->{filehandlestack}[$#{$self->{filehandlestack}}];
          if ( $self->{envlevel} < 1 ) {
            $self->{currentenv}="$self->{localtop}/$ENV{INTwork}/$self->{path}/".
                        "BuildFile.mk";
          }
          else {
            $self->{currentenv}=
             $self->{localtop}."/$ENV{INTwork}/$self->{path}/Env_".
                $self->{Envlevels}[$self->{envlevel}];
          }
        }
}

sub Store_start {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        if ( $self->{Arch} ) {
          $self->{switch}->checktag( $name, $hashref, 'name' );

          # -- store creation
          my $dir=$$hashref{'name'};
          AddDir::adddir($self->{area}->location()."/".$dir);
          if ( exists $$hashref{'type'} ) {
            # -- architecture specific store
            if ( $$hashref{'type'}=~/^arch/i ) {
                $dir=$dir."/".$ENV{SCRAM_ARCH};
                AddDir::adddir($self->{area}->location()."/".$dir);
            }
            else {
                $self->parseerror("Unknown type in <$name> tag");
            }
          }
        
          # -- set make variables for the store
          print GNUmakefile "SCRAMSTORENAME_".$$hashref{'name'}.":=".$dir."\n";
          print GNUmakefile "SCRAMSTORE_".$$hashref{'name'}.":=".
                                        $self->{localtop}."/".$dir."\n";
          print GNUmakefile "VPATH+=".$self->{localtop}
                        ."/".$dir.":".$self->{releasetop}."/".$dir."\n";
        }
}

sub DropDown {
        my $self=shift;
        my $name=shift;
        my $hashref=shift;

        if ( $self->{Arch} ) {
          # - default values must always be specified
          $self->{switch}->checktag( $name, $hashref, 'defaults' );
          my @blockdirs=split /,/ , $$hashref{'defaults'};
          $self->{block}->defaultblocks(@blockdirs);
        }
}
Revision:	1.8
Committed:	Fri Sep 29 06:45:51 2000 UTC (24 years, 7 months ago) by williamc
Content type:	text/plain
Branch:	MAIN
Changes since 1.7:	+75 -3 lines
Log Message:	update from laptop