<commit_before>#!/usr/bin/perl 

sub	GetThisScriptDir {
	use File::Basename;
	use Cwd 'abs_path';
	my $p = __FILE__;
	my $A = abs_path ($p);
	my $dirname = dirname($A);
	return $dirname;
}
my	$thisScriptDir	=	GetThisScriptDir ();

require "$thisScriptDir/ConfigurationReader.pl";

#tmphack!!! 
$activeConfig = "DefaultConfiguration";
#$activeConfig = $ENV{'CONFIGURATION'};
#$activeConfig = $ARGV[0];
my $useProjectDir= "$thisScriptDir/../Library/Projects/" . GetProjectPlatformSubdirIfAny ($activeConfig);
if (-e "$useProjectDir/SetupBuildCommonVars.pl") {
	require "$useProjectDir/SetupBuildCommonVars.pl";
}


my $envVarName=$ARGV[1];
print "$ENV{$envVarName}"<commit_msg>fixed ScriptsLib/PrintEnvVarFromCommonBuildVars.pl to properly respect activeConfig arg (first arg) - tested windoze and tpp now builds<commit_after>#!/usr/bin/perl 

sub	GetThisScriptDir {
	use File::Basename;
	use Cwd 'abs_path';
	my $p = __FILE__;
	my $A = abs_path ($p);
	my $dirname = dirname($A);
	return $dirname;
}
my	$thisScriptDir	=	GetThisScriptDir ();

require "$thisScriptDir/ConfigurationReader.pl";

$activeConfig = $ARGV[0];
my $useProjectDir= "$thisScriptDir/../Library/Projects/" . GetProjectPlatformSubdirIfAny ($activeConfig);
if (-e "$useProjectDir/SetupBuildCommonVars.pl") {
	require "$useProjectDir/SetupBuildCommonVars.pl";
}

my $envVarName=$ARGV[1];
print "$ENV{$envVarName}"
{'fraction_non_alphanumeric': 0.1539578794480755, 'fraction_numerical': 0.002904865649963689, 'mean_word_length': 6.329787234042553, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4544821', 'n_tokens_mistral': 490, 'n_tokens_neox': 487, 'n_words': 100}