Subversion Repositories DevTools

Rev

Rev 273 | Rev 3967 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 273 Rev 363
Line 36... Line 36...
36 
@EXPORT      = qw(  TestMachType
 36 
@EXPORT      = qw(  TestMachType
37 
                    ReadMakeInfo
 37 
                    ReadMakeInfo
38 
                    $ScmBuildMachType
 38 
                    $ScmBuildMachType
39 
                    $ScmRoot
 39 
                    $ScmRoot
40 
                    $ScmInterface
 40 
                    $ScmInterface
- 
 
 41 
                    $ScmBuildFilter
41 
                );
 42 
                );
42 
@EXPORT_OK =  qw(
 43 
@EXPORT_OK =  qw(
43 
                    CreateMakeInfo
 44 
                    CreateMakeInfo
44 
                    TestMachType
 45 
                    TestMachType
45 
                );
 46 
                );
Line 104... Line 105...
104 
    my $fh = ConfigurationFile::New( "Makefile.gbe" );
 105 
    my $fh = ConfigurationFile::New( "Makefile.gbe" );
105 
    $fh->Header( $::ScmMakelib , 'Make Control Files');
 106 
    $fh->Header( $::ScmMakelib , 'Make Control Files');
106 
    $fh->Write("\$ScmBuildMachType = \"$::GBE_HOSTMACH\";\n") ;
 107 
    $fh->Write("\$ScmBuildMachType = \"$::GBE_HOSTMACH\";\n") ;
107 
    $fh->Write("\$ScmRoot          = \"$::ScmRoot\";\n") ;
 108 
    $fh->Write("\$ScmRoot          = \"$::ScmRoot\";\n") ;
108 
    $fh->Write("\$ScmInterface     = \"$::ScmInterface\";\n") ;
 109 
    $fh->Write("\$ScmInterface     = \"$::ScmInterface\";\n") ;
- 
 
 110 
    $fh->Write("\$ScmBuildFilter   = \"$::GBE_BUILDFILTER\";\n") if ($::GBE_BUILDFILTER) ;
109 
    $fh->Close();
 111 
    $fh->Close();
110 
}
 112 
}
111 
 
 113 
 
112 
 
 114 
 
113 
#-------------------------------------------------------------------------------
 115 
#-------------------------------------------------------------------------------