FLTK: implement audio support

Author: chrisws

.gitmodules

@@ -0,0 +1,3 @@
+[submodule "src/lib/miniaudio"]
+	path = src/lib/miniaudio
+	url = https://github.com/dr-soft/miniaudio.git

configure.ac

@@ -352,6 +352,8 @@ function buildFLTK() {
      FLTK_CXXFLAGS="${FLTK_CXXFLAGS} -mms-bitfields"
      PACKAGE_LIBS="-Wl,-Bstatic ${PACKAGE_LIBS} -lwsock32 -lws2_32 -static-libgcc -static-libstdc++"
      AC_DEFINE(_Win32, 1, [Windows build])
+     AC_DEFINE(_USE_MATH_DEFINES, 1, [for M_PI in math.h])
+     AC_DEFINE(realpath(F, R), _fullpath(R, F, PATH_MAX), [add missing realpath for system.cpp])
      ;;
 
      *darwin*)

src/lib/miniaudio

@@ -25,6 +25,7 @@
 #include <FL/Fl_Slider.H>
 #include <FL/Fl_Value_Input.H>
 #include <FL/Fl_Window.H>
+#include <FL/filename.H>
 
 #define Fl_HELP_WIDGET_RESOURCES
 #include "platform/fltk/HelpWidget.h"
@@ -3043,24 +3044,6 @@ Fl_Image *loadImage(const char *imgSrc) {
   return image != 0 ? image : &brokenImage;
 }
 
-#if defined(WIN32)
-#include <windows.h>
-#include <FL/Fl_Window.h>
-#include <FL/Fl_win32.h>
-#endif
-
 void browseFile(const char *url) {
-#if defined(WIN32)
-  ShellExecute(xid(Window::first()), "open", url, 0, 0, SW_SHOWNORMAL);
-#else
-  if (fork() == 0) {
-    fclose(stderr);
-    fclose(stdin);
-    fclose(stdout);
-    execlp("htmlview", "htmlview", url, NULL);
-    execlp("firefox", "firefox", url, NULL);
-    execlp("mozilla", "mozilla", url, NULL);
-    ::exit(0);                  // in case exec failed
-  }
-#endif
+  fl_open_uri(url);
 }

src/platform/fltk/HelpWidget.cxx

