Subversion Repositories DevTools

Rev

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

Rev 5710 Rev 6133
Line 26... Line 26...
26 
 
 26 
 
27 
package JatsMakeInfo;
 27 
package JatsMakeInfo;
28 
 
 28 
 
29 
use JatsError;
 29 
use JatsError;
30 
use ConfigurationFile;
 30 
use ConfigurationFile;
- 
 
 31 
use ToolsetFiles;
31 
 
 32 
 
32 
# automatically export what we need into namespace of caller.
 33 
# automatically export what we need into namespace of caller.
33 
use Exporter();
 34 
use Exporter();
34 
our (@ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, @EXPORT_BASIC);
 35 
our (@ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, @EXPORT_BASIC);
35 
@ISA         = qw(Exporter);
 36 
@ISA         = qw(Exporter);
Line 108... Line 109...
108 
    $fh->Write("\$ScmRoot          = \"$::ScmRoot\";\n") ;
 109 
    $fh->Write("\$ScmRoot          = \"$::ScmRoot\";\n") ;
109 
    $fh->Write("\$ScmInterface     = \"$::ScmInterface\";\n") ;
 110 
    $fh->Write("\$ScmInterface     = \"$::ScmInterface\";\n") ;
110 
    $fh->Write("\$ScmBuildFilter   = \"$::GBE_BUILDFILTER\";\n") if ($::GBE_BUILDFILTER) ;
 111 
    $fh->Write("\$ScmBuildFilter   = \"$::GBE_BUILDFILTER\";\n") if ($::GBE_BUILDFILTER) ;
111 
    $fh->Close();
 112 
    $fh->Close();
112 
 
 113 
 
113 
    ::ToolsetFile ("Makefile.gbe");
 114 
    ToolsetFiles::AddFile("Makefile.gbe");
114 
}
 115 
}
115 
 
 116 
 
116 
 
 117 
 
117 
#-------------------------------------------------------------------------------
 118 
#-------------------------------------------------------------------------------
118 
# Function        : ReadMakeInfo
 119 
# Function        : ReadMakeInfo
Line 120... Line 121...
120 
# Description     : Reads in Makefile.gbe data in the current directory
 121 
# Description     : Reads in Makefile.gbe data in the current directory
121 
#                   This is used to provide basic information including
 122 
#                   This is used to provide basic information including
122 
#                   The path to the build root
 123 
#                   The path to the build root
123 
#                   The path to the interface directory
 124 
#                   The path to the interface directory
124 
#
 125 
#
125 
# Inputs          :
 126 
# Inputs          :  None
126 
#
 - 
 
127 
# Returns         : Reference to a structure that contains the data
 - 
 
128 
#
 - 
 
129 
#
 127 
#
- 
 
 128 
# Returns         : Nothing. Globals
- 
 
 129 
#                     $ScmBuildMachType
- 
 
 130 
#                     $ScmRoot              (abs)
- 
 
 131 
#                     $ScmInterface         (relative to $ScmRoot)
- 
 
 132 
#                     $ScmBuildFilter
- 
 
 133 
#
130 
sub ReadMakeInfo
 134 
sub ReadMakeInfo
131 
{
 135 
{
132 
    #
 136 
    #
133 
    #   Read in the file
 137 
    #   Read in the file
134 
    #   Reads some global variables directly into the global variable space
 138 
    #   Reads some global variables directly into the global variable space