114 lines
No EOL
3.3 KiB
Text
114 lines
No EOL
3.3 KiB
Text
|
|
@include "_VersionChecks.dsi";
|
|
|
|
#----------------------------------------------------
|
|
# _GetArch
|
|
# Returns the architecture
|
|
#----------------------------------------------------
|
|
sub _GetArch(OUT string $arch)
|
|
{
|
|
return _GetArch($arch, %_sgEnv{'script_target_address'});
|
|
}
|
|
sub _GetArchLocal(OUT string $arch)
|
|
{
|
|
return _GetArch($arch, %_sgEnv{'script_source_address'});
|
|
}
|
|
sub _GetArch(OUT string $arch, IN string $tgt)
|
|
{
|
|
return GetEnv('_ARCH', $arch, 0, $tgt);
|
|
}
|
|
# END _GetArch
|
|
|
|
#----------------------------------------------------
|
|
# _GetCompiledArch
|
|
# Returns the compiled architecture
|
|
#----------------------------------------------------
|
|
sub _GetCompiledArch(OUT string $arch)
|
|
{
|
|
return _GetCompiledArch($arch, %_sgEnv{'script_target_address'});
|
|
}
|
|
sub _GetCompiledArchLocal(OUT string $arch)
|
|
{
|
|
return _GetCompiledArch($arch, %_sgEnv{'script_source_address'});
|
|
}
|
|
sub _GetCompiledArch(OUT string $arch, IN string $tgt)
|
|
{
|
|
return GetEnv('_COMPILED_ARCH', $arch, 0, $tgt);
|
|
}
|
|
# END _GetCompiledArch
|
|
|
|
#----------------------------------------------------
|
|
# _GetCompiledOsFamily
|
|
# Returns the compiled os
|
|
#----------------------------------------------------
|
|
sub _GetCompiledOsFamily(OUT string $os)
|
|
{
|
|
return _GetCompiledOsFamily($os, %_sgEnv{'script_target_address'});
|
|
}
|
|
sub _GetCompiledOsFamilyLocal(OUT string $os)
|
|
{
|
|
return _GetCompiledOsFamily($os, %_sgEnv{'script_source_address'});
|
|
}
|
|
sub _GetCompiledOsFamily(OUT string $os, IN string $tgt)
|
|
{
|
|
return GetEnv('_COMPILED_OS', $os, 0, $tgt);
|
|
}
|
|
# END _GetCompiledOsFamily
|
|
|
|
#----------------------------------------------------
|
|
# _GetOsFamily
|
|
# Returns the os
|
|
#----------------------------------------------------
|
|
sub _GetOsFamily(OUT string $os)
|
|
{
|
|
return _GetOsFamily($os, %_sgEnv{'script_target_address'});
|
|
}
|
|
sub _GetOsFamilyLocal(OUT string $os)
|
|
{
|
|
return _GetOsFamily($os, %_sgEnv{'script_source_address'});
|
|
}
|
|
sub _GetOsFamily(OUT string $os, IN string $tgt)
|
|
{
|
|
return GetEnv('_OS', $os, 0, $tgt);
|
|
}
|
|
# END _GetOsFamily
|
|
|
|
#----------------------------------------------------
|
|
# _GetOsVersion
|
|
# Returns the os version
|
|
#----------------------------------------------------
|
|
sub _GetOsVersion(OUT int $major, OUT int $minor, OUT int $other)
|
|
{
|
|
return _GetOsVersion($major, $minor, $other, %_sgEnv{'script_target_address'});
|
|
}
|
|
sub _GetOsVersion(OUT int $major, OUT int $minor)
|
|
{
|
|
int $other;
|
|
return _GetOsVersion($major, $minor, $other, %_sgEnv{'script_target_address'});
|
|
}
|
|
sub _GetOsVersion(OUT int $major)
|
|
{
|
|
int $minor, $other;
|
|
return _GetOsVersion($major, $minor, $other, %_sgEnv{'script_target_address'});
|
|
}
|
|
sub _GetOsVersionLocal(OUT int $major, OUT int $minor, OUT int $other)
|
|
{
|
|
return _GetOsVersion($major, $minor, $other, %_sgEnv{'script_source_address'});
|
|
}
|
|
sub _GetOsVersionLocal(OUT int $major, OUT int $minor)
|
|
{
|
|
int $other;
|
|
return _GetOsVersion($major, $minor, $other, %_sgEnv{'script_source_address'});
|
|
}
|
|
sub _GetOsVersionLocal(OUT int $major)
|
|
{
|
|
int $minor, $other;
|
|
return _GetOsVersion($major, $minor, $other, %_sgEnv{'script_source_address'});
|
|
}
|
|
sub _GetOsVersion(OUT int $major, OUT int $minor, OUT int $other, IN string $tgt)
|
|
{
|
|
return (GetEnv('_MAJOR_VERSION', $major, 0, $tgt) &&
|
|
GetEnv('_MINOR_VERSION', $minor, 0, $tgt) &&
|
|
GetEnv('_OTHER_VERSION', $other, 0, $tgt));
|
|
}
|
|
# END _GetOsVersion |