sclang: increase maximum number of midi ports

The limit of 16 was hit too easily, changing it to 128.

Also warn if exceeding midi in or out ports.
This warning is only posted when the arguments for MIDIClient.init(n,
m); are higher than the hardcoded maximum number of midi ports.

This fixes #2492.

lang/LangPrimSource/SC_AlsaMIDI.cpp

@@ -55,7 +55,7 @@ PyrSymbol* s_midiSysexAction;
 PyrSymbol* s_midiSysrtAction;
 PyrSymbol* s_midiSMPTEAction;
 
-const int kMaxMidiPorts = 16;
+const int kMaxMidiPorts = 128;
 bool gMIDIInitialized = false;
 
 extern bool compiledOK;
@@ -486,6 +486,8 @@ int initMIDI(int numIn, int numOut)
 
 	if (client->mHandle) cleanUpMIDI();
 
+	if(numIn > kMaxMidiPorts) { printf("MIDI: note that maximum midi in ports is limited to %d.\n", kMaxMidiPorts); }
+	if(numOut > kMaxMidiPorts) { printf("MIDI: note that maximum midi out ports is limited to %d.\n", kMaxMidiPorts); }
 	numIn = sc_clip(numIn, 1, kMaxMidiPorts);
 	numOut = sc_clip(numOut, 1, kMaxMidiPorts);
 

lang/LangPrimSource/SC_CoreMIDI.cpp

@@ -67,7 +67,7 @@ PyrSymbol* s_midiSMPTEAction;
 PyrSymbol * s_midiin;
 PyrSymbol * s_numMIDIDev;
 PyrSymbol * s_midiclient;
-const int kMaxMidiPorts = 16;
+const int kMaxMidiPorts = 128;
 MIDIClientRef gMIDIClient = 0;
 MIDIPortRef gMIDIInPort[kMaxMidiPorts], gMIDIOutPort[kMaxMidiPorts];
 int gNumMIDIInPorts = 0, gNumMIDIOutPorts = 0;
@@ -327,6 +327,8 @@ int initMIDI(int numIn, int numOut)
 	int enc = kCFStringEncodingMacRoman;
 
 	midiCleanUp();
+	if(numIn > kMaxMidiPorts) { printf("MIDI: note that maximum midi in ports is limited to %d.\n", kMaxMidiPorts); }
+	if(numOut > kMaxMidiPorts) { printf("MIDI: note that maximum midi out ports is limited to %d.\n", kMaxMidiPorts); }
 	numIn = sc_clip(numIn, 1, kMaxMidiPorts);
 	numOut = sc_clip(numOut, 1, kMaxMidiPorts);
 

lang/LangPrimSource/SC_PortMIDI.cpp

@@ -69,7 +69,7 @@ PyrSymbol* s_midiin;
 PyrSymbol* s_numMIDIDev;
 PyrSymbol* s_midiclient;
 
-const int kMaxMidiPorts = 16;
+const int kMaxMidiPorts = 128;
 int gNumMIDIInPorts = 0, gNumMIDIOutPorts = 0;
 bool gMIDIInitialized = false;
 
@@ -355,6 +355,8 @@ static int initMIDI(int numIn, int numOut)
 	/* Here, numIn and numOut are 0, even if the inputs to lang (MIDIClient init) were nil, but according to the documentation, it should be the number of inputs or outputs. 
 	   That matches what I see in MIDIOut.sc -> MIDIClient *init, in which it is setting that to sources.size, and destinations.size, so I guess that the problem is that 
 	   this information is not known at this point, or there is something missing. */
+	if(numIn > kMaxMidiPorts) { std::printf("MIDI: note that maximum midi in ports is limited to %i.\n", kMaxMidiPorts); }
+	if(numOut > kMaxMidiPorts) { std::printf("MIDI: note that maximum midi out ports is limited to %i.\n", kMaxMidiPorts); }
 	numIn = sc_clip(numIn, 1, kMaxMidiPorts);
 	numOut = sc_clip(numOut, 1, kMaxMidiPorts);