Subversion Repositories DevTools

Rev

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

Rev 6276 Rev 6511
Line 110... Line 110...
110 
 
 110 
 
111 
# Display a variable extracted from the environment
 111 
# Display a variable extracted from the environment
112 
sub penv
 112 
sub penv
113 
{
 113 
{
114 
    my ($var) = @_;
 114 
    my ($var) = @_;
115 
    pvar $var, $ENV{$var} || '';
 115 
    pvar $var, defined ($ENV{$var}) ? $ENV{$var} : '';
116 
}
 116 
}
117 
 
 117 
 
118 
# Display a variable extracted from the environment with dir sanity check
 118 
# Display a variable extracted from the environment with dir sanity check
119 
sub denv
 119 
sub denv
120 
{
 120 
{
121 
    my ($var) = @_;
 121 
    my ($var) = @_;
122 
    dvar $var, $ENV{$var} || '';
 122 
    dvar $var, defined ($ENV{$var}) ? $ENV{$var} : '';
123 
}
 123 
}
124 
 
 124 
 
125 
#   Display a ';' or ':' separated list, one entry per line based on EnvVar
 125 
#   Display a ';' or ':' separated list, one entry per line based on EnvVar
126 
sub lenv
 126 
sub lenv
127 
{
 127 
{
Line 204... Line 204...
204 
    lenv    "GBE_DPKG_SBOX";
 204 
    lenv    "GBE_DPKG_SBOX";
205 
    lenv    "GBE_DPLY";
 205 
    lenv    "GBE_DPLY";
206 
    penv    "GBE_PLATFORM";
 206 
    penv    "GBE_PLATFORM";
207 
    penv    "GBE_BUILDFILTER";
 207 
    penv    "GBE_BUILDFILTER";
208 
    penv    "GBE_ABT";
 208 
    penv    "GBE_ABT";
- 
 
 209 
    penv    "GBE_MAXMAKE";
209 
    denv    "GBE_VIEWBASE";
 210 
    denv    "GBE_VIEWBASE";
210 
    penv    "GBE_VCS";
 211 
    penv    "GBE_VCS";
211 
    penv    "GBE_HOSTNAME";
 212 
    penv    "GBE_HOSTNAME";
212 
    dvar    "CWD", $CWD;
 213 
    dvar    "CWD", $CWD;
213 
 
 214