Subversion Repositories DevTools

Rev

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

Rev 255 Rev 273
Line 51... Line 51...
51 
                basic  => [@EXPORT_BASIC]);
 51 
                basic  => [@EXPORT_BASIC]);
52 
 
 52 
 
53 
#-------------------------------------------------------------------------------
 53 
#-------------------------------------------------------------------------------
54 
#   Global variables
 54 
#   Global variables
55 
#
 55 
#
56 
#our $GBE_MACHTYPE;                          # Current machine type
 56 
#our $GBE_HOSTMACH;                          # Current machine type
57 
our $ScmBuildMachType;                      # from Makefile.gbe
 57 
our $ScmBuildMachType;                      # from Makefile.gbe
58 
our $ScmRoot;                               # Built Root
 58 
our $ScmRoot;                               # Built Root
59 
our $ScmInterface;                          # Interface (relative to root)
 59 
our $ScmInterface;                          # Interface (relative to root)
60 
 
 60 
 
61 
#-------------------------------------------------------------------------------
 61 
#-------------------------------------------------------------------------------
Line 68... Line 68...
68 
#
 68 
#
69 
# Returns         :
69 
# Returns         :
70 
#
 70 
#
71 
BEGIN
 71 
BEGIN
72 
{
 72 
{
73 
    $::GBE_MACHTYPE = $ENV{ GBE_MACHTYPE };
 73 
    $::GBE_HOSTMACH = $ENV{ GBE_HOSTMACH };
74 
    Error( "Environment Variable 'GBE_MACHTYPE' not defined." )
 74 
    Error( "Environment Variable 'GBE_HOSTMACH' not defined." )
75 
            unless( defined $::GBE_MACHTYPE );
 75 
            unless( defined $::GBE_HOSTMACH );
76 
}
 76 
}
77 
 
 77 
 
78 
 
 78 
 
79 
#-------------------------------------------------------------------------------
 79 
#-------------------------------------------------------------------------------
80 
# Function        : CreateMakeInfo
 80 
# Function        : CreateMakeInfo
Line 94... Line 94...
94 
    #
 94 
    #
95 
    #   Validate globals that are used
 95 
    #   Validate globals that are used
96 
    #
 96 
    #
97 
    Error ("JatsMakeInfo - ScmRoot not defined") unless ( $::ScmRoot  );
 97 
    Error ("JatsMakeInfo - ScmRoot not defined") unless ( $::ScmRoot  );
98 
    Error ("JatsMakeInfo - ScmInterface not defined") unless ( $::ScmInterface  );
 98 
    Error ("JatsMakeInfo - ScmInterface not defined") unless ( $::ScmInterface  );
99 
    Error ("JatsMakeInfo - GBE_MACHTYPE not defined") unless ( $::GBE_MACHTYPE  );
 99 
    Error ("JatsMakeInfo - GBE_HOSTMACH not defined") unless ( $::GBE_HOSTMACH  );
100 
 
 100 
 
101 
    #
 101 
    #
102 
    #   Create Makefile.gbe in the current directory
 102 
    #   Create Makefile.gbe in the current directory
103 
    #
 103 
    #
104 
    my $fh = ConfigurationFile::New( "Makefile.gbe" );
 104 
    my $fh = ConfigurationFile::New( "Makefile.gbe" );
105 
    $fh->Header( $::ScmMakelib , 'Make Control Files');
 105 
    $fh->Header( $::ScmMakelib , 'Make Control Files');
106 
    $fh->Write("\$ScmBuildMachType = \"$::GBE_MACHTYPE\";\n") ;
 106 
    $fh->Write("\$ScmBuildMachType = \"$::GBE_HOSTMACH\";\n") ;
107 
    $fh->Write("\$ScmRoot          = \"$::ScmRoot\";\n") ;
 107 
    $fh->Write("\$ScmRoot          = \"$::ScmRoot\";\n") ;
108 
    $fh->Write("\$ScmInterface     = \"$::ScmInterface\";\n") ;
 108 
    $fh->Write("\$ScmInterface     = \"$::ScmInterface\";\n") ;
109 
    $fh->Close();
 109 
    $fh->Close();
110 
}
 110 
}
111 
 
 111 
 
Line 155... Line 155...
155 
{
 155 
{
156 
    my ($MachType, $src) = @_;
 156 
    my ($MachType, $src) = @_;
157 
 
 157 
 
158 
    Error ("Incorrect Machine Type in $src",
 158 
    Error ("Incorrect Machine Type in $src",
159 
           "The build has been construct for a Machine Type of: $MachType",
 159 
           "The build has been construct for a Machine Type of: $MachType",
160 
           "Current Machine Type is: $::GBE_MACHTYPE",
 160 
           "Current Machine Type is: $::GBE_HOSTMACH",
161 
           ) unless ( $MachType eq $::GBE_MACHTYPE );
 161 
           ) unless ( $MachType eq $::GBE_HOSTMACH );
162 
}
 162 
}
163 
 
 163 
 
164 
#------------------------------------------------------------------------------
 164 
#------------------------------------------------------------------------------
165 
1;
 165 
1;