@@ -841,7 +841,7 @@ bool initialise(int argc, char **argv) {
   opt_interactive = true;
   opt_file_permitted = 1;
   os_graphics = 1;
-  opt_mute_audio = 1;
+  opt_mute_audio = 0;
 
   int i = 0;
   if (Fl::args(argc, argv, i, arg_cb) < argc) {

src/platform/fltk/MainWindow.cxx

@@ -108,6 +108,7 @@ struct MainWindow : public BaseWindow {
   bool logPrint();
   FILE *openConfig(const char *fileName, const char *flags = "w");
   TtyWidget *tty();
+  void exit(int code) { delete this; ::exit(code); }
 
   CALLBACK_METHOD(close_tab);
   CALLBACK_METHOD(close_other_tabs);

src/platform/fltk/MainWindow.h

@@ -27,6 +27,7 @@ sbasici_SOURCES =                 \
   ../../ui/image.cpp              \
   ../../ui/strlib.cpp             \
   ../../ui/textedit.cpp           \
+  ../../ui/audio.cpp              \
   display.cxx display.h           \
   runtime.cxx runtime.h           \
   HelpWidget.cxx HelpWidget.h     \

src/platform/fltk/Makefile.am

@@ -11,6 +11,7 @@
 #include "lib/maapi.h"
 #include "platform/fltk/MainWindow.h"
 #include "platform/fltk/runtime.h"
+#include "ui/audio.h"
 #include <FL/fl_ask.H>
 #include <FL/Fl_Menu_Button.H>
 
@@ -44,10 +45,11 @@ Runtime::Runtime(int w, int h, int defsize) : System() {
   _output->construct();
   _output->setTextColor(DEFAULT_FOREGROUND, DEFAULT_BACKGROUND);
   _output->setFontSize(defsize);
+  open_audio();
 }
 
 Runtime::~Runtime() {
-  // empty
+  close_audio();
 }
 
 void Runtime::alert(const char *title, const char *message) {
@@ -338,18 +340,6 @@ int osd_devrestore() {
   return 1;
 }
 
-void osd_beep() {
-  fl_beep();
-}
-
-void osd_sound(int frq, int ms, int vol, int bgplay) {
-#if defined(WIN32)
-  if (!bgplay) {
-    ::Beep(frq, ms);
-  }
-#endif
-}
-
 //
 // utils
 //
@@ -380,11 +370,3 @@ void appLog(const char *format, ...) {
     free(buf);
   }
 }
-
-//
-// not implemented
-//
-void open_audio() {}
-void close_audio() {}
-void osd_audio(const char *path) {}
-void osd_clear_sound_queue() {}

src/platform/fltk/runtime.cxx

@@ -7,7 +7,6 @@
 //
 
 #include <config.h>
-#include <sys/socket.h>
 #include <stdint.h>
 #include "lib/str.h"
 #include "utils.h"

src/platform/fltk/utils.cxx

@@ -0,0 +1,121 @@
+// This file is part of SmallBASIC
+//
+// Copyright(C) 2001-2019 Chris Warren-Smith.
+//
+// This program is distributed under the terms of the GPL v2.0 or later
+// Download the GNU Public License (GPL) from www.gnu.org
+//
+
+#define MINIAUDIO_IMPLEMENTATION
+#define DR_WAV_IMPLEMENTATION
+//#define DR_MP3_IMPLEMENTATION
+
+#include "config.h"
+#include <stdio.h>
+#include "common/osd.h"
+#include "common/device.h"
+#include "ui/strlib.h"
+#include "lib/miniaudio/miniaudio.h"
+#include "lib/miniaudio/extras/dr_wav.h"
+//#include "lib/miniaudio/extras/dr_mp3.h"
+
+#define DEVICE_SAMPLE_RATE  48000
+#define DEVICE_CHANNELS 1
+#define MILLIS_TO_MICROS(n) (n * 1000)
+
+struct Sound {
+  Sound(int frequency, int millis, int volume);
+  ~Sound();
+  
+  ma_sine_wave *_tone;
+  uint32_t _start;
+  uint32_t _duration;
+};
+
+Sound::Sound(int frequency, int millis, int volume) :
+  _tone(nullptr),
+  _start(0),
+  _duration(millis) {
+  _tone = (ma_sine_wave *)malloc(sizeof(ma_sine_wave));
+  ma_sine_wave_init(volume / 100.0, frequency, DEVICE_SAMPLE_RATE, _tone);
+}
+
+Sound::~Sound() {
+  free(_tone);
+  _tone = nullptr;
+}
+
+strlib::Queue<Sound *> queue;
+ma_decoder decoder;
+ma_device device;
+ma_device_config config;
+
+void data_callback(ma_device *device, void *output, const void *input, ma_uint32 frameCount) {
+  if (device->playback.channels == DEVICE_CHANNELS) {
+    if (queue.empty()) {
+      usleep(MILLIS_TO_MICROS(10));
+    } else {
+      Sound *sound = queue.front();
+      if (sound->_start == 0) {
+        // start new sound
+        sound->_start = dev_get_millisecond_count();
+        ma_sine_wave_read_f32(sound->_tone, frameCount, (float*)output);
+      } else if (dev_get_millisecond_count() - sound->_start > sound->_duration) {
+        // sound has timed out
+        queue.pop();
+      } else {
+        // continue sound
+        ma_sine_wave_read_f32(sound->_tone, frameCount, (float*)output);
+      }
+    }
+  }
+}
+
+bool open_audio() {
+  config = ma_device_config_init(ma_device_type_playback);
+  config.playback.format   = ma_format_f32;
+  config.playback.channels = DEVICE_CHANNELS;
+  config.sampleRate        = DEVICE_SAMPLE_RATE;
+  config.dataCallback      = data_callback;
+  config.pUserData         = nullptr;
+  return (ma_device_init(nullptr, &config, &device) == MA_SUCCESS);
+}
+
+void close_audio() {
+  ma_device_uninit(&device);
+}
+
+void osd_audio(const char *path) {
+  //if (ma_decoder_init_file_wav(path, nullptr, &decoder) == MA_SUCCESS) {
+  //    ma_device_start(&device);
+  //  } else {
+  //    fprintf(stderr, "failed\n");
+  //  }
+}
+
+void osd_clear_sound_queue() {
+  ma_device_stop(&device);
+  queue.removeAll();
+}
+
+void osd_beep() {
+  osd_sound(1000, 30, 100, 0);
+  osd_sound(500, 30, 100, 0);
+}
+
+void osd_sound(int frequency, int millis, int volume, int background) {
+  ma_mutex_lock(&device.lock);
+  queue.push(new Sound(frequency, millis, volume));
+  ma_mutex_unlock(&device.lock);
+
+  if (!background) {
+    ma_device_start(&device);
+    usleep(MILLIS_TO_MICROS(millis));
+    ma_device_stop(&device);
+    ma_mutex_lock(&device.lock);
+    queue.pop();
+    ma_mutex_unlock(&device.lock);
+  } else  if (queue.size() == 1) {
+    ma_device_start(&device);
+  }
+}