Changeset 2461

Timestamp:

03/02/08 23:01:00 (10 months ago)

Author:

kmaclean

Message:

audio.pm conversion to class ... snapshot

Files:

• Trunk/Scripts/Audio_scripts/UserSubmission.pm (modified) (2 diffs)
• Trunk/Scripts/Audio_scripts/UserSubmission/AUDIO.pm (modified) (5 diffs)

Trunk/Scripts/Audio_scripts/UserSubmission.pm

@@ -70 +70 @@
-                Convert2Unix($parms, $audio_dir_name); 
-                ValidateFilenames($parms, $audio_dir_name) || confess "UserSubmission error: $?" ;
+
-                my $readme = UserSubmission::README->new($parms, "$QuarantineDir/$audio_dir_name/README"); 
-                       
-                print "!!!!$audio_dir_name:UserSubmission-README says:".$readme->getSamplingrate ."-".$readme->getSamplingrateformat."-".$readme->getFiletype.";dialect:".$readme->getDialect."\n\n" if $debug;
+
-                my $audio = UserSubmission::AUDIO->new($parms, $audio_dir_name, $readme) || confess "UserSubmission error: $?" ;        #checks that audio rates in README match actual files   
-                if ($audio->getError) {
@@ -82 +83 @@
-                my $prompts = UserSubmission::PROMPTS->new($parms, $audio_dir_name, $readme);
-                if ($prompts->getError) {
-audio
+prompts
-                }
-                #my $numberofPromptstoProcess = 10;
-                #$audio->Audio2PromptsValidation($parms, $audio_dir_name,$numberofPromptstoProcess)  || confess "UserSubmission error: $?" ; # partial AM training session using audio data to see if HVite has any problems trying to re-align the data - if it does, then audio does not match transcription
-
+
+
+
+
+
-                # !!!!!!
-                $directorynames{$audio_dir_name} = [$readme->getSamplingrate, $readme->getSamplingrateformat, $readme->getFiletype, $audio ];

Trunk/Scripts/Audio_scripts/UserSubmission/AUDIO.pm

@@ -39 +39 @@
-####################################################################
-sub new {
-
+, $prompts
-        my $self = _audioValidation($parms, $audio_dir_name, $readme);
+        $self->{'parms'} = $parms;                      
+        $self->{'audio_dir_name'} = $audio_dir_name; 
+        $self->{'readme'} = $readme;
+        $self->{'prompts'} = $prompts;  
+                                                        
-        if (lc $readme->getFiletype() eq "flac") {              
-                _flac2Wav($self, $parms, $audio_dir_name,$readme);
@@ -231 +236 @@
-        # !!!!!!
-        #my ($self, $parms, $audio_dir_name, $numberofPrompts ) = @_;
-
+
+
+
+
+
-        # !!!!!!        
-                my $debug = $$parms{"debug"};
@@ -257 +266 @@
-                chomp $line;
-                my $filename;
-# this is not working properly ????
+
-                        my @line=split(/:/, $line);
-                        $filename = pop(@line);
@@ -270 +279 @@
-                # !!!!!!        
-                } elsif ($line =~ /Created lattice with/) {
-                        my @line=split(/ /, $line);
-                        $count++;
-                # !!!!!!        
@@ -389 +397 @@
-        return $self->{'originalAudioFormat'};
-}               
+
-1;