Data update

Task/Record-sound/00-TASK.txt

@@ -4,3 +4,4 @@ Record a monophonic 16-bit PCM sound into either memory space, a file or array.
 The programs in this page might use signed 16-bit or unsigned 16-bit samples, at 8000 Hz, 44100 Hz, or any other sample rate. 
 Therefore, these programs might not record sound in the same format.)
 
+

Task/Record-sound/Ada/record-sound.ada

@@ -0,0 +1,33 @@
+with Sf.Audio.SoundBufferRecorder;
+with Sf.Audio.SoundBuffer;
+with Ada.Text_IO;
+
+procedure Record_Sound is
+   use Sf, Sf.Audio, Ada.Text_IO;
+   Sound_Buffer_Recorder : constant sfSoundBufferRecorder_Ptr := SoundBufferRecorder.create;
+   Sound_Buffer : sfSoundBuffer_Ptr;
+begin
+
+   if Sound_Buffer_Recorder = null then
+      Put_Line (Standard_Error, "Error: sound recorder not available!");
+      return;
+   end if;
+
+   -- By default the recording is in 16-bit mono. Using the
+   -- setChannelCount method you can change the number of channels
+   -- used by the audio capture device to record.
+   if SoundBufferRecorder.start (Sound_Buffer_Recorder, sampleRate => 44_100) /= sfTrue then
+      Put_Line (Standard_Error, "Error: sound recorder cannot start!");
+      return;
+   end if;
+
+   delay 10.0;
+   SoundBufferRecorder.stop (Sound_Buffer_Recorder);
+
+   Sound_Buffer := SoundBufferRecorder.getBuffer (Sound_Buffer_Recorder);
+   if SoundBuffer.saveToFile (Sound_Buffer, filename => "output.ogg") /= sfTrue then
+      Put_Line (Standard_Error, "Error: recorded sound could not be saved!");
+   end if;
+
+   SoundBufferRecorder.destroy (Sound_Buffer_Recorder);
+end Record_Sound;

Task/Record-sound/FutureBasic/record-sound.basic

@@ -0,0 +1,138 @@
+// ---------------
+include "NSLog.incl"
+include "Tlbx Speech.incl"
+include "Tlbx AVFoundation.incl"
+
+output "RecordToTextDemo"
+
+#plist CFBundleIdentifier @"com.futurebasic.RecordToTextDemo"
+#plist NSSpeechRecognitionUsageDescription @"Enable speech recognition."
+#plist NSMicrophoneUsageDescription @"This app requires microphone access."
+
+#define FILE_URL fn URLByAppendingPathComponent(fn FileManagerURLForApplicationDirectory,@"MyAudioFile.m4a")
+#define RECORDER_KEY @"recorder"
+
+
+_window = 1
+begin enum 1
+  _recordBtn
+end enum
+
+
+void local fn FixViews
+  dispatchmain
+    AVAudioRecorderRef recorder = fn AppProperty( RECORDER_KEY )
+    if ( recorder )
+      button _recordBtn,,, @"Stop Recording",,,, _window
+    else
+      button _recordBtn,,, @"Start Recording",,,, _window
+    end if
+  dispatchend
+end fn
+
+
+void local fn BuildWindow
+  window _window, @"Record Demo", (0,0,480,270)
+  button _recordBtn,,, @"Start Recording", (13,13,129,32)
+end fn
+
+
+void local fn MyRecognitionTaskHandler( ref as SFSpeechRecognizerRef, result as SFSpeechRecognitionResultRef, err as ErrorRef, userData as ptr )
+  SFTranscriptionRef transcription = fn SFSpeechRecognitionResultBestTranscription( result )
+
+  if ( err )
+    NSLog(@"error")
+  else
+    if ( fn SFSpeechRecognitionResultIsFinal( result ) )
+      NSLog(@"%@",fn SFTranscriptionFormattedString( transcription ))
+    end if
+  end if
+end fn
+
+
+void local fn MyRequestAuthorization( status as SFSpeechRecognizerAuthorizationStatus, userData as ptr )
+  SFSpeechRecognizerRef            recognizer
+  SFSpeechURLRecognitionRequestRef request
+
+  select ( status )
+    case SFSpeechRecognizerAuthorizationStatusNotDetermined : NSLog(@"Authorization not determined")
+    case SFSpeechRecognizerAuthorizationStatusDenied        : NSLog(@"Authorization denied")
+    case SFSpeechRecognizerAuthorizationStatusRestricted    : NSLog(@"Authorization restricted")
+    case SFSpeechRecognizerAuthorizationStatusAuthorized
+      recognizer = fn SFSpeechRecognizerInit
+      if ( fn SFSpeechRecognizerIsAvailable( recognizer ) )
+        if ( FILE_URL )
+          fn SoundPlay( fn SoundWithContentsOfURL( FILE_URL, YES ) )
+          request = fn SFSpeechURLRecognitionRequestWithURL( FILE_URL )
+          SFSpeechRecognizerSetSupportsOnDeviceRecognition( recognizer, YES )
+          fn SFSpeechRecognizerRecognitionTaskWithResultHandler( recognizer, request, @fn MyRecognitionTaskHandler, NULL )
+        end if
+      else
+        NSLog(@"Speech recognizer not available")
+      end if
+  end select
+end fn
+
+
+void local fn RecognizeSpeech
+  SFSpeechRecognizerRequestAuthorization( @fn MyRequestAuthorization, NULL )
+end fn
+
+
+void local fn RecordAudio
+  CFDictionaryRef settings = @{
+  AVFormatIDKey:@(kAudioFormatMPEG4AAC),
+  AVEncoderAudioQualityKey:@(AVAudioQualityHigh),
+  AVSampleRateKey:@44100.0,
+  AVNumberOfChannelsKey:@1,
+  AVLinearPCMBitDepthKey:@16}
+
+  AVAudioFormatRef format = fn AVAudioFormatWithSettings( settings )
+  AVAudioRecorderRef recorder = fn AVAudioRecorderWithFormat( FILE_URL, format, NULL )
+  AppSetProperty( RECORDER_KEY, recorder )
+  fn FixViews
+  fn AVAudioRecorderRecord( recorder )
+end fn
+
+
+void local fn MyRequestAccessHandler( granted as BOOL, userData as ptr )
+  if ( granted ) then fn RecordAudio
+end fn
+
+
+void local fn StartStopRecording
+  AVAudioRecorderRef    recorder = fn AppProperty( RECORDER_KEY )
+  AVAuthorizationStatus status
+
+  if ( recorder )
+    AVAudioRecorderStop( recorder )
+    AppRemoveProperty( RECORDER_KEY )
+    fn FixViews
+    fn RecognizeSpeech
+  else
+    status = fn   AVCaptureDeviceAuthorizationStatus( AVMediaTypeAudio )
+    select ( status )
+      case AVAuthorizationStatusDenied     : NSLog(@"Denied")
+      case AVAuthorizationStatusRestricted : NSLog(@"Restricted")
+      case AVAuthorizationStatusAuthorized : fn RecordAudio
+      case AVAuthorizationStatusNotDetermined
+        AVCaptureDeviceRequestAccess( AVMediaTypeAudio, @fn MyRequestAccessHandler, NULL )
+    end select
+  end if
+end fn
+
+
+void local fn DoDialog( ev as long, tag as long )
+  select ( ev )
+    case _btnClick
+      select ( tag )
+        case _recordBtn : fn StartStopRecording
+      end select
+  end select
+end fn
+
+fn BuildWindow
+
+on dialog fn DoDialog
+
+HandleEvents