Changeset 2470

Timestamp:

03/20/08 12:01:13 (9 months ago)

Author:

kmaclean

Message:

VoxForge?_config.pm refactor to a class - snapshot

Files:

• Trunk/Scripts/Mirroring_scripts/VoxForge_config_testing.pm (modified) (2 diffs)

Trunk/Scripts/Mirroring_scripts/VoxForge_config_testing.pm

@@ -24 +24 @@
-package VoxForge_config_testing;
-use POSIX qw(strftime);
+use diagnostics;
+use Carp;
-use strict;
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-sub getParms {
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
-        ####################################################################
-        # Speech Corpus Releases directory - none yet ...
@@ -53 +61 @@
-        my $mday = strftime "%d", localtime; #  %d      numeric day of the month, with leading zeros (eg 01..31)
-        
-
-
-
-
+
+
+
-        ####################################################################
-        # Script Location
-
-parms{"QSdir"} = 
-parms{"ScriptsDirectory"} = 
-parms{"AudioScripts_dir"} = 
-parms{"Repository_dir"} = 
-parms{"UserSubmission_dir"} = 
-parms{"AcousticModel_scripts"} = 
-parms{"HTK_dir"} = 
-parms{"MirroringScripts_dir"} = 
-parms{"TarFiles_dir"} = 
-parms{"directories2mirror"} = 
-parms{"Testing_scripts_dir"} = 
-parms{"Nightly_test_dir"} = 
-parms{"Metrics_scripts_dir"} = 
+$
+$parms{"QSdir"} = $
+$parms{"ScriptsDirectory"} = $
+$parms{"AudioScripts_dir"} = $
+$parms{"Repository_dir"} = $
+$parms{"UserSubmission_dir"} = $
+$parms{"AcousticModel_scripts"} = $
+$parms{"HTK_dir"} = $
+$parms{"MirroringScripts_dir"} = $
+$parms{"TarFiles_dir"} = $
+$parms{"directories2mirror"} = $
+$parms{"Testing_scripts_dir"} = $
+$parms{"Nightly_test_dir"} = $
+$parms{"Metrics_scripts_dir"} = $
-
-
-
-
+$
+$
+$
-        ####################################################################
-        # Speech Corpus Releases directory - none yet ...
-
-parms{"CurrentBuild_dir"} = 
-parms{"CurrentAM_16kHz_16bit"} = 
-parms{"CurrentAM_8kHz_16bit"} = 
+$
+$parms{"CurrentBuild_dir"} = $
+$parms{"CurrentAM_16kHz_16bit"} = $
+$parms{"CurrentAM_8kHz_16bit"} = $
-        ####################################################################
-        # UserSubmission Location
-$parms{"UserSubmissions"}
-       $parms{"QuarantineDir"} = $parms{"UserSubmissions"}
-       $parms{"ToBeProcessedDir"} = $parms{"UserSubmissions"}
+my $UserSubmissions
+$$parms{"QuarantineDir"} = $UserSubmissions
+$$parms{"ToBeProcessedDir"} = $UserSubmissions
-        ####################################################################
-        # NFS directory from AM create server server to WebGUI server
-
+$
-        ####################################################################
-        # HTK and Julian binary locations
-
-
-
-
+
+
+
-}               
+
+####################################################################
+### Settors
+####################################################################
+sub setSpeechCorpusLanguage {
+        my ($parms, $language ) = @_;
+        ####################################################################
+        # Speech Corpus Location
+        my $SpeechCorpus;
+        if ($language =~ /EN/) {
+                $SpeechCorpus = "/home/kmaclean/VoxForge-dev/SpeechCorpus";
+        } elsif ($language =~ /DE/) {
+                $SpeechCorpus = "/home/kmaclean/VoxForge-dev/German";
+        } elsif ($language =~ /NL/) {
+                $SpeechCorpus = "/home/kmaclean/VoxForge-dev/Dutch";
+        }
+                
+        $$parms{"AudioDirectory"} = "$SpeechCorpus/Audio";
+        $$parms{"Main_8kHz_16bit"} = $$parms{"AudioDirectory"} . "/Main/8kHz_16bit";    # user metrics uses this
+        $$parms{"Main_16kHz_16bit"} = $$parms{"AudioDirectory"} . "/Main/16kHz_16bit";  # user metrics uses this
+        $$parms{"LexiconDirectory"} = $SpeechCorpus."/Lexicon";
+        $$parms{"PromptsFile_16kHz-16bit"} = "$SpeechCorpus/Prompts/master_prompts_16kHz-16bit"; 
+        $$parms{"PromptsFile_8kHz-16bit"}  = "$SpeechCorpus/Prompts/master_prompts_8kHz-16bit"; 
+        
+}
+####################################################################
+### Gettors
+####################################################################
+sub getQuarantineDir {
+        my $self = shift;
+        return $self->{"QuarantineDir"};
+}
+
+sub getAudioDirectory {
+        my $self = shift;
+        return $self->{"AudioDirectory"};
+}
+
+sub getMain_8kHz_16bit {
+        my $self = shift;
+        return $self->{"Main_8kHz_16bit"};
+}
+
+sub getMain_16kHz_16bit {
+        my $self = shift;
+        return $self->{"Main_16kHz_16bit"};
+}
+
+sub getLexiconDirectory {
+        my $self = shift;
+        return $self->{"LexiconDirectory"};
+}
+
+sub getPromptsFile_16kHz16bit {
+        my $self = shift;
+        return $self->{"PromptsFile_16kHz-16bit"};
+}
+
+sub getPromptsFile_8kHz16bit {
+        my $self = shift;
+        return $self->{"PromptsFile_8kHz-16bit"};
+}
+
-1;