FEAT: initial MIDI port scheme implementation - macOS version

The MIDI device is now also optional and must be enabled using `USE_MIDI_DEVICE` compilation define.

Author: Oldes

make/make-settings.r

@@ -15,6 +15,7 @@ Defines: [
 	;USE_WAV_CODEC   ;-- deprecated; using Rebol codec instead
 	;USE_NO_INFINITY ;-- use when you don't want to support IEEE infinity
 	USE_LZMA         ;-- adds support for LZMA [de]compression
+	USE_MIDI_DEVICE  ;-- includes MIDI device when possible (Windows & macOS)
 
 	;@@ optional fine tuning:
 	;DO_NOT_NORMALIZE_MAP_KEYS
@@ -30,4 +31,6 @@ Defines: [
 	;FORCE_ANSI_ESC_EMULATION_ON_WINDOWS ;-- would not try to use MS' built-in VIRTUAL_TERMINAL_PROCESSING
 	;EXCLUDE_VECTOR_MATH ;-- don't include vector math support (like: 3 * #[vector! integer! 8 3 [1 2 3]])
 
+	;DEBUG_MIDI ;-- prints some of internal traces from MIDI device handler
+
 ]

src/core/c-port.c

@@ -630,6 +630,8 @@ SCHEME_ACTIONS *Scheme_Actions;	// Initial Global (not threaded)
 	Init_Checksum_Scheme();
 #ifndef MIN_OS
 	Init_Clipboard_Scheme();
-	//Init_MIDI_Scheme();
+#endif
+#ifdef USE_MIDI_DEVICE
+	Init_MIDI_Scheme();
 #endif
 }

src/include/reb-config.h

@@ -160,16 +160,22 @@ These are now obsolete (as of A107) and should be removed:
 #define API_IMPORT
 #endif
 
+#ifdef TO_LINUX
+#undef USE_MIDI_DEVICE          // Not implemented!
+#endif
+
 #ifdef TO_OSX					// OSX/PPC
 #define OLD_COMPILER
 #endif
 
 #ifdef TO_OBSD					// OpenBSD
+#undef USE_MIDI_DEVICE          // Not implemented!
 #define COPY_STR(d,s,m) strlcpy(d,s,m)
 #define JOIN_STR(d,s,m) strlcat(d,s,m)
 #endif
 
 #ifdef TO_AMIGA					// Target for OS4
+#undef USE_MIDI_DEVICE          // Not implemented!
 #define HAS_BOOL
 #define HAS_SMART_CONSOLE
 #define NO_DL_LIB

src/include/reb-device.h

@@ -39,7 +39,7 @@ enum {
 	RDI_DNS,
 	RDI_CHECKSUM,
 	RDI_CLIPBOARD,
-	//RDI_MIDI,
+	RDI_MIDI,
 	RDI_MAX,
 	RDI_LIMIT = 32
 };

src/os/host-device.c

@@ -73,7 +73,15 @@ extern REBDEV Dev_DNS;
 extern REBDEV Dev_Checksum;
 #ifndef MIN_OS
 extern REBDEV Dev_Clipboard;
-//extern REBDEV Dev_MIDI;
+#define DEVICE_PTR_CLIPBOARD &Dev_Clipboard
+#else
+#define DEVICE_PTR_CLIPBOARD 0
+#endif
+#ifdef USE_MIDI_DEVICE
+extern REBDEV Dev_MIDI;
+#define DEVICE_PTR_MIDI &Dev_MIDI
+#else
+#define DEVICE_PTR_MIDI 0
 #endif
 
 REBDEV *Devices[RDI_LIMIT] =
@@ -86,12 +94,8 @@ REBDEV *Devices[RDI_LIMIT] =
 	&Dev_Net,
 	&Dev_DNS,
 	0,//&Dev_Checksum,
-#ifndef MIN_OS
-	&Dev_Clipboard,
-//	&Dev_MIDI,
-#else
-	0
-#endif
+	DEVICE_PTR_CLIPBOARD,
+	DEVICE_PTR_MIDI
 